Excel VBA行匹配

Question

我在Excel中大約有20列。 我必須檢查第一行中每個單元格中的值以匹配某些字符串。 例如A1 =“ first”，B1 =“ second”等。如果這些值與我想要的固定字符串值不匹配，則消息框應使用列名和值拋出錯誤。 有人可以幫忙嗎？

我試圖將輸入的值與粗體的行匹配（以紅色突出顯示，我在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

我已經嘗試過這樣的事情

Dim 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作為字符串

如果Trim（range（“ A1”）。Value）<>“ name”然后a =“列A的標題不正確”

如果Trim（range（“ B1”）。Value）<>“ type”然后a =“列B的標題不正確”

MsgBox（“發生以下錯誤”＆vbCrLf＆vbCrLf＆a＆b）

我想我知道了。 謝謝