ID非公開

2020/9/22 21:24

11回答

エクセルマクロについて

エクセルマクロについて 入力シートから貼り付けシートにデータを値で貼り付けたいのです。 入力シートにある日付をもとに貼り付けシートの日付を見て、商品名を判断し、数量を貼り付けシートに値で自動で貼り付けたいのです。

画像

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

ベストアンサー

0

Sub 一例です() Dim sh2 As Worksheet, APP, i, ii Dim rng As Range, rngTr As Range, rngTc As Range Set APP = Application APP.ScreenUpdating = False Set sh2 = Worksheets("貼り付けシート") Set rngTr = sh2.Rows(2) Set rngTc = sh2.Columns(2) With Worksheets("入力シート") For Each rng In .Range("B2", .Cells(Rows.Count, 2).End(xlUp)) With rng i = APP.Match(.Value, rngTc, 0) ii = APP.Match(CLng(.Offset(, -1).Value), rngTr, 0) sh2.Cells(i, ii).Value = .Offset(, 1).Value End With Next rng End With APP.ScreenUpdating = True End Sub

ID非公開

質問者

2020/9/22 22:31

試してみます^_^

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

かいけつしませんでしたが、解決策がわからないので、ベストアンサーに決定します。ありがとうございました。

お礼日時:9/25 21:51