excel - 在粘贴 Excel VBA 之前对范围进行排序

Question

我正在使用以下代码从 Workbook 复制特定范围给另一个 Workbook ，它工作正常。

但现在我需要对 Range 进行排序在粘贴到目标工作表之前按升序排列而不更改源。请帮忙。

With Workbooks(strExcelFile).Sheets(strSheetName)
     .Range(strRange).Copy
End With

ActiveSheet.Range(strDestCell).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False

Answer 1

利用粘贴后将选择新粘贴的范围这一事实；然后你可以使用选择。

Public Sub test()
     Range("A1:A8").Copy
    ActiveSheet.Range("B1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Selection.Sort key1:=Range("B1")
End Sub

该测试示例适用于任何包含 A1-A8 中一些数据的 Excel 文件。两个地方的 B1 都可以用 strDestCell 代替，A1:A8 可以用 strRange 代替，用于您最终的子例程。