求教高手，如何逻辑删除一行（付图）

lu_zhao_long

顺顺爸 发表于 2013-4-7 23:02
再次请教高手，如果是逻辑删除列，怎么写呢？删除行的时候，可以用数字（123456789）循环，列（ABCDEFG…… ...

Option Explicit
Sub test()
Dim TempColumn As Integer, LastColumn As Integer
With Sheet1
    LastColumn = .Cells(.Columns.Count, 1).End(xlToLeft).Column     '得到第一行的最后一列列号
    For TempColumn = LastColumn To 1 Step -1
        If .Cells(1, TempColumn).Value <> "公司" Then                       '如果第一行第 TempColumn 列单元格内的值不为 "公司"
            If .Cells(1, TempColumn).Value <> "品目" Then                   '且它的值也不是"品目"
                If .Cells(1, TempColumn).Value <> "交易额" Then             '且它的值也不是"交易额"
                    If .Cells(1, TempColumn).Value <> "发生日期" Then       '且它的值也不是"发生日期"
                        .Columns(TempColumn).Delete                                 '则删除整列
                    End If
                End If
            End If
        End If
    Next TempColumn
End With
End Sub

lu_zhao_long

顺顺爸 发表于 2013-4-7 23:16
再次请教，如果遇到弹出msgbox（程序运行暂停，要我选择）的时候，我如何编程能全自动运行（即不暂停，直接 ...

我就在你的帖子中加了两句，我用红色字体并加粗了。楼主可以试试看。

顺顺爸

发的头两天看过几次没有回信，这两天忙其他事情，没来得及看。今天一看有了，正是意外加惊喜，谢谢。我先消化一下。