excel vba如何按照00A、00B的规律向下复制

Question

excel vba如何按照00A、00B的规律向下复制
如下图，想将一行值按照图片中规律自动复制出来

Answer 1

Sub CopyDown()
    ' 定义变量
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim cell As Range
    Dim col As String
    Dim row As String

    ' 设置初始值
    i = 0
    j = 0
    k = 0
    col = "A"
    row = "1"

    ' 设置循环条件
    Do While Len(col) < 3 Or (Len(col) = 3 And k < 26)
        ' 设置要复制的单元格
        Set cell = Cells(row, col)
        ' 复制单元格
        cell.Copy
        ' 将复制的单元格粘贴到下一行
        cell.Offset(1, 0).PasteSpecial Paste:=xlPasteValues
        ' 更新行号和列名
        row = row + 1
        k = k + 1
        ' 更新列名
        If k > 25 Then
            i = i + 1
            j = 0
            k = 0
            If i > 25 Then
                j = j + 1
                i = 0
                col = "A" & Chr(65 + j) & "A"
            Else
                col = "A" & Chr(65 + i) & "A"
            End If
        Else
            j = j + 1
            col = "A" & Chr(65 + j) & "A"
        End If
    Loop
End Sub

望采纳+