我需要帮助的是将前面的单元格文本复制到其下面的单元格中并在其末尾添加字母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 <> ""
最佳答案
尝试这个简短的子过程。
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
关于vba - 在文本末尾添加一个字符并将字母 A 增加到 B,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49611956/