有关背景填充的Excel VBA代码

我使用MIT Excel表格工作。 我需要将“单元格填充”复制到“另一个填充”，我已经通过使用这个代码来完成：

Sub Macro1() Columns("A:A").Copy Columns("B:B").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Range("B1").Select Application.CutCopyMode = False End Sub 

我如何修改它以便在两张不同的工作表之间工作？

Answer 1

为此，您必须避免使用。select并开始使用对象。 你可能想看到这个

所以你的代码可以写成

 Sub Sample() Dim ws1 As Worksheet, ws2 As Worksheet '~~> Change as Applicable Set ws1 = ThisWorkbook.Sheets("Sheet1") Set ws2 = ThisWorkbook.Sheets("Sheet2") ws1.Columns("A:A").Copy ws2.Columns("B:B").PasteSpecial Paste:=xlPasteFormats, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False Application.CutCopyMode = False End Sub 

编辑

进一步讨论的意见，如果你想使用代号，然后使用这个

 Sub Sample() Dim ws1 As Worksheet, ws2 As Worksheet '~~> Change as Applicable Set ws1 = Sheet1 Set ws2 = Sheet2 ws1.Columns("A:A").Copy ws2.Columns("B:B").PasteSpecial Paste:=xlPasteFormats, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False Application.CutCopyMode = False End Sub