Excel VBA中能否通过变量存储单元格地址构建单元格区域？

你的需求完全可行，但之前的代码存在两个关键错误，导致运行报错：

错误原因分析 #

• 变量类型与赋值逻辑错误：你定义的num1、num2是数值类型，且赋值的是Range("A1").Value——这是单元格内的内容，不是单元格地址。比如如果A1单元格内容是文本或非合法引用的数值，拼接后会生成无效的单元格引用，直接触发报错。
• 对象打印方式错误：Debug.Print (rng)直接打印Range对象是不合法的，需要打印对象的具体属性（比如地址Address、单元格数量Count等）。

正确实现方式 #

方式1：存储单元格地址字符串 #

直接把单元格地址（如"A1"）存为字符串变量，再拼接成合法的区域引用：

Sub check()
    Dim num1 As String, num2 As String
    Dim rng As Range
    
    ' 方式一：直接赋值地址字符串
    num1 = "A1"
    num2 = "A10"
    
    ' 方式二：通过Range对象的Address属性获取地址
    ' num1 = Range("A1").Address
    ' num2 = Range("A10").Address
    
    Set rng = Range(num1 & ":" & num2)
    Debug.Print rng.Address ' 输出区域地址：$A$1:$A$10
    Debug.Print rng.Count    ' 输出区域包含的单元格数量：10
End Sub

方式2：存储Range对象再组合 #

如果需要保留单元格对象的其他属性，可以直接存储Range对象，再用Range(rng1, rng2)的方式生成连续区域：

Sub checkWithRangeObjects()
    Dim rng1 As Range, rng2 As Range
    Dim rng As Range
    
    Set rng1 = Range("A1")
    Set rng2 = Range("A10")
    
    ' 用两个Range对象作为参数生成连续区域
    Set rng = Range(rng1, rng2)
    Debug.Print rng.Address ' 输出$A$1:$A$10
End Sub

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