求修正VBA代码：根据A1单元格值选择对应行B-E列区域

核心问题分析 #

原代码存在两个关键错误：

• 变量i未赋值，无法获取A1单元格的目标行号
• 区域地址拼接错误，"B:E" & CStr(i)会生成B:E5这种非法格式，正确的区域格式应为Bx:Ex

基础功能版代码 #

直接实现需求的最简代码：

Sub SelectTargetRow()
    Dim i As Integer
    ' 读取A1的数值赋值给i
    i = Range("A1").Value
    ' 拼接正确的区域地址并选中
    Range("B" & i & ":E" & i).Select
End Sub

带验证的健壮版代码 #

增加输入合法性检查，避免因A1内容无效导致报错：

Sub SelectTargetRowWithValidation()
    Dim i As Integer
    ' 检查A1是否为有效数字
    If IsNumeric(Range("A1").Value) Then
        i = Range("A1").Value
        ' 检查行号是否在Excel有效行范围内
        If i >= 1 And i <= Rows.Count Then
            Range("B" & i & ":E" & i).Select
        Else
            MsgBox "行号超出有效范围，请输入1到" & Rows.Count & "之间的数字！"
        End If
    Else
        MsgBox "请在A1单元格输入有效数字！"
    End If
End Sub

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