代码之家 › 专栏 › 技术社区 › Michael

排序范围时需要对象

vba excel

Michael · 技术社区 · 6 年前

我试图按列对一个范围进行排序:

Private Sub sort_all_by_group()
    Dim last_row As Integer
    Dim selected_cells
    Dim sort_criterion
    last_row = find_last_row()

    With Worksheets(MAIN_SHEET)
        selected_cells = Range(.Cells(2, 1), .Cells(last_row, LAST_COL))
        sort_criterion = Range(.Cells(2, 2), .Cells(last_row, LAST_COL))

        ' Run-time error 424: Object required.
        selected_cells.Sort key1:=sort_criterion, order1:=xlAscending, Header:=xlNo 

    End With

End Sub

在注释中,我指定了错误所在。

选定的单元格是范围对象。

1 回复 | 直到 5 年前

Storax 6 年前

如果选定的单元格是一个区域,则必须使用set关键字。到时候把它正确地读出来也会很好

Private Sub sort_all_by_group()
    Dim last_row As Integer
    Dim selected_cells As Range
    Dim sort_criterion As Range
    last_row = find_last_row()

    With Worksheets(MAIN_SHEET)
        Set selected_cells = .Range(.Cells(2, 1), .Cells(last_row, LAST_COL))
        Set sort_criterion = .Range(.Cells(2, 2), .Cells(last_row, LAST_COL))
        selected_cells.Sort key1:=sort_criterion, order1:=xlAscending, Header:=xlNo 
    End With

End Sub

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前