エクセルのマクロについて質問です。

質問

エクセルのマクロについて質問です。

マクロを発動した時に、あるセルに入力してある数値を参照し、その行のＸ列目に数値を張り付けるものを作成しようとしています。

例えば
シート「1」の
Ａ1に日付を入力
Ｂ1にある数字を入力

シート「2」の
Ａ列にＡ1→1～Ａ31→31の日付が入力されている時

マクロ発動時にシート「1」Ａ1の日付と一致する
シート「2」のＢ列にシート「1」のＢ1の値を貼り付け

↑たとえばシート「1」のＡ1が1日でＢ1が500だった場合
シート「2」の1日（Ａ1）と同じ行でＢ列（Ｂ1に500を
貼り付けるものです。

かなり下手な説明だと自覚しておりますが、解読できる方
どうかご教授ねがいます。

回答No.2

myRange · ベストアンサー

質問のとおりなら、日にちで検索する必要はありませんね。

'---------------------------　
Sub test()
Dim D as Integer
D=Sheets("Sheet1").Range("A1").Value
Sheets("Sheet2").Cells(D, "B").Value = Sheets("Sheet1").Range("B1").Value
End Sub
'---------------------------

尚、変数Ｄは使う必要はありませんが代入部分のコードが長くなると見にくいので。　
以上です。

お礼

お礼に書いたつもりが捕捉に入力してしまっておりました。
申し訳ございません。

補足

とてもシンプルな構文ありがとうございます。
正常で希望通りの動作をしております。

私にも理解でき、かつ応用の幅の広い素晴らしい回答です。
本当にありがとうございます。

回答No.1

tom04

こんばんは！
外していたらごめんなさ。

Sheet1とSheet2のA列の行の並びは同じということですかね？
それだとA列は無視しても大丈夫だと思います。
一例です。
質問に「X列目」とありますので、敢えて「X」を変数にしています。

↓のコードを標準モジュールにコピー＆ペーストしてマクロを実行してみてください。

Sub test1()
Dim i, X As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")
For i = 1 To 31
X = 2
If ws1.Cells(i, 2) <> "" Then
ws2.Cells(i, X) = ws1.Cells(i, 2)
End If
Next i
End Sub

尚、余計なお世話かもしれませんが、もし、Sheet1とSheet2のA列の並びが違う場合のコードも載せておきます。

Sub test2()
Dim i, j, X As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")
For i = 1 To 31
For j = 1 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
X = 2
If ws2.Cells(j, 1) = ws1.Cells(i, 1) Then
ws2.Cells(j, X) = ws1.Cells(i, 2)
End If
Next j
Next i
End Sub

コード内にある、「X]は好みによって変更してみてください。m(__)m

お礼

ありがとうございます。
素晴らしい動作をしておりますが、、、、今の私には理解できない高レベルな回答でした。
理解力がなく申し訳ありません。