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

Question

这可能是一个简单的问题，但我似乎无法在任何地方找到答案，并且对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

Answer 1

这里的简单修复...不确定为什么我没有想到这一点。 由于我要删除“ 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