Excel VBA行匹配

我有大约20列的Excel。 我必须检查第一行中每个单元格的值以匹配某些string。 例如A1 =“first”，B1 =“second”等。如果这些值与我想要的固定string值不匹配，那么messagebox应该对列名和值抛出错误。 有人可以帮忙吗？

我试图匹配粗体行中的值将进入（红色突出显示，我没有这些在Excel中）。 如果他们不匹配，我想列名在popup消息框中。

Answer 1

你的问题不是很清楚，我现在还不能发表“意见”。

在这里黑暗中射击，但也可以沿着这些线路？ 这没有经过testing，不是完整的代码，但应该让你走得比你已经提出的更远。

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作为string

如果修剪（范围（“A1”）。值）<>“名称”然后a =“标题A列不正确”

如果修剪（范围（“B1”）。值）<>“键入”然后a =“列B的标题不正确”

MsgBox（“发生以下错误”＆vbCrLf＆vbCrLf＆a＆b）

我想我知道了。 谢谢