跨多个工作表的 VBA 宏

Posted 2023-03-06

【中文标题】跨多个工作表的 VBA 宏

【英文标题】：VBA Macro across multiple worksheets

【发布时间】：2012-10-24 17:55:26

【问题描述】：

我正在尝试运行一个在多个工作表上执行功能的宏。假设我在工作表 4 上分配了宏按钮。我已经列出了我希望它逐步执行的功能：

1) 选择工作表 4 中的某些单元格并复制到工作表 4 中的相邻单元格。 2) 删除工作表 3 中的单元格范围。 3) 剪切工作表 2 中的单元格范围，然后将此单元格范围粘贴到工作表 3。 4）从单独的工作簿中获取单元格范围并复制到工作表 2 中。（我知道这是一个完全不同的问题，因为工作簿是自动发布的，我必须找到一种方法来链接两者。） 5) 更新位于工作表 4 和工作表 3 中的数据透视表。

我很想获得有关此功能的前 3 个功能的帮助。我在下面粘贴了我当前的代码。

Sub START()

Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Dim sh4 As Worksheet

Set sh1 = ActiveWorkbook.Sheets("Brand")
Set sh2 = ActiveWorkbook.Sheets("CurrentWeek")
Set sh3 = ActiveWorkbook.Sheets("PriorWeek")
Set sh4 = ActiveWorkbook.Sheets("Pivot")

sh4.Range("B29:B30").Select
Selection.Copy

sh4.Range("C29").Select
ActiveSheet.Paste

sh3.Range("A4:AC1000").Select
Selection.Delete

sh2.Range("A4:AC1000").Select
Selection.Copy

sh3.Range("A4").Select
ActiveSheet.Paste

End Sub

它有效...但只有当我在正确的工作表中执行特定功能时它才有效。

【问题讨论】：

而不是像sh1、sh2 等不可读的变量名称。为什么不称它们为有用和透明的东西，如shtBrand、shtCurrentWeek 等。工作中的一个人也是这样做的sh1 sh2 业务，当我们尝试阅读他的代码时，它会让每个人都抓狂。

@Jean-FrançoisCorbett 是的，这实际上是个好主意。起初我没有这样做的原因是因为在我的业务中，没有人知道如何编码。我试图自动化的这项任务已经手动完成了大约 2-3 年。这很荒谬，但这是个好主意！谢谢。

【参考方案1】：

通过删除select、selection 和activesheet，您将能够使此工作表独立

Sub START()

Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Dim sh4 As Worksheet

Set sh1 = ActiveWorkbook.Sheets("Brand")
Set sh2 = ActiveWorkbook.Sheets("CurrentWeek")
Set sh3 = ActiveWorkbook.Sheets("PriorWeek")
Set sh4 = ActiveWorkbook.Sheets("Pivot")

sh4.Range("B29:B30").Copy sh4.Range("C29")

sh3.Range("A4:AC1000").Delete

sh2.Range("A4:AC1000").Copy sh3.Range("A4")

End Sub

【参考方案2】：

你有了一个很好的开始。只需稍加改进，您就会拥有它。

基本上，至少在这种情况下，不需要.Select 您的范围（工作表、工作簿等）。您可以直接使用它们并使用Copy 提供它们将被复制到的目标。

见下面的代码：

Sub START()

Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Dim sh4 As Worksheet
Dim wkb As Workbook

Set wkb = Workbooks("wkbName") '-> best to call workbooks by name, as opposed to "ActiveWorkbook", also best to set it to object

With wkb '-> now we can work with this object directly and succinctly

    Set sh1 = .Sheets("Brand")
    Set sh2 = .Sheets("CurrentWeek")
    Set sh3 = .Sheets("PriorWeek")
    Set sh4 = .Sheets("Pivot")

    sh4.Range("B29:B30").Copy sh4.Range("C29")

    'sh3.Range("A4:AC1000").Delete -> you don't need this if you are overwritting it

    sh2.Range("A4:AC1000").Copy sh3.Range("A4")

End With

End Sub

【讨论】：

为什么要杀死变量？

@Mattboy -> 最好将它们从内存中删除。对于这么小的代码，没什么大不了的，但是当您有大型代码项目时，它会有所帮助。

无论如何，当你退出潜艇时它们会被杀死，但正如斯科特所说，当你真正需要它时，养成这个习惯并不是一个坏习惯。

是的@nutsch，那是我的想法。向人们展示良好的习惯，而不是忽视它:)

@ScottHoltzman：在每个过程结束时将所有对象设置为Nothing 将使您的代码充满大部分无用的样板垃圾。您只需要对 Class_Terminate 事件处理程序与全局变量和对象交互的方式不好的对象执行此操作——它们本身就是你不应该使用的坏东西（一个值得注意的例外是 VBA 奇怪的原生 Err 对象没有办法）。对于Workbook 和Worksheet 对象，这是无关紧要的，因此不要浪费你的呼吸在什么都没有。

【参考方案3】：

sheets("name1").range("B29:B30").copy Destination:=sheets("name2").range("C29")

假设工作表名称为 name1 和 name2，将从一个工作表复制到另一个工作表

【参考方案4】：

Sub START()

Sheet("Pivot").Range("B29:B30").Copy Sheet("Pivot").Range("C29")
Sheet("CurrentWeek").Range("A4:AC1000").Copy Sheet("PriorWeek").Range("A4")

End Sub

【讨论】：

-1 发布本质上是已接受答案的片段有什么意义？