Excel VBA常见问题:如何取数?

2015-04-15 16:51 阅读 132 次 评论关闭

Excel VBA常见问题如何取数

表一有数据,要求表二中数据为取一行表一数据,空一行。

解答:

Sub test()
On Error Resume Next
Application.ScreenUpdating = False
For i = 1 To Sheets(1).UsedRange.Rows.Count
  Sheets(1).Rows(VBA.Trim(VBA.Str(i)) + ":" + VBA.Trim(VBA.Str(i))).Copy
  Sheets(2).Activate
  Sheets(2).Rows(VBA.Trim(VBA.Str(i * 2 - 1)) + ":" + VBA.Trim(VBA.Str(i * 2 - 1))).Select
  ActiveSheet.Paste
Next i
Application.ScreenUpdating = True
End Sub

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:Excel VBA常见问题:如何取数? | 猎微网

评论已关闭!