-1

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

我想创建一个过程，通过信息循环遍历工作簿中的所有定义名称，从两个名称的交集中获取数据，将其带回主工作表，搜索相关的定义名称并将信息粘贴到相交的单元格。我知道您可以使用 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
4

1 回答 1

0

您可以使用 names 集合遍历工作表命名范围

For Each namedRange In Application.Workbooks("Vba Cost Budget").Worksheets("Costs").Names
    ...
Next namedRange
于 2013-07-03T07:33:54.043 回答