重复macros代码

我logging了这个macros：

Sheets("Sheet1").Select Range("D4:E4").Select Application.CutCopyMode = False Selection.Copy Sheets("ALB3").Select Range("C1").Select ActiveSheet.Paste 

我想循环重复这个过程。 从范围D4：E4到D200：E200当做select

将其粘贴在从ALB3到ALB196的相应表单名称上。

我的数据在表1中。

列a是工作表名称，列d4和e4是我要粘贴到已创build的每个工作表上的数据。

Answer 1

如果您要将范围从一个表格复制到另一个表格，则不需要循环，而无需select。 您可以使用不使用剪贴板的复制语法。

尝试这个：

 Sub CopyRangeToAnotherSheet() Dim source As Worksheet Dim target As Worksheet Set source = ActiveWorkbook.Sheets("Sheet1") Set target = ActiveWorkbook.Sheets("Sheet2") source.Range("D4:E200").Copy target.Range("ALB3") End Sub 

要将源范围复制到工作簿中除源工作表之外的所有工作表，请尝试以下操作：

 Sub CopyToAllSheets() Dim ws As Worksheet For Each ws In Worksheets CopyRangeToAnotherSheet (ws.Name) Next End Sub Sub CopyRangeToAnotherSheet(targetName As String) Dim source As Worksheet Dim target As Worksheet Set source = ActiveWorkbook.Sheets("Sheet1") Set target = ActiveWorkbook.Sheets(targetName) If target.Name <> source.Name Then source.Range("D4:E200").Copy target.Range("ALB3") End If End Sub