请教：合并相同内容单元格

forestry1992

请教：如何将附件中类似的统计单位进行单元格合并，谢谢。

forestry1992

合并区域是前四列，谢谢。

cjc209

给你一个这种类型合并单元格的通用函数  jsa的代码
function mergeCells_相同单元格(Rang){
        var rng = Rang;
            for (var i=rng.Rows.Count-1;i>0;i--){
                        for (var j=1;j<=rng.Columns.Count;j++){
                                if (rng.Cells(i, j).Value2 == rng.Cells(i + 1, j).Value2){
                                         rng.Cells(i, j).Resize(2).Merge();
                                }               
                        }              
            }
                for(var j=rng.Columns.Count-1;j>0;j--){
                          for(var i=rng.Rows.Count;i>0;i--){
                                  var tj=rng.Cells(i,j).MergeArea.Cells(1,1).Value2==rng.Cells(i,j+1).MergeArea.Cells(1,1).Value2
                                        if(tj){
                                                Union(rng.Cells(i,j).MergeArea,rng.Cells(i,j+1).MergeArea).Merge();
                                        }      
                           }         
                }
}

ykcbf1100

这个有点麻烦。

cjc209

ykcbf1100 发表于 2024-2-10 21:14
这个有点麻烦。

wps jsa代码简单的很

cjc209

wps js宏代码

cjc209

思路就是先纵向合并 在横向合并 横向合并的时候要判断是不是合并区域 并且要倒序判断

cjc209

vba原理一样 改一下语法就可以了

cjc209

小更正一下 先前单元格表示写错了 这下正常了 不好意思

ykcbf1100

cjc209 发表于 2024-2-10 21:50
wps js宏代码

js不会，也不去学了。