vba - 1 つのセル形式をそのセルの横にあるすべてのセルにコピーする方法は?

Question

行＃1で言うセルの色とフォントとスタイルをコピーするにはどうすればよいですか？しかし、Cell.Iのコンテンツではありません。以下のコードを書きましたが、上記のすべてがFirst Cellデータでコピーされますが、これは予想外です。

        ob3.Range("A1").Copy
    ob3.Range("A1").EntireRow.PasteSpecial(-4163) 'xlValues

ここを案内してください！

ありがとう、

Answer 1

次のことを試してください。

ob3.Range("A1").Copy 
ob3.Range("A1").EntireRow.PasteSpecial (xlPasteFormats) 
Application.CutCopyMode = False 

ここでスコットのポイントがわかります:)数値自体を設定するか、 aconstを使用してシートを介してこのフォーマットを使用できます。

Const xlPasteFormats = -4122 
Const xlPasteValues = -4163

ob3.Range("A1").Copy
ob3.Range("A1").EntireRow.PasteSpecial xlPasteFormats