Excel VBA删除第一个单元格以'

这可能是一个简单的问题，但我似乎无法find答案的任何地方，而且还是VBA的新手。 我有一个程序，导出数据到Excel。 我需要VBA代码来删除标题等于string的特定列。 我遇到了问题，因为一列是以“前面的单词”导出的。 这是我的代码：

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”之前删除了一列，所以它正在跳过它。 解决scheme是扭转。 谢谢各位的帮助！

 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