基于关键字列表对两个单元格区域排序的VBA代码问题

你的代码出现“区域为空”提示，核心是两个变量引用错误：

• 未使用定义好的行号变量：你声明了lastRowI和lastRowk来获取I、K列的最后行号，但后续构造区域时用了未定义的lastRow，导致生成的单元格范围行号为空，无法定位有效区域。
• 排序对象名不匹配：你定义了sortRangeI和sortRangek作为排序区域，但排序时调用的是未声明的sortRange对象，程序找不到目标区域。

以下是修正后的完整代码：

Sub SortDataIK()
    
    Dim ws As Worksheet
    Dim lastRowI As Long
    Dim lastRowk As Long
    Dim sortRangeI As Range
    Dim sortRangek As Range
    
    Set ws = ThisWorkbook.Worksheets("Data")
    
    lastRowI = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
    lastRowk = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row
     
    ' 对I-J列按J列数值升序排序
    Set sortRangeI = ws.Range("I1:J" & lastRowI)
    sortRangeI.Sort Key1:=ws.Range("J1"), Order1:=xlAscending, Header:=xlNo
    
    ' 对K-L列按L列数值升序排序
    Set sortRangek = ws.Range("K1:L" & lastRowk)
    sortRangek.Sort Key1:=ws.Range("L1"), Order1:=xlAscending, Header:=xlNo

End Sub

额外提示：

• 如果你的数据第一行是列标题，需要把Header:=xlNo改为Header:=xlYes，避免表头被纳入排序范围。
• 若I/K列可能存在无数据的情况，可添加行号判断（比如If lastRowI > 1 Then），防止空区域报错。

内容的提问来源于stack exchange，提问作者tome10