Codehelp VBA宏

Question

如何修改此代码以使用多个列？ 例如：

Sub demo() 
    Dim RaFound As Range 
    Set RaFound = Rows(1).Find("cost", , , xlPart, , xlNext) 
    If Not RaFound Is Nothing Then 
    RaFound.EntireColumn.NumberFormat = "#,##0.00 _€" 
    End If 
End Sub 

我想格式化还列，如“价格”和“数量”过。 这段代码应该如何修改？

非常感谢谁能帮助

Answer 1

见下文。单词可以从表Range("A1:C5")或硬编码到一个阵列中：

Dim RaFound As Range 
Dim words() As Variant 
Dim word As Variant 

words = Array("cost", "price", "quantity") 

For Each word In words 

    Set RaFound = Rows(1).Find(word, , , xlPart, , xlNext) 

    If Not RaFound Is Nothing Then 
     RaFound.EntireColumn.NumberFormat = "#,##0.00 _€" 
    End If 

Next word