excel2007VBA 日付参照 列表示

質問

シート1の締日が　”ＡＡ3”　～　表記されていく表があります。
　　　　”ＡＡ4”以下は、各顧客の合計金額が記録されています。（月毎に　列、行、共に増えます。）

同じシート内で、”Ｋ1”に表記した日付の列を、金額のみ”ｋ4”以下に表記したいのですが、
いろいろ方法を考えてもどうしてもできません。
よろしくお願いします。

回答No.2

kkkkkm · ベストアンサー

同じような質問が他の方からも出てますがどこかの練習問題なのでしょうか・・・

Sub Example()
Dim MyColumn As Long, MyLastRow As Long

On Error Resume Next
With Sheets("Sheet1")
Range(Cells(4, "K"), Cells(100, "K")).Clear
'↑100はデータが最大となるであろう最終行を指定
MyColumn = WorksheetFunction.Match(.Range("K1").Value2, .Range("3:3"), 0)
'↑もしくはws2.Range("C1").Value2をws2.Range("C1")に
MyLastRow = .Cells(Rows.Count, MyColumn).End(xlUp).Row
.Range(Cells(MyLastRow, MyColumn), Cells(4, MyColumn)).Copy .Range("K4")
End With
End Sub

お礼

何度もすいません。
ありがとうございます。
出来ました！

回答No.3

kkkkkm

No2です。

> 同じような質問が他の方からも出てますが

と思ったら同じ人でしたか(笑)

回答No.1

mshr1962

VBA使う必要無いように感じます。HLOOKUP関数でいいのでは？

K4に
=IFERROR(HLOOKUP($K$1,$AA$3:$CZ4,ROW()-2,FALSE),"")
で、下方に必要分コピー

お礼

本当ですね！
簡単に表示出来て助かります。