请问这个简单的宏应该怎么修改?

gz_wu

我在EXCEL 2010中录制了一个如下宏(含两个条件的筛选)

Sub 宏2()
'
' 宏2 宏
'
'
    Rows("14:173").Select
    ActiveWorkbook.Worksheets("Date").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Date").Sort.SortFields.Add Key:=Range("D14:D173") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Date").Sort.SortFields.Add Key:=Range("A14:A173") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Date").Sort
        .SetRange Range("A14:HG173")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

现在当我需要把宏的第一行:
    Rows("14:173").Select
改成:
    Rows("14:" & [B65536].End(3).Row).Select  之后；

上面录制宏中红色标示部分应该怎么修改？谢谢！

wangmengyuan349

你只是把173换成了 [B65536].End(3).Row，光看字面意思，只能看出来这么多

doitbest

Range("A14:HG" & [B65536].End(3).Row)

gz_wu

非常感谢doitbest ,问题解决了