[已解决]不是重复，循环删除指定内容的列

追梦人亮

刚才问了一个问题多谢as0810114班长的帮助，非常感谢！
再说说问题，怎样循环删除我工作簿中所有工作表中开盘，最高，最低，成交量，成交额所有的列
这是as0810114班长编的，但我现在又有一个问题，怎样指定内容的删除，如指定有"最低"内容的列删除，
Sub shanchu()
Dim i As Integer
For i = 1 To Sheets.Count
    Sheets(i).Range("B:G").ClearContents
    Next
End Sub
希望能帮助一下哈！非常感谢！

最佳答案

月排行榜 / 总排行榜

suye1010

2013-10-22 19:56

Sub DelCol()
Dim sh, FText, Foundrng
FText = InputBox("请输入要删除列的字段名称", "删除内容", vbOKCancel)
If Len(FText) Then
    For Each sh In ThisWorkbook.Sheets
        Set Foundrng = sh.Range("A2:G2").Find(FText)
        If Not Foundrng Is Nothing Then
            Foundrng.EntireColumn.Delete
        End If
    Next
End If
End Sub

跳转到最佳答案楼层

suye1010

Sub DelCol()
Dim sh, FText, Foundrng
FText = InputBox("请输入要删除列的字段名称", "删除内容", vbOKCancel)
If Len(FText) Then
    For Each sh In ThisWorkbook.Sheets
        Set Foundrng = sh.Range("A2:G2").Find(FText)
        If Not Foundrng Is Nothing Then
            Foundrng.EntireColumn.Delete
        End If
    Next
End If
End Sub

追梦人亮

suye1010 发表于 2013-10-22 19:56
Sub DelCol()
Dim sh, FText, Foundrng
FText = InputBox("请输入要删除列的字段名称", "删除内容", vbOK ...

很强大，佩服，比我原来想的功能还强大！非常感谢！