Excel VBA да изтриете колона с първата клетка, започвайки с '- excel, vba, excel-vba

Това вероятно е прост въпрос, но не могаизглежда, че намерим отговора навсякъде и съм все още нов за VBA. Имам програма, която изнася данни за превъзхождам. Нуждая се от VBA код, за да изтриете конкретни колони с заглавия, равни на низове. Имам проблеми, защото една колона се експортира с "предшестваща думата.Тук е моят код:

For i = 1 To 7
If Cells(1, i).Value = "A" Then
Cells(1, i).EntireColumn.Delete
ElseIf Cells(1, i).Value = ""B" Then
Cells(1, i).EntireColumn.Delete
ElseIf Cells(1, i).Value = "C" Then
Cells(1, i).EntireColumn.Delete
End If
Next i

Въпросът е колона "Б". Аз опитах = "B" и = "" B "и не работя. Всяка помощ е много ценена! Позволете ми да знам, ако не съм ясен.

Аз също се опитах:

ElseIf Cells(1, i).Value = Chr(39) & "B" Then
Cells(1, i).EntireColumn.Delete

Отговори:

Просто поправете тук ... Не сте сигурни защо не съм мислил за това.Тъй като аз бях изтриване на колона преди "B", той е прескача над него.Разтворението е да се обърне.Благодаря за всички помощ всички!

For i = 7 To 1 Step -1
If Cells(1, i).Value = "A" Then
Cells(1, i).EntireColumn.Delete
ElseIf Cells(1, i).Value = "B" Then
Cells(1, i).EntireColumn.Delete
ElseIf Cells(1, i).Value = "C" Then
Cells(1, i).EntireColumn.Delete
End If
Next i