Excel中将第一列的值复制到第二列

nnsea

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