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

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

1 个答案: