VBA多变量循环实现方案咨询：如何避免代码重复

针对你的需求，用带数字后缀的变量会导致代码冗余且易混淆，最优方案是通过自定义数据类型打包每组变量，配合循环批量处理，彻底避免重复编写代码。

具体实现步骤 #

1. 定义自定义数据类型 #

在模块顶部（所有Sub代码之外）定义一个包含全部所需变量的自定义类型，把每组迭代的字段统一打包：

' 放在模块最顶部，独立于所有Sub过程
Type TestData
    present As Integer
    copycell As String
    score As Integer
    points As Double
    best As String
    subtest As Integer
    subplace As String
End Type

2. 提取核心逻辑为独立子过程 #

把你标记的循环执行代码段，改成接受TestData类型参数的子过程，让每组数据都能复用这段逻辑：

Private Sub ProcessTestData(data As TestData)
    If data.present = 0 Then
        data.score = "xx" & data.score
    End If
    If data.present = 1 Then
        ' 注：原代码中frombest1未定义，这里假设是笔误，你可根据实际逻辑修正
        Range(data.best).Copy
        Worksheets(8).Range(data.best).PasteSpecial Paste:=xlPasteValues
        Worksheets(7).Range(data.copycell).Value = data.points
        If data.subtest = True Then
            data.copycell = Range(data.subplace).Value
        End If
    End If

    Worksheets(6).Range(data.copycell).Value = data.score
    ' 建议去掉Activate/Select，直接通过工作表对象操作单元格，更稳定高效
End Sub

3. 主过程循环处理多组数据 #

在按钮点击事件里，把每组数据的单元格地址整理到数组中，循环读取数据到TestData变量，再调用子过程处理：

Private Sub CommandButton2_Click()
    Dim dataArr(1 To 2) As TestData ' 按实际需要处理的组数调整数组范围
    Dim i As Integer

    ' 赋值第1组数据
    With dataArr(1)
        .present = Range("D9").Value
        .copycell = Range("CK9").Value
        .score = Range("AA9").Value
        .points = Range("AG9").Value
        .best = Range("DZ9").Value
        .subtest = Range("CI11").Value
        .subplace = Range("CK11").Value
    End With

    ' 赋值第2组数据
    With dataArr(2)
        .present = Range("D13").Value
        .copycell = Range("CK10").Value
        .score = Range("AA13").Value
        .points = Range("AG13").Value
        .best = Range("DZ10").Value
        .subtest = Range("CI12").Value
        .subplace = Range("CK12").Value
    End With

    ' 循环处理所有组数据
    For i = 1 To UBound(dataArr)
        ProcessTestData dataArr(i)
    Next i
End Sub

方案优势 #

• 解决变量混淆：每组数据打包在一个自定义类型变量中，通过.字段名访问，清晰直观
• 消除代码冗余：核心逻辑仅编写一次，循环调用即可处理多组数据
• 扩展性强：后续新增数据组，只需在数组中添加新的赋值块，无需修改核心处理代码

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