vba - 在文本末尾添加一个字符并将字母 A 增加到 B

Question

我需要帮助的是将前面的单元格文本复制到其下面的单元格中并在其末尾添加字母A> 即 VP0007 之前，VP0007A 之后。这应该继续下去，直到所有空白单元格都增加并到达下一个 VP0008。

请查看图片。如果我不太清楚，我深表歉意。

             修改前:                         修改后:

现在我有以下代码:

ActiveCell.Offset(1, 0).Select
Letter = "A" 
Letters = Chr(Asc(Letter) + 1) 
Number = ActiveCell.Offset(-1, 0).Value 
If ActiveCell.Value = Number & Letter _ Then 
    ActiveCell.Offset(1, 0).Select.Value Number & Number 
Else 
    ActiveCell.Value = Number & Letters 
End If 
Loop Until ActiveCell.Offset(1, 0).Value <> ""

Answer 1

尝试这个简短的子过程。

Sub fillSubseries()
    Dim i As Long, a As Long, str As String

    With Worksheets("sheet4")
        For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
            If IsEmpty(.Cells(i, "A")) Then
                .Cells(i, "A") = str & Chr(a)
                a = a + 1
            Else
                a = 65
                str = .Cells(i, "A").Value2
            End If
        Next i
    End With
End Sub