VBA求助：如何动态生成列索引数组实现多列去重？代码报错无效过程调用参数

报错核心原因 #

你遇到的「无效的过程调用或参数」错误，本质是动态生成的数组不符合RemoveDuplicates方法的入参要求，和硬编码Array参数的差异主要在两点：

• 循环内反复执行ReDim Preserve darray(i)时，VBA默认数组下界为0，最终生成的数组会多出一个未赋值的第0位元素（默认值为0）。而工作表列索引从1开始，传入包含0的列索引数组时，方法会判定参数非法
• 传参时Columns:=(darray)外层的多余括号，会强制将数组转换为单值类型，破坏一维数组的结构，触发调用错误

你硬编码的Array(1,2,3,4)能正常运行，是因为VBA的Array函数生成的数组元素恰好是连续的有效列索引，没有多余的无效0值，也没有被额外括号强制转换。

问题解决步骤 #

1. 正确创建从索引1起始的列数组 #

不要在循环内反复ReDim Preserve数组，直接一次性指定数组的上下界，让数组从下标1开始存储列索引，彻底消除默认0基带来的冗余元素：

Dim darray() As Long
' 直接定义数组：下界1，上界等于目标表总列数，无多余空位
ReDim darray(1 To LastCol1)
Dim i As Integer
For i = 1 To LastCol1
    darray(i) = i
Next i

这种方式生成的数组结构和硬编码Array(1,2,3,...n)完全等效，不会出现无效元素。

2. 正确传参给RemoveDuplicates方法 #

传参时直接将数组变量作为参数值传入，不要额外添加外层括号包裹数组：

' 修正后的动态多列去重代码
Dim dedupRange As Range
Set dedupRange = wsDest.Range("A1:" & wsDest.Cells(LastRow1, LastCol1).Address)
dedupRange.RemoveDuplicates Columns:=darray, Header:=xlYes

可顺手优化的其他代码问题 #

• 你排序代码里的排序键范围用了临时变量LastRow（单个待合并文件的行数），应该替换为最终合并完成后的目标表行数LastRow1，否则排序范围会出错
• 数据透视表的数据源目前硬编码为R1C1:R39C4，可以结合LastRow1、LastCol1动态生成单元格地址，避免数据量变化时透视表取数不全
• 合并数据时设置的Transpose:=True会将原表的行列转置后粘贴，和常规纵向合并的业务逻辑不符，建议核对业务需求是否需要保留该转置设置

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