Excel VBA – For Each…Next 陳述式

測試環境 Windows 10 + Excel 2016

透過 For Each…Next 陳述式來搜尋資料 , 參考文章 – https://learn.microsoft.com/zh-tw/office/vba/language/concepts/getting-started/using-for-eachnext-statements

下面程式會在 A1 到 D1 區間搜尋字串有 Error 字樣的,並變更為粗體.

Sub eachtest()
 For Each c In Range("A1:D1")
  If c.Value Like "*Error*" Then
   c.Font.Bold = True
  End If
 Next
End Sub

說明:

• For Each c In Range(“A1:D1”)
  使用 For Each Next 檢視範圍為 A1 到 D1.
• If c.Value Like “*Error*” Then
  如果欄位值包含 Error 字串.
• c.Font.Bold = True
  就變更為粗體.

執行結果: