Excel Labs技术问题：如何将指定单元格区域赋值给变量？

核心注意点 #

首先要明确：如果是要引用单元格区域对象，必须用Range类型变量，且赋值时要加Set关键字（这是VBA中对象赋值的强制要求）。你之前无法将A1:A10赋值给_sheet变量，大概率是因为_sheet的类型是Worksheet，和区域类型不匹配。

方法1：直接绑定区域对象（灵活指定工作表） #

如果需要保留对区域的实时引用，同时避免名称管理器绑定固定工作表的问题，可以用变量动态指定工作表，再赋值区域：

Dim targetWs As Worksheet
Dim targetRange As Range

' 动态指定目标工作表（可根据业务逻辑切换）
Set targetWs = ThisWorkbook.Worksheets("你的工作表名称")
' 将A1:A10赋值给变量
Set targetRange = targetWs.Range("A1:A10")

' 示例：操作这个区域变量
targetRange.Font.Bold = True

方法2：存储区域地址字符串，按需引用 #

如果需要更灵活地切换工作表使用同一区域地址，可以把区域地址存在字符串变量里，后续结合工作表变量调用：

Dim rangeAddr As String
rangeAddr = "A1:A10"

' 后续使用时，结合任意工作表变量
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("Sheet1")
Set ws2 = ThisWorkbook.Worksheets("Sheet2")

' 在不同工作表中引用同一地址的区域
ws1.Range(rangeAddr).Value = "测试内容"
ws2.Range(rangeAddr).ClearContents

方法3：将区域值存入数组（脱离原工作表依赖） #

如果只需要操作区域内的数据，不需要实时关联原单元格，可以把区域的值存入数组变量，这样就完全脱离了原工作表的绑定：

Dim rangeData As Variant

' 将A1:A10的值存入数组（二维数组，格式为 rangeData(行号, 列号)）
rangeData = ThisWorkbook.Worksheets("Sheet1").Range("A1:A10").Value

' 示例：遍历数组数据
Dim i As Integer
For i = 1 To UBound(rangeData)
    Debug.Print rangeData(i, 1)
Next i

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