Excel中将第一列的值复制到第二列
Sub CopyColumnAtoB()
Dim lastRow As Long
' 获取第一列的最后一行
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
' 复制第一列到第二列
ActiveSheet.Range("A1:A" & lastRow).Copy Destination:=ActiveSheet.Range("B1:B" & lastRow)
End Sub
页:
[1]