1
私のコードで助けが必要です。私はVBAの初心者ですので、このことを正しく理解することはできません。すでに別のスレッドから回答を検索していますが、あまりにも進んでいます。私はそれに従うことができません。VBAコード別の列をフィルタした後に表示列を塗りつぶす
ここで私が望む状況。 (列S)vlookupを使用してsheet3の一致データを検索し、N/A値のフィルタを使用します。 Q列の可視データを「Fulfilled」で塗りつぶしたいのですが、Q2にヘッダー値を入力して最後の行に塗りつぶすのは何ですか。
Sheets("Sheet1").Select
Range("S2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
' vlookup from sheet3
Range("S2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-14],Sheet3!C[-16],1,0)"
Selection.AutoFill Destination:=Range("S2:S" & Range("E" & Rows.Count).End(xlUp).Row)
Range("S2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("S2").Select
ActiveSheet.Range("$A$1:$S$20000").AutoFilter Field:=19, Criteria1:="#N/A"
' here it don't fill to last row
Range("Q2").Select
ActiveCell.FillDown
ご協力いただきありがとうございます。
ありがとうございます。それは働いた。 –
@RuzainiSubriあなたは歓迎です:) –