如何用Range变量引用目标区域右侧1列的单元格区域并设置格式？

我来帮你解决这个Range定位的问题！你原来代码里的Columns(rng).Select是踩了个小坑——Columns方法没法直接接收一个Range对象当参数，得换个更靠谱的方式来定位你要的右侧区域。

先给你看修正后的完整代码，我会一步步解释关键改动：

Sub InputBox_Range_Test()
    Dim rng As Range
    Dim targetRng As Range
    
    ' 弹出输入框让用户选择待处理区域
    Set rng = Application.InputBox(Prompt:="请选择待处理区域", Type:=8)
    
    ' 精准定位到选择区域右侧1列的对应大小区域
    Set targetRng = rng.Offset(ColumnOffset:=1)
    
    ' 尝试选中目标区域，处理可能的选中失败情况
    On Error Resume Next
    targetRng.Select
    If Err.Number <> 0 Then
        ' 要是选不中目标区域（比如特殊的不连续区域），就退而选中整列
        targetRng.EntireColumn.Select
        Err.Clear
    End If
    On Error GoTo 0 ' 恢复正常错误检测
    
    ' 给选中的区域设置百分比格式
    Selection.NumberFormat = "0.00%"
    
    ' 如果你需要最后定位到I4，保留这行就行
    ' Range("I4").Select
End Sub

关键改动说明： #

• Offset(ColumnOffset:=1)：这是获取右侧对应区域的核心——它会生成一个和你选中的rng大小、形状完全一致，只是整体向右偏移1列的Range对象，刚好匹配你放置新数据的位置。不管你选的是单个单元格、整列还是一块不规则区域，这个方法都能精准对应。
• 错误处理逻辑：我加了简单的错误捕获，万一因为某些特殊情况（比如你选的是极度分散的不连续区域，导致targetRng没法被选中），代码会自动切换成选中目标区域对应的整列，完美符合你的备选方案。
• 额外优化提示：其实你完全可以不用依赖Selection来设置格式，直接给targetRng赋值就行，比如把Selection.NumberFormat改成targetRng.NumberFormat，这样即使不选中区域也能完成格式设置，效率更高——不过我还是按照你要求的“优先选中区域”的逻辑保留了选中步骤。

如果你的需求是“选中原区域最右侧列的右边那一整列”（而不是对应大小的区域），那可以把Set targetRng那行改成：

Set targetRng = rng.EntireColumn.Offset(ColumnOffset:=1)

这样就能直接定位到整列啦！

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