后面加上
With tables("某窗口名称_Tables1")
.MergeMode = MergeModeEnum.Standard '标准合并模式
.MergeCols.Clear() '清除原来的合并列
.MergeCols.Add(tbl.Cols(0).name) '加入要合并的列
.MergeCols.Add(tbl.Cols(1).name) '加入要合并的列
.MergeCols.Add(tbl.Cols(2).name) '加入要合并的
.MergeSort = tbl.Cols(0).name & "," & tbl.Cols(1).name & "," & tbl.Cols(2).name '设置合并模式下的排序方式
.AllowMerge = True '启用合并模式
End With