Question

我需要实现一个VBA宏，它从一个excel工作表复制数据并将某些列放入另一个。

Sub sbCopyRangeToAnotherSheet()

'Method 1
Sheets("Sheet1").Range("A1:B10").Copy Destination:=Sheets("Sheet2").Range("E1")

'Method 2
'Copy the data
Sheets("Sheet1").Range("A1:B10").Copy
'Activate the destination worksheet
Sheets("Sheet2").Activate
'Select the target range
Range("E1").Select
'Paste in the target destination
ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

这不适用于以Sheet 3命名的新工作表，它也不能有效地运行过滤数据。我需要一个代码，可以复制过滤后的数据并将某些列粘贴到另一个工作表中。

Answer 1

这种最简单的方法是 copyas 来自oryginal文件＆＃34;使用代码＆＃34;并删除这个，你不想分享的内容。

另一个依赖于使用 VBComponents 构建带代码行的字符串在那里，您可以查看代码：http://vbatools.pl/tworzenie-linii-kodu-makrem-z-dodatku/

之后你的档案应保存为xlsm ora xls（旧学校）以保存makros。

如何实施VBA模块以复制过滤后的数据

1 个答案: