1つのセルを不特定範囲のセルに条件付き書式設定するためのVBAコード

Question

条件付き書式設定のVBAコードのヘルプを探しています。私が探しているのは、セルA1のB2から行の最後までの書式設定です（B2：Bは最後まで）

私は以下を試しましたが、これはB2セルのみをフォーマットすることを知っています。誰も助けることができますか？

Sub FormatPainter() 

Range("A1").Copy 

Range("B2").PasteSpecial Paste:=xlPasteFormats 
Application.CutCopyMode = False 

End Sub 

Answer 1

Sub FormatPainter() 
    Range("A1").Copy 
    Range("B2", Cells(2, Columns.Count).End(xlToLeft)).PasteSpecial Paste:=xlPasteFormats 
    Application.CutCopyMode = False 
End Sub 

Answer 2

とにかく、私は次のコードを試してみました、それが働きました。

Sub FormatPainter() 
    Range("A1").Copy 
    Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).PasteSpecial Paste:=xlPasteFormats 
    Application.CutCopyMode = False 
End Sub 

あなたの時間とサポートしてくれてありがとう:)