将其他工作表中的合并单元格复制到摘要工作表中的一个单元格中

Question

我有一个工作簿，其中有一个摘要表，并根据命令更新了新工作表（更改名称，从指定路径导入）。在摘要表中，我想收集其他表中存在的特定信息（它们都有相同的模板，填写了不同的信息）。

例如，我想将工作表X、工作表Y 和工作表Z 中的合并范围B3:O3 复制到汇总表中的单元格A2, B2, C2 中。

问题：

A) 我如何复制信息？

B) 如何将命令链接到现有的“刷新工作表”命令，该命令使用指定文件夹中的更新信息填充工作簿？

对 VBA 来说相对较新，如果问题是基本的，请见谅。谢谢！

Answer 1

假设B3:O3 是一个合并范围，您可以从每个范围中获取左上角的单元格。 Sub RefreshSheets 代表您现有的命令，然后在该代码中调用新的子 GetInfo。

像这样

Option Explicit

Public Sub RefreshSheets()

    'Your current refresh code
     GetInfo  'call to other sub

End Sub

Public Sub GetInfo()

Dim wb As Workbook
Set wb = ThisWorkbook

With wb.Worksheets("Summary Sheet")

   .Range("A2") = wb.Worksheets("X").Range("B3")
   .Range("B2") = wb.Worksheets("Y").Range("B3")
   .Range("C2") = wb.Worksheets("Z").Range("B3")

End With


End Sub

如果使用可变工作表名称，您可以按位置分配，例如

Sheets(Sheets.Count) 

或者使用变量

Dim X As String
X = "X"

Sheets(X)