VBA能否从现有数组生成新数组？Excel合并行后筛选非空行输出到工作表

直接在原有代码基础上增加数组筛选、输出逻辑即可，完整实现代码如下：

Sub mergeCategoryValues2()
    Dim arr2 As Variant
    Dim rowcount As Long, colcount As Long, i As Long, k As Long
    Dim validRowCount As Long, newArr As Variant, newRowIdx As Long
    
    ' 原逻辑：加载表格数据+合并相同销售代表的行
    arr2 = ActiveSheet.ListObjects("APPLE").Range
    rowcount = UBound(arr2, 1)
    colcount = UBound(arr2, 2)
    
    For i = rowcount To 2 Step -1
        If arr2(i, 3) = arr2(i - 1, 3) Then
            arr2(i - 1, 6) = arr2(i - 1, 6) + arr2(i, 6)
            ' 优化：不需要循环整行赋值Null，仅标记第一列即可，减少不必要循环
            arr2(i, 1) = Null
        End If
    Next i
    
    ' 第一步：统计非Null的有效行数量
    validRowCount = 0
    For i = 1 To rowcount
        If Not IsNull(arr2(i, 1)) Then
            validRowCount = validRowCount + 1
        End If
    Next i
    
    ' 第二步：初始化新数组，3列对应你需要的原数组第3、2、6列，可自行调整列顺序
    ReDim newArr(1 To validRowCount, 1 To 3)
    
    ' 第三步：按要求填充新数组
    newRowIdx = 1
    For i = 1 To rowcount
        If Not IsNull(arr2(i, 1)) Then
            newArr(newRowIdx, 1) = arr2(i, 3) ' 原数组第3列
            newArr(newRowIdx, 2) = arr2(i, 2) ' 原数组第2列
            newArr(newRowIdx, 3) = arr2(i, 6) ' 原数组第6列
            newRowIdx = newRowIdx + 1
        End If
    Next i
    
    ' 第四步：批量写入工作表，示例从当前工作表A1开始输出，可自行修改目标位置
    ActiveSheet.Range("A1").Resize(UBound(newArr, 1), UBound(newArr, 2)).Value = newArr
End Sub

相关说明：

• 采用数组批量赋值的方式写入工作表，比逐单元格写入效率高很多，适配大数据量处理场景
• 如果需要保留原表头，统计有效行时从i=2开始遍历，再单独把表头字段写入新数组第一行即可
• 如需调整输出列的顺序或者增减输出列，只需要修改新数组的维度、以及赋值时对应原数组的列索引即可

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