Excel VBA：如何将Range设置为活动列以适配不同列需求？

嘿，我来帮你把这个固定列的宏改成支持活动列的版本！这样你不用每次改代码或者复制宏，选中哪列就针对哪列跑，非常方便。

下面是两种实用的实现方式，你可以根据自己的操作习惯选：

方式一：点击列内任意单元格后运行 #

适合日常操作中，先点到目标列的某个单元格再启动宏的场景：

Dim rng As Range
Dim Lastrow As Long
Dim activeColNum As Integer

' 获取当前选中单元格的列号
activeColNum = ActiveCell.Column
' 计算该列最后一行有数据的行号（替换原来固定列1的写法）
Lastrow = ActiveSheet.Cells(Rows.Count, activeColNum).End(xlUp).Row
' 动态生成该列第2行到最后一行的范围
Set rng = ActiveSheet.Cells(2, activeColNum).Resize(Lastrow - 1, 1)

关键改动说明： #

• 用ActiveCell.Column替代了固定的列号1和硬编码的"J"，自动获取当前光标所在列
• 把Lastrow的类型从Integer改成Long：Excel的行数可能远超Integer的上限（32767），Long能支持更大的范围，避免报错
• 用Cells().Resize()的方式生成范围，比拼字符串（比如"J2:J"&Lastrow）更可靠，尤其是列号超过Z（比如AA、AB列）的时候

方式二：选中整列后运行 #

如果你习惯先选中整列再启动宏，可以用这个版本，还加了错误提示：

Dim rng As Range
Dim Lastrow As Long

' 先判断是否选中了单一整列
If Selection.Columns.Count = 1 Then
    ' 计算选中列的最后一行行号
    Lastrow = ActiveSheet.Cells(Rows.Count, Selection.Column).End(xlUp).Row
    ' 生成第2行到最后一行的范围（跳过表头）
    Set rng = Selection.Resize(Lastrow - 1).Offset(1, 0)
Else
    MsgBox "请先选中单一整列再运行宏哦！"
    Exit Sub
End If

这样修改后，不管你要处理哪一列，只要选中它（或者点到列内单元格），运行宏就会自动针对该列执行，再也不用手动改代码或者复制多个宏副本啦！

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