tabObjId：table 的id 

cellindex ：无效，可根据需要修改成有效。

beginRow：从第几行开始，暂时默认传0，其他未测试。

function SpanGrid(tabObjId, cellindex, beginRow) {

    var colIndex = cellindex;
    var rowBeginIndex = beginRow;
    var tabObj = document.getElementById(tabObjId);
    if (tabObj != null) {
        var i, j, m, k, q,w,e,r;


        var intSpan;
        var strTemp;

        m = 0;

//这个For循环是合并行

        for(k=0;k<tabObj.rows[0].cells.length; k++){
            colIndex=k;
            for (i = rowBeginIndex; i < tabObj.rows.length; i++) {
                        intSpan = 1;
                        m++;
                        strTemp = tabObj.rows[i].cells[colIndex].innerText;
                        for (j = i + 1; j < tabObj.rows.length; j++) {
                            if (strTemp == tabObj.rows[j].cells[colIndex].innerText) {
                                intSpan++;
                                tabObj.rows[i].cells[colIndex].rowSpan = intSpan;
                                tabObj.rows[j].cells[colIndex].style.display = "none";
                            }
                            else {
                                break;
                            }
                        }


            }
        }
//这个For循环是合并列（无需合并列可删除）
        for (q = rowBeginIndex; q < tabObj.rows.length; q++) {
            for(w=0;w<tabObj.rows[0].cells.length; w++){
                intSpan = 1;
                colspan = tabObj.rows[q].cells[w].rowSpan;
                strTemp = tabObj.rows[q].cells[w].innerText;
                if( "none" == tabObj.rows[q].cells[w].style.display){
                    continue;
                }
                for(e=w+1;e<tabObj.rows[q].cells.length; e++){
                    if( "none" == tabObj.rows[q].cells[e].style.display){
                        continue;
                    }
                    colspan1 =tabObj.rows[q].cells[e].rowSpan
                    if(strTemp == tabObj.rows[q].cells[e].innerText && ( colspan == 
                        colspan1)){
                        intSpan++;
                        tabObj.rows[q].cells[w].colSpan = intSpan;
                        tabObj.rows[q].cells[e].style.display = "none";
                    }
                    else {
                        break;
                    }
                }


            }


        }
        
        i = j - 1;
    }
}

​在Excel操作中，有时我们需要将一些相同的内容合并在一个单元格内，如果内容不多，可以一次次的单击合并单元格按钮。但是，有时候我们的内容有很多，这时候重复操作合并单元格显得有些笨拙，那有没有办法快速合并相同项呢？答案是肯定的，下面，我将介绍一些快速合并同类项的方法。

方法一：分类汇总法

1.1 如图，是本次操作的数据源。

1.2

选中数据区域，单击"数据"选项卡-->"分级显示"功能区-->"分类汇总"按钮，弹出"分类汇总"对话框，在"分类字段"字段中选择：类别，在"汇总方式"字段中选择：计数，在"选定汇总项"字段中勾选：类别，单击"确定"出现下图2的结果。

1.3

在A1单元格输入"计数"(任意字符都可以，只要不为空)，选中A1::A13区域，单击"开始"选项卡-->"编辑"功能区"-->"查找和选择"下拉按钮-->"定位条件"，在打开的对话框中选中"空值"，单击"确定"结束，至此，空白单元格就被选中了，如下图：

1.4

然后，单击"开始"选项卡-->"对齐方式"功能区-->"合并后居中"，空白单元格就变成合并单元格了，如下图：

1.5

单击"分类汇总"按钮，单击左下角的"全部删除"取消分类汇总，结果如下图：

1.6

选中A2:A9单元格，单击"格式刷"按钮，然后用格式刷将B2:B9的区域刷一下，就得到想要的结果了，最后将数据区域设置样式，并将辅助列A删除，结果如下图：

方法二：数据透视表法

2.1

选中数据区域，单击"插入"选项卡-->"表格"功能区"-->"数据透视表"，按默认设置生成一张表(也可以在源表上生成数据透视表，依习惯和情况而定)，然后将<类别>和<品名>放在行字段中，将<数量>放在值字段中如下图所示：

2.2

接下来，选中数据透视表区域任意单元格，单击"数据透视表工具-->分析"选项卡-->"数据透视表"功能区"-->"选项"，弹出"数据透视表选项"对话框，

将第一张图和第三张图的红框内容勾选，第二张图的红框内容去掉勾选，结果如第四张图所示：

2.3 单击"数据透视表工具-->设计"选项卡-->"布局"功能区-->"分类汇总"下拉按钮-->选中"不显示分类汇总"即可得到结果，如下图所示：

如果想要在原始数据上合并同类项，只需要使用格式刷将数据透视表的格式刷到原始表格中，具体操作方法一已写明，在此不再赘述。

方法三：VBA

3.1 单击"开发工具"选项卡-->"代码"-->"Visual

Basic"(快捷键Alt+F11)，单击"插入"-->"模块"，将下面代码插入到模块中，使用Alt+F8快捷键即可得到结果。

Sub

MergeItems()

Dim rng

As Range, header As Range, cell As Range

Application.ScreenUpdating

= False

Application.Calculation

= xlCalculationManual

Application.DisplayAlerts

= False

Set rng =

ActiveSheet.Range("A1", Range("A" &

Rows.Count).End(xlUp))

Set

header = rng(1)

For Each

cell In rng.Offset(1, 0)

If cell <> cell.Offset(-1, 0)

Then

Range(header, cell.Offset(-1, 0)).Merge

Set header

= cell

End If

Next

Application.ScreenUpdating

= True

Application.Calculation

= xlCalculationAutomatic

Application.DisplayAlerts

= True

End

Sub

欢迎大家关注：office和python之家，分享Excel基本技巧、图形与图表、数据透视表、SQL、VBA，Python语法知识、爬虫、数据交互、GUI等知识。

 原表如上所示，目标表如下所示：

 具体步骤：
1.排序
选定要合并的列，进行排序

2. 分类汇总

选中首列后，点击工具栏——>数据——>（分级显示）分类汇总效果如上所示
注意注意注意！！！！只选中下图红框框区域，然后按快捷键："ctrl+g"

 3.合并

 注意看，这几步都是针对选中的区域操作的，点击工具栏——>开始——>合并后居中

 4.删除分类汇总纲

 别问为什么，按照四个步骤依次操作就对了

 选中全区域如图step1所示，点击工具栏——>数据——>分类汇总，这时候啥也别管，点击全部删除，没错就是这个【全部删除(R)】.

 完事儿选中第一列，点击开始，点击格式刷，去刷第二列，图中为B列。

到这步，其实就完成了90%了，剩下就是把不需要的部分删了。

 再调一下格式，搞定

 补充：如果第二列也想合并操作，拿第一列格式刷去刷一下就好了

 就这，瑞思拜。。。，网上很多教程其实有问题，大家还得自己多试试