Question

首先，我的工作簿都在数据中定义了名称，但数据是分散的。

我想创建一个循环遍历工作簿中所有定义名称的过程和信息，从两个名称的交集处获取数据，将其带回主表，搜索相关的定义名称并粘贴交叉单元格中的信息。我知道您可以使用Names命令搜索名称。我仍然缺乏经验将其付诸行动。

再次感谢您的帮助。

这是我到目前为止编写的代码。

Sub Workbook()

Dim source1 As Integer, source2 As Integer, master1 As Integer, master2 As Integer


source1 = Application.Workbooks("Vba Cost Budget").Worksheets("Costs").Range("Bottles").Column
source2 = Application.Workbooks("Vba Cost Budget").Worksheets("costs").Range("Variable_labor").Row

master1 = Application.Workbooks("Budget Template").Worksheets("Dataset").Range("Bottles").Column
master2 = Application.Workbooks("Budget Template").Worksheets("Dataset").Range("Variable_labor").Row

Application.Workbooks("Budget Template").Worksheets("Sheet1").Cells(master1, master2) = Application.Workbooks("Vba Bottling Variable Cost Budget").Worksheets("costs").Cells(source1, source2)

End Sub

Answer 1

您可以使用名称集合

循环工作表命名范围

For Each namedRange In Application.Workbooks("Vba Cost Budget").Worksheets("Costs").Names
    ...
Next namedRange

使用“定义名称”将多个工作簿中的信息提取到主工作簿中

1 个答案: