如何將一個單元格格式複製到該單元格旁邊的所有單元格？

你能指導我說如何複製單元格的顏色，字體和樣式，比如說在第一行中？但不是Cell.I的內容，我寫了下面的代碼，但它被上面的First Cell數據所複製，我不會期望。如何將一個單元格格式複製到該單元格旁邊的所有單元格？

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

請指導這裏！

感謝，

2012-12-24 arun_roy

嘗試follwing：

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

我在這裏看到斯科特的點:)要麼你可以設置自己的號碼或者使用const通過您的工作表使用此formattig。

Const xlPasteFormats = -4122 
Const xlPasteValues = -4163 

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

2012-12-24 14:42:48 bonCodigo

您需要給他關聯的數值，因爲vbScript無法讀取'xlPasteFormats'，但它可以讀取任何枚舉。 –

@ScottHoltzman我從Excel VBA文檔中找到它，所以沒問題:-)它是'-4122' –

@ScottHoltzman +1並且謝謝你:) Tukai，我不確定它是否是'-4105'，它表示它是'-4122' – bonCodigo

回答