在不选择该工作表的情况下对另一工作表中的列进

Question

是否可以在不选择该表的情况下对另一个表中的列进行排序？问题是当我运行这段代码时,我希望隐藏这个工作表,当我需要对表进行排序时,我不希望它闪存到它.这是我的代码...这有效,但它显然选择了工作表并显示另一个工作表.也许用"制作活动表"的东西可以工作,然后说'制作活动单元'.我不确定.多谢你们.

 Application.Worksheets("RawDataLines").Select

    Application.Worksheets("RawDataLines").Range("Q5").Select
    Application.Worksheets("RawDataLines").Range("A4:R1007").Sort Key1:=Range("Q5"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

    Application.Worksheets("RawDataLines").Range("A5").Select
    Application.Worksheets("RawDataLines").Range("A4:R1007").Sort Key1:=Range("A5"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Answer 1

这个:

Application.Worksheets("RawDataLines").Select
Application.Worksheets("RawDataLines").Range("Q5").Select
Application.Worksheets("RawDataLines").Range("A4:R1007").Sort ... 

可能是这样的:

With Application.Worksheets("RawDataLines")
    .Range("A4:R1007").Sort  Key1:= .Range("A5")'...
End With