Codehelp VBAmacros

我怎样才能修改这个代码来处理多个列？ 例：

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