VBA如何通过单元格存储的行列值构造Range(Cells(),Cells())动态区域

问题原因 #

你写的代码逻辑本身是成立的，无法运行绝大多数情况是没有明确指定参数所在的工作表：代码运行时如果活动工作表不是存储A5/A6/A7参数的工作表，Range和Cells会默认读取当前活动工作表的内容，就会出现值匹配错误、下标越界等问题。

修复后的代码 #

Sub Dynamic_Range()
    ' 明确指定存储参数的工作表，示例为Sheet1，可按实际名称修改
    Dim paramSht As Worksheet
    Set paramSht = ThisWorkbook.Worksheets("Sheet1")
    
    ' 校验参数合法性，避免空值/非数值导致运行报错
    If Not IsNumeric(paramSht.Range("A5").Value) Or Not IsNumeric(paramSht.Range("A6").Value) Or Not IsNumeric(paramSht.Range("A7").Value) Then
        MsgBox "行列参数存在非法值，请检查A5/A6/A7单元格内容"
        Exit Sub
    End If
    
    Dim startRow As Long, endRow As Long, targetCol As Long
    startRow = paramSht.Range("A5").Value
    endRow = paramSht.Range("A6").Value
    targetCol = paramSht.Range("A7").Value
    
    ' 生成动态区域，若目标区域和参数不在同一工作表，替换paramSht为目标工作表对象即可
    Dim rng As Range
    Set rng = paramSht.Range(paramSht.Cells(startRow, targetCol), paramSht.Cells(endRow, targetCol))
    
    ' 下方可添加你需要对rng执行的操作，示例为选中区域验证效果
    rng.Select
End Sub

补充说明 #

• 如果需要直接获取区域地址字符串，可以新增代码Dim rngAddress as String: rngAddress = rng.Address，即可拿到示例中$D$3:$D$9格式的标准地址
• 若后续需要扩展为多列动态区域，只需要新增列结束参数，修改Cells的列参数即可适配

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