-1

まず、すべてのデータに名前が定義されているワークブックがありますが、データは散らばっています。

ワークブック内のすべての定義名を情報とともにループし、2 つの名前の共通部分からデータを取得し、それをマスター シートに戻し、関連する定義名を検索し、その情報を交差するセル。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