ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【Excel VBA】別々のシートのデータを一つのシートに集計するマクロ。




どうも、ゴリラストロングです。

 

今回は、別々のシートのデータを一つのシートに集計するマクロを作成しました。

 

※こちらの記事の続きです。 

gorilla-strong.hatenablog.com

 

 

<元データ>

f:id:gorilla-strong:20200304155432p:plain

f:id:gorilla-strong:20200304153439p:plain

<マクロ実行後>

f:id:gorilla-strong:20200304155558p:plain

 

 

 

 スポンサーリンク

 

 

 

ソースコード

Sub データ集計マクロ()

Dim macro As Object
Set macro = Workbooks("GSZ.xlsm").Worksheets("マクロ")

Dim kyotenn As Object
Set kyotenn = Workbooks(1).Worksheets(2)

Dim lastrow As Long
lastrow = macro.Cells(Rows.Count, 2).End(xlUp).Row

Dim lastcolumn As Long
lastcolumn = macro.Cells(7, Columns.Count).End(xlToLeft).Column




For j = 3 To lastcolumn


For i = 8 To lastrow



Dim sname As String
sname = macro.Range("B" & i)

Dim kname As String
kname = macro.Cells(7, j)

Dim Kcolumn As Long
Kcolumn = macro.Rows(7).Find(kname).Column

Dim Srow As Long
Srow = kyotenn.Columns("A").Find(sname).Row

Dim MSrow As Long
MSrow = macro.Columns("B").Find(sname).Row


macro.Cells(MSrow, Kcolumn) = Worksheets(kname).Cells(Srow, 4)



Next



Next



End Sub

 

<覚えておきたいコード>

Dim lastcolumn As Long

lastcolumn = macro.Cells(7, Columns.Count).End(xlToLeft).Column

上記のコードで最終列の列番号を取得することができます。

 

以上、ゴリラストロングでした。

 

 スポンサーリンク