excel vba怎么把一个工作表里的数据复制到多个工作表里

代码如下，根据需要更改工作表名称：
Private Sub CommandButton1_Click()
Dim arr
lastrow = Sheet2.Cells(Rows.Count, 3).End(xlUp).Row
arr = Sheet2.Range("a7:h" & lastrow)
lrow1 = Sheet4.Cells(Rows.Count, 3).End(xlUp).Row + 1
lrow2 = Sheet5.Cells(Rows.Count, 3).End(xlUp).Row + 1
Sheet4.Range("a" & lrow1).Resize(UBound(arr), UBound(arr, 2)) = arr
Sheet5.Range("a" & lrow2).Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

如果是复制到多个工作表中相同的位置，那很好办，不用vba也可以，但是如果是复制到多个工作表中不同的位置上，那就只有VBA了，并且这些位置还得有规律，对于没有规律的复制来讲，写VBA的时候，还不如自己手动复制了呢。

用 Copy 方法即可