[已解决]简单的复制代码帮忙一下，谢谢！！

fangniuji

如何把L2到AB500数据复制到EE工作表AK2到BB500，我用Sheets("qq").Range("l2:ab500").Value = Sheets("ee").Range("ak2:bb500").Value,不行的。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-2 15:14

1. Sub copy()
   
2.     Dim arr
   
3.     arr = Worksheets("qq").Range("l2:ab500")
   
4.     Worksheets("ee").Range("ak2").Resize(UBound(arr), UBound(arr, 2)) = arr
   
5.     Erase arr
   
6. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub copy()
   
2.     Dim arr
   
3.     arr = Worksheets("qq").Range("l2:ab500")
   
4.     Worksheets("ee").Range("ak2").Resize(UBound(arr), UBound(arr, 2)) = arr
   
5.     Erase arr
   
6. End Sub

复制代码

fangniuji

hwc2ycy 发表于 2013-1-2 15:14

Sub GG()

Sheets("qq").Range("l2:ab500").Copy Sheets("ee").Range("ak2:bb500")
End Sub
  谢谢！！！！！！！！！

490540970

Private Sub CommandButton1_Click()
Range("L2:AB500").Copy Sheets("ee").Range("AK2")
End Sub
没必要用数组的