Excel VBA删除第一个单元格以'开头的列

Question

This is probably a simple question but I can't seem to find the answer anywhere and am still new to VBA. I have a program that exports data to excel. I need VBA code to delete specific columns with headers equal to strings. I am having issues because one column is exported with ' preceding the word. Here is my code:

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

The issue is the "B" column. I've tried = "B" and = "'B" and neither work. Any help is greatly appreciated! Let me know if I'm not being clear.

I've also tried:

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

Answer 1

Simple fix here... Not sure why I didn't think of this. Since I was deleting a column before "B", it was skipping right over it. Solution is to reverse. Thanks for all the help everyone!

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