Question

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

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

问题：

A）如何复制信息？

B）如何将命令链接到现有的＆＃34;刷新表＆＃34;使用指定文件夹中的更新信息填充工作簿的命令？

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)

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

1 个答案: