排序和小计预选数据

Question

我正在使用工作表，并且在其中的某个时刻列出了费用清单。 但是，此列表会更改，因此可以具有不同数量的行。 我的最终目标是对成本清单进行排序，然后再进行小计。 因为我要排序的行数和小计始终是不同的，所以我想我可以创建一个只能处理预选数据的宏，例如，用户选择要应用于排序和小计的单元格范围。 我不能只处理所有活动单元格，因为有些行我不想包括在排序和小计中。

我记录了以下简单的宏来对数据进行排序和小计，但是，您会注意到它仅适用于记录宏时选择的单元格。 是否有人知道如何修改宏，以便用户可以首先使用鼠标手动选择单元格范围，然后单击一个按钮，该按钮会自动对预选数据进行排序并对其进行分类汇总？ 任何帮助都非常感谢，谢谢。

Sub Sort_and_Subtotal_CheckBox()

    ActiveWorkbook.Worksheets("dummy").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("dummy").AutoFilter.Sort.SortFields.Add Key:=Range( _
        "B151:B159"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("dummy").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B151:K156").Select
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(10), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

Answer 1

如果要获取所选范围，则只需在VBA中请求Selection.Address 。 但是，我认为这是假设选择是一个单元格块，因此，它可能不会总是给出期望的结果（例如，在多个选定范围的情况下）。 另一个解决方案可能是将成本列表转换为表格。 然后，您可以在宏中简单地引用一个命名范围，即新创建的表中的列。 该表将作为一个动态的命名范围，并且将始终包含值的整个范围。 如果您可以确定成本列表下方没有数据，那么第二种选择是检查存储成本列表的列中最后一行是否为空。 .Cells(.Rows.Count, "A").End(xlUp).Row来获取包含列表的列的最后一行。

Answer 2

试试这个代码。 这将允许用户使用输入框来选择范围。

Dim SortRng As Range

Set SortRng = Application.InputBox("Select the range to sort", "Select Range", 0, , , , , 8)

SortRng.Select
Selection.Sort Key1:=SortRng, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select