Excel VBA中如何使用字符串变量替代列字母设置Range范围

修改方案 #

你只需要将代码中硬编码的列字母"G"全部替换为字符串变量strColumn即可，拼接范围地址时直接正常拼接变量就行。
修改后的完整代码如下：

Dim lastRowElemento As Integer
' 替换列位置为strColumn变量
lastRowElemento = Cells(Rows.Count, strColumn).End(xlUp).Row
' 拼接范围地址时直接拼接strColumn
Set rngElemento = ws.Range(strColumn & "2:" & strColumn & lastRowElemento)

注意事项 #

• 运行前请确保已经提前给strColumn完成赋值，比如strColumn = "G"，避免变量为空触发运行错误
• 后续需要切换目标列时，只需要修改strColumn的赋值即可，不需要调整范围的计算逻辑

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