主页 / 问题 / 880076
Accepted
Sanvirtus
Asked:2020-09-11 21:36:22 +0000 UTC2020-09-11 21:36:22 +0000 UTC

在 VBA 中对单列进行排序

  • 772

该文档只有 1 列我需要对其进行排序

在此处输入图像描述

我正在尝试这样做，但出现错误：

NewWorkbook.Worksheets(2).[A:A].Sort Key1:=[A1], Order1:=xlAscending

在此处输入图像描述

我做错了什么，如何排序这是唯一的列？我在另一个宏中使用这种排序并且它有效：

NewWorkbook.Worksheets(1).[A:M].Sort Key1:=[M2], Order1:=xlAscending, Header:=xlYes
сортировка

2 个回答

  1. Best Answer

    宏记录器提供以下内容：

    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
    .SetRange Range("A:A")
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

    然后你可以为自己拉直......

    • 3 
  2.     Sub sort_()
Dim sht As Worksheet, rRng As Range
Dim lRw As Long
    Set sht = Worksheets(2)

    With sht
        lRw = .UsedRange.Rows.count + .UsedRange.Row - 1
        Set rRng = .Range("A1:A" & lRw)

        With .Sort
            .SortFields.Clear
            .SortFields.Add Key:=rRng, SortOn:=xlSortOnValues, Order:=xlAscending
            .SetRange rRng: .Apply
        End With
    End With

    Set sht = Nothing: Set rRng = Nothing
End Sub
    • 0

相关问题