主题：交叉统计表中的合并单元格

交叉统计中，想对得出的统计表第1列中的相同内容的单元格进行合并，其中代码如下：

 

Dim HGroup As String

Dim VGroup As String

HGroup = e.Form.Controls ("HGroup").Text'水平分组

VGroup = e.Form.Controls ("VGroup").Text'垂直分组

Dim TotalOn As String

TotalOn = e.Form.Controls ("TotalOn").Text

 

With Tables("事件统计_Table1")

    .MergeMode = MergeModeEnum.Standard '标准合并模式

    .MergeCols.Clear() '清除原来的合并列

    .MergeCols.Add("VGroup") '加入要合并的列

    .MergeCols.Add("HGroup")

    .AllowMerge = True '启用合并模式

End With

 

上述代码无效果，代码改为.MergeCols.Add(".Cols(0)"),也不行，求解，谢谢！

 .MergeCols.Add(VGroup) 变量不要双引号

都试过了，不管用。改为自由合并也不行。

上例子吧

 

 

肯定可以的，比如

 

With Tables("事件统计_Table1")

    .MergeMode = MergeModeEnum.Standard '标准合并模式

    .MergeCols.Clear() '清除原来的合并列

    .MergeCols.Add(.Cols(0).Name) '加入要合并的列

    .AllowMerge = True '启用合并模式

End With

又进行了测试，代码没有问题，是其他问题，谢谢！