Excelマクロについて教えてください。 シート1のD列に特定の文字が含まれていれば、シート1の商品コードを、シート2のBに転記させたいです。

補足

シート1の商品コードはB列にあります。

Excel | Visual Basic59閲覧

ベストアンサー

0

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

ありがとうございました。

お礼日時:2021/12/6 7:46

その他の回答(1件)

0

前提 1) シート3を用意して, A1に、シート1のB列の見出しと同じ値を入力 A2に、「特定の値」を「*」に挟んで入力(例:*京都*)=>部分一致 完全一致なら、「*」不要。 前方一致・後方一致も可能。 2) シート2のB2(項目名)は、シート1のB列の項目名と同じものを入力 3) シート1の見出しはすべて異なる値にする 以下例文 Sub sample() Dim sh As Worksheet Set sh = Worksheets("シート2") If sh.Range("B3").Value <> "" Then sh.Range("B3", sh.Cells(Rows.Count, 2).End(xlUp)).ClearContents End If With Worksheets("シート1") .Range("D1", .Cells(Rows.Count, 2).End(xlUp)).AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=Worksheets("シート3").Range("A1:A2"), _ CopyToRange:=sh.Range("B2"), Unique:=False End With End Sub