VBA使用Cells而非固定Range实现动态列排序的代码报错求助

原代码错误排查 #

你的代码核心问题并非Key1参数引用错误，而是范围构造逻辑完全失效：

• 你为firstpy、lastpy赋值时，读取的是目标单元格内存储的业务值，而非单元格的位置标识，后续用Range(firstpy & lastpy)拼接出的字符串是两个单元格内容的组合，根本不是合法的Excel范围地址，会直接触发运行时错误。
• 动态列场景下不需要手动拼接地址字符串，直接通过Cells行号列号定位首尾单元格构造Range对象，是最稳定、不易出错的写法。

可直接运行的正确代码 #

' 定义排序范围：固定34-57行，列为前期赋值好的currentcol
Dim sortRange As Range
Set sortRange = Range(Cells(34, currentcol), Cells(57, currentcol))

' 执行升序排序
sortRange.Sort _
    Key1:=sortRange.Cells(1), _
    Order1:=xlAscending, _
    Header:=xlNo

补充说明 #

• 如果排序需要联动相邻列的同行数据（比如目标列是序号，需要同一行的名称、数值跟着序号同步调整顺序），只需要调整sortRange的列范围即可，例：需要覆盖目标列及右侧2列的34-57行，可写为Set sortRange = Range(Cells(34, currentcol), Cells(57, currentcol + 2))，排序关键字无需修改。
• 运行前请确认currentcol已被赋值为合法的数字列号（如A列对应1、B列对应2），避免列号越界报错。

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