[已解决]请教如何粘贴数据到其他表

chensir

如何用VBA语句把"品牌使用费表"的数据（数据是动态的，每个月行数是不同的）粘贴到"费用表"最后一行数据的下面，不包含总计含和标题行

谢谢，各位。

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-8-18 18:54

参考附件

跳转到最佳答案楼层

这儿有肥猫

1. Sub a()
   
2. Dim i&
   
3. i = Sheets("品牌使用费表").Cells(Rows.Count, 2).End(3).Row
   
4. Sheets("品牌使用费表").Range("B2:K" & i - 1).Copy Sheets("费用表").Cells(Rows.Count, 2).End(3).Offset(1, 0)
   
5. End Sub
   

复制代码

这儿有肥猫

参考附件

dsmch

1. Sub Macro1()
   
2. Sheets("费用表").Activate
   
3. x = Cells(Rows.Count, 2).End(xlUp).Row + 1
   
4. With Sheet2
   
5.     .Range("b2:k" & .Cells(Rows.Count, "f").End(xlUp).Row).Copy Cells(x, 2)
   
6. End With
   
7. End Sub

复制代码