Question

我以前从未在VBA中编程。

我需要重新格式化并从大型报告中对数据进行排序。

我的代码在接近结束时失败了。我已经删除了所有格式。我需要选择然后根据一个特定列进行排序。该报告长度可变。有时候，数据会有~10行，而在其他情况下，数据会有~10,000。

有些行是空的。

一些额外的细节：

我需要B栏到J列。
我的数据确实有标题行。
宏的末尾的示例代码如下（这是硬编码的版本。任何不确切大小的东西都失败了。我需要相同的功能，但不限于固定的数据集。）

Cells.Select
Range("J1").Activate
ActiveWorkbook.Worksheets("loc_can_pick_over").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("loc_can_pick_over").Sort.SortFields.Add Key:= _
    Range("D2:D1237"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
    :=xlSortNormal
With ActiveWorkbook.Worksheets("loc_can_pick_over").Sort
    .SetRange Range("A1:AN1237")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

选择动态行数据

0 个答案: