With Tables("订单") .MergeMode = MergeModeEnum.Free '自由合并 .MergeCols.Clear() '清除原来的合并列 .MergeCols.Add("客户") '加入要合并的列 .MergeCols.Add("雇员") .MergeSort = "客户,雇员" '设置合并模式下的排序方式 .AllowMerge = True '启用合并模式End With