vba b列复制A列

Sub copyAtoB() Dim lastRow As Integer lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取A列最后一行的行数 Range("B1:B" & lastRow).Value = Range("A1:A" & lastRow).Value '将A列的值复制到B列 End Sub