基于行ID循环行并将值复制到列中的VBA代码

Sub CopyDataToColumn()
    Dim rowCount As Integer
    Dim colCount As Integer
    Dim i As Integer
    Dim j As Integer
    
    '获取行数和列数
    rowCount = Cells(Rows.Count, 1).End(xlUp).Row
    colCount = Cells(1, Columns.Count).End(xlToLeft).Column
    
    '循环行
    For i = 2 To rowCount
        '循环列
        For j = 2 To colCount
            '将行ID的值复制到列中
            Cells(i, j).Value = Cells(i, 1).Value
        Next j
    Next i
End Sub