Excel VBA для видалення стовпця з першою клітиною, починаючи з '- excel, vba, excel-vba

Це, мабуть, просте питання, але я не можуЗдається, знайти відповідь де-небудь і я все ще новачок у VBA. У мене є програма, яка експортує дані до Excel. Мені потрібен код 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" і = "" 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