我测试可以
With Tables("表A") .MergeMode = MergeModeEnum.Free .MergeCols.Clear() .MergeCols.Add("第一列") .MergeSort = "第一列,_Identify" .AllowMerge = TrueEnd With