Excel VBA：如何将依次找到的账户范围存储到不同变量

问题根源 #

你原代码的核心问题有两个：

• 定义了rAcct1、rAcct2这类Range变量，但实际赋值的是字符串变量sAcct1、sAcct2，没有用Set关键字保存Range对象，等于没真正存储单元格引用
• 用单独变量管理多个Range容易出现逻辑混乱，扩展和维护都麻烦

解决方案1：用数组存储Range对象 #

数组是管理多个同类型对象的最优方式，以下是适配你需求的代码：

Sub AcctCalcs_Array()
    Dim wsAccts As Worksheet
    Dim iCtr As Integer, iAcct_Ctr As Integer
    Dim districtRanges(1 To 4) As Range ' 声明最多存4个Range的数组

    Set wsAccts = ThisWorkbook.Sheets("Accounts")
    iCtr = 1
    iAcct_Ctr = 0

    Do Until iCtr = 21 Or IsEmpty(wsAccts.Range("B" & iCtr + 1)) Or iAcct_Ctr = 4
        If InStr(wsAccts.Range("B" & iCtr).Text, "District") > 0 Then
            iAcct_Ctr = iAcct_Ctr + 1
            ' 必须用Set关键字将Range对象存入数组
            Set districtRanges(iAcct_Ctr) = wsAccts.Range("B" & iCtr)
        End If
        iCtr = iCtr + 1
    Loop

    ' 后续使用示例：遍历数组中的Range对象
    Dim idx As Integer
    For idx = 1 To iAcct_Ctr
        Debug.Print "第" & idx & "个District账户地址：" & districtRanges(idx).Address
        ' 此处可添加你的业务逻辑，比如读取值、修改格式等
    Next idx
End Sub

数组使用关键要点 #

• 声明数组时指定范围(1 To 4)，刚好匹配你最多存4个的需求
• 存储Range对象必须用Set关键字，直接赋值会默认取Range的Value属性，而非单元格引用
• 后续调用时，通过数组下标（如districtRanges(1)）即可访问对应的Range对象

解决方案2：用Find/FindNext高效查找 #

你担心Find/FindNext会出问题，其实只要正确处理，它比循环遍历更高效，同样可以把结果存入数组：

Sub AcctCalcs_Find()
    Dim wsAccts As Worksheet
    Dim searchRange As Range
    Dim foundCell As Range
    Dim firstFoundAddr As String
    Dim districtRanges(1 To 4) As Range
    Dim iAcct_Ctr As Integer

    Set wsAccts = ThisWorkbook.Sheets("Accounts")
    Set searchRange = wsAccts.Range("B1:B20") ' 限定查找范围
    iAcct_Ctr = 0

    ' 第一次查找
    Set foundCell = searchRange.Find(What:="District", LookIn:=xlValues, LookAt:=xlPart)
    If Not foundCell Is Nothing Then
        firstFoundAddr = foundCell.Address ' 记录首个地址，避免无限循环
        Do
            iAcct_Ctr = iAcct_Ctr + 1
            Set districtRanges(iAcct_Ctr) = foundCell
            ' 查找下一个匹配项
            Set foundCell = searchRange.FindNext(foundCell)
            ' 停止条件：找不到匹配项、回到首个地址，或已存够4个
        Loop While Not foundCell Is Nothing And foundCell.Address <> firstFoundAddr And iAcct_Ctr < 4
    End If

    ' 后续使用示例
    Dim idx As Integer
    For idx = 1 To iAcct_Ctr
        Debug.Print "找到的账户：" & districtRanges(idx).Text & "，地址：" & districtRanges(idx).Address
    Next idx
End Sub

Find/FindNext注意事项 #

• 必须记录第一个找到的单元格地址，否则会陷入无限循环
• LookAt:=xlPart表示模糊匹配（单元格内容包含"District"），如需精确匹配可改为xlWhole
• 一旦存够4个对象就停止查找，符合你的需求

关于原代码中"sAcct1地址改变"的原因 #

你遇到的问题本质是混淆了字符串变量和Range对象：sAcct1是字符串类型，存的只是单元格当时的文本内容，并非单元格引用；只有用Set关键字保存的Range对象，才会始终指向对应的单元格。

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