将Excel VBA数组聚合代码转换为Access VBA Recordset实现的新手求助

背景 #

我是VBA新手（仅约1个月断断续续的学习经验），已经写了一段Excel VBA代码，用数组按特定条件聚合行数据，现在要把它用到Access数据库里，但发现Excel VBA和Access VBA有差异，没法顺利用Recordset替换数组引用。

我的核心需求：筛选唯一的portfolio number，把相同编号的行合并成一行，保留正确的min和max值（当前输出里同个portfolio number会有两行，一行min正确、max设为100，一行max正确、min设为0，需要合并成一行并删除重复行）。

现有Excel VBA代码 #

Sub RemDup()

    Dim raw_array, unq_array, temp, min_wght, max_wght, temp2, site_name, asset_class, neutral, class_weight, min_raw, max_raw As Variant
    Dim c_row, c_row2, r_length, c_length, unq_row, unq_row2 As Long
    
    'Placeholder. The data for raw_array should come from an acces recordset.
    raw_array = ThisWorkbook.Sheets("Sheet1").Range("A1").CurrentRegion.Value
    unq_array = ThisWorkbook.Sheets("Sheet1").Range("A1:G1").Value

    'Main part 1 of code. Filter unique values and place into second array
    For c_row = LBound(raw_array, 1) To UBound(raw_array, 1)
        site_name = raw_array(c_row, 1)
        temp = raw_array(c_row, 2)
        asset_class = raw_array(c_row, 3)
        min_wght = raw_array(c_row, 4)
        max_wght = raw_array(c_row, 5)
        neutral = raw_array(c_row, 6)
        class_weight = raw_array(c_row, 7)
        
        For c_row2 = LBound(unq_array, 1) To UBound(unq_array, 1)
            If Not temp = unq_array(c_row2, 2) Then
                GoTo skipsubloop
            Else
                GoTo skiploop
            End If
skipsubloop:
        Next c_row2
        r_length = UBound(unq_array, 1)
        c_length = UBound(unq_array, 2)
        unq_array = Application.Transpose(unq_array)
        ReDim Preserve unq_array(1 To c_length, 1 To r_length + 1)
        unq_array = Application.Transpose(unq_array)
        unq_array(r_length + 1, 1) = site_name
        unq_array(r_length + 1, 2) = temp
        unq_array(r_length + 1, 3) = asset_class
        unq_array(r_length + 1, 4) = min_wght
        unq_array(r_length + 1, 5) = max_wght
        unq_array(r_length + 1, 6) = neutral
        unq_array(r_length + 1, 7) = class_weight
skiploop:
    Next c_row

    'Main part 2 of code. Use unique values to aggregate rows according to certain condition.
    For unq_row = LBound(unq_array, 1) + 1 To UBound(unq_array, 1)
        temp2 = unq_array(unq_row, 2)
        
        For unq_row2 = LBound(raw_array, 1) + 1 To UBound(raw_array, 1)
            If temp2 = raw_array(unq_row2, 2) Then
                min_raw = raw_array(unq_row2, 4)
                max_raw = raw_array(unq_row2, 5)
                unq_array(unq_row, 4) = WorksheetFunction.Max(min_raw, unq_array(unq_row, 4))
                unq_array(unq_row, 5) = WorksheetFunction.Min(max_raw, unq_array(unq_row, 5))
            End If
        Next unq_row2
    Next unq_row
    
End Sub

当前输出问题 #

同一portfolio number会生成两行：一行min值正确但max设为100，一行max值正确但min设为0，需要合并为一行并保留正确的min和max，删除重复行。

入门迁移指引 #

1. 优先用SQL解决（最适合Access的方案） #

Access是数据库，核心优势是用SQL做数据聚合，比VBA数组循环效率高、代码简单。你的需求本质是按portfolio number分组，对min_wght取最大值、max_wght取最小值，其他同组内一致的字段直接保留。

先学基础分组SQL语法（替换成你的表名和字段名）：

SELECT 
    site_name,
    portfolio_number,  -- 对应你代码里的temp字段
    asset_class,
    MAX(min_wght) AS final_min,
    MIN(max_wght) AS final_max,
    neutral,
    class_weight
FROM 
    你的表名
GROUP BY 
    site_name, portfolio_number, asset_class, neutral, class_weight;

直接在Access的查询设计器里测试这段SQL，确认结果符合要求即可，这是最快的解决方式。

2. 若要继续用VBA+Recordset #

重点调整以下差异：

• Access没有WorksheetFunction，用VBA.Max/VBA.Min替代，或手动用IIf比较值
• Recordset遍历用rs.MoveFirst/rs.MoveNext循环，而非数组的LBound/UBound
• 去掉GoTo跳转，改用Exit For控制循环，代码更易读

3. 难度判断 #

你的需求完全在新手能力范围内：

• 用SQL实现：1-2小时学会基础分组查询，直接解决问题
• 用VBA+Recordset：基于现有Excel VBA基础，调整循环逻辑和对象引用，半天内可完成

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