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

Question

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

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

问题：

A）如何复制信息？

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

对VBA来说相对较新，如果问题很基本，请原谅。 谢谢！

Answer 1

假设B3:O3是合并范​​围，则从每个区域的左上角单元格中选取。 Sub RefreshSheets代表您现有的命令，然后在该代码内调用新的Sub 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)