如何使用Excel VBA通过输入变量选中指定单元格范围

修改后的完整代码 #

Sub Datenanalyse()
'
' Datenanalyse Macro
'
' Keyboard Shortcut: Ctrl+j
    
    Dim c As Long
    ' 第一步：删除不需要的列
    For c = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
        Select Case Cells(1, c).Value
            Case "t", "Time [s]", "Intensity Region 1 ChS1", "Intensity Region 1 Ch2", "Intensity Region 2 ChS1", "Intensity Region 2 Ch2"
                ' 保留指定列，不操作
            Case Else
                Columns(c).EntireColumn.Delete
        End Select
    Next c
    
    ' 第二步：新增t列并填充1-1000序列
    Columns("A:A").Insert Shift:=xlToRight ' 在最左侧插入新列
    Range("A1").Value = "t" ' 写入列标题
    ' 填充1到1000的线性序列
    Range("A2").Value = 1
    Range("A3").Value = 2
    Range("A2:A3").AutoFill Destination:=Range("A2:A1001"), Type:=xlFillDefault
    
    ' 第三步：获取用户输入的行区间，加合法性校验
    Dim myValue1 As Long, myValue2 As Long
    On Error Resume Next ' 捕获用户输入非数字/取消输入的情况
    myValue1 = InputBox("First row number")
    myValue2 = InputBox("Second row number")
    On Error GoTo 0
    
    ' 校验输入合法性
    If myValue1 <= 0 Or myValue2 <= 0 Or myValue1 > myValue2 Or myValue2 > 1001 Then
        MsgBox "输入的行号不合法，请输入1-1001之间的数值，且起始行小于等于结束行", vbExclamation
        Exit Sub
    End If
    
    ' 修正范围选择的变量拼接逻辑
    Range("C" & myValue1 & ":F" & myValue2).Select
    
End Sub

核心修改说明 #

1. 范围选择变量报错修复：VBA不会自动解析双引号包裹的字符串内的变量，你原来的写法把变量名直接写在字符串里，会被识别为普通文本。需要用&运算符拼接固定字符串和变量值，才能正常读取变量生成目标范围。
2. t列新增与填充实现：先在最左侧插入空列，写入标题后用自动填充方法生成1到1000的线性递增序列，符合你的需求。
3. 新增异常校验逻辑：避免用户输入非数字、行号超出范围、起始行大于结束行等异常情况导致代码运行报错。

如果后续需要对选中范围做复制等操作，可以直接操作范围对象不需要提前调用Select，比如Range("C" & myValue1 & ":F" & myValue2).Copy，执行效率更高。

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