首页
学习
活动
专区
工具
TVP
发布
社区首页 >问答首页 >如何优化这个对SQL数据进行排序和格式化的宏?

如何优化这个对SQL数据进行排序和格式化的宏?
EN

Stack Overflow用户
提问于 2019-05-10 03:00:01
回答 1查看 31关注 0票数 0

我正在开发一个对原始SQL数据进行排序和格式化的excel程序。我有一个宏,需要一段时间来运行数据,我想优化它。

此宏将遍历大约3,500行数据,并删除与我的参数不匹配的成员资格。

代码语言:javascript
复制
Sub MemDel()
    Dim Row As Long
    For Row = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    With Cells(RowToTest, 1)
    If .Value <> "SILV" _
    And .Value <> "AARP" _
    And .Value <> "REA" _
    And .Value <> "SILVFIT" _
    Then _
    Rows(Row).EntireRow.Delete
    End With
    Next Row
End Sub
EN

回答 1

Stack Overflow用户

发布于 2019-05-10 03:21:51

下面是你如何实现@BigBen的建议:

代码语言:javascript
复制
Sub MemDel()

    Dim ws As Worksheet
    Dim rDel As Range
    Dim CheckCell As Range

    Set ws = ActiveWorkbook.ActiveSheet
    For Each CheckCell In ws.Range("A1", ws.Cells(ws.Rows.Count, "A").End(xlUp)).Cells
        Select Case CheckCell.Value
            Case "SILV", "AARP", "REA", "SILVFIT"   'do nothing
            Case Else:  If rDel Is Nothing Then Set rDel = CheckCell Else Set rDel = Union(rDel, CheckCell)
        End Select
    Next CheckCell

    If Not rDel Is Nothing Then rDel.EntireRow.Delete

End Sub
票数 3
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/56065984

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档