Сравнение строк в Excel VBA

Question

У меня около 20 столбцов в excel. Я должен проверить значения в каждой ячейке в первой строке для соответствия определенным строкам. Например, 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

я попробовал что-то вроде этого

дим а, б, в, г, д, е, ж, з, I, J, K, L, M, N, O, P, q, r, s, t, u, v, w, x, y, z, aa, ab, ac As String

Если Trim (диапазон («A1»). Значение) <> «name» Затем = "заголовок для столбца A неверен"

Если уравновешивание (диапазон ("В1"). Значение) <> "тип" Тогда = "заголовок для столбца B неверен"

МздВох ("Следующая ошибка (ы) произошли" & vbCrLf & vbCrLf & & б)

я полагаю, я понял это. thx