エクセルマクロについて

エクセルマクロについて シート1にある日付を参照してシート2の横並びの日付の下にシート3のデータを値で自動貼り付けをやりたい場合はどうすれば良いですか?

Excel | Visual Basic22閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

以下の条件下の例文です。 シート1にある日付・・・Sheet1のA1セル シート2の横並びの日付・・・Sheet2の1行目 シート3のデータ・・・Sheet1のA1セル Sub sample() Dim rng1 As Range, i Set rng1 = Worksheets("Sheet1").Range("A1") With Worksheets("Sheet2").Range("1:1") i = Application.Match(rng1.Value2, .Cells, 0) If Not IsError(i) Then .Cells(2, i).Value = Worksheets("Sheet3").Range("A1").Value End If End With End Sub

ThanksImg質問者からのお礼コメント

i = Application.Match(rng1.Value2, .Cells, 0) Value2の2を消したら実行できました。ありがとうございます。

お礼日時:9/27 22:40