將合並后的單元格從其他工作表復制到摘要工作表中的一個單元格中

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)