Excel VBA行匹配

Question

我在excel中有大約20列。我必須檢查第一行中每個單元格中的值以匹配某些字符串。例如A1 =「first」，B1 =「second」等。如果這些值與我想要的固定字符串值不匹配，那麼messagebox應該在列名和值中引發錯誤。有人可以幫忙嗎？

我試圖以粗體顯示的一行中的值將進入匹配（以紅色突出顯示，我沒有這些在Excel中）。如果它們不匹配，我希望列名在消息框中彈出。

Answer 1

您的問題不是很清楚，我無法發佈「評論」尚未/仍然。

只要在這裏黑暗中拍攝，但沿着這些線條可能？這沒有經過測試，並不是完整的代碼，但應該讓你比你已經呈現的更遠。

LastRow = Sheets("SheetName").Range("A" & Rows.Count).End(xlUp).Row: x = 1 

For Each c1 In Sheets("SheetName").Range("A1:A" & LastRow) 
    If c1.Value = "first" 
     x = x + 1 
     msgbox, 「This is a message」 

    End If 
Next c1 

Answer 2

我試圖像這樣

暗淡A，B，C，d，E，F，G，H，I，J，K，L，M，N，O，P， q，r，s，t，u，v，w，x，y，z，aa，ab，ac如字符串

如果修剪（範圍（「A1」）。值）<> = 「部首爲A列是不正確」

如果TRIM（範圍（ 「B1」）。值）<> 「類型」 則a = 「頁眉爲列B是不正確」

MSGBOX（ 「以下錯誤（S）是否出現」 & vbCrLf & vbCrLf &一個& B）

我想我理解了它。 thx