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

ykcbf1100

forestry1992 发表于 2024-2-14 10:22
辛苦老师，重新上传表格。

改好了。。。

forestry1992

ykcbf1100 发表于 2024-2-14 10:31
改好了。。。

感谢ykcbf1100老师，没有问题了，谢谢您

leeson7502

forestry1992 发表于 2024-2-14 10:11
谢谢leeson7502老师，使用中有一个问题：在合并区域之外，如右侧的单元格有相同内容，也将被合并成一个单 ...

那就要把合并区域给指定为固定区域。要是在我的代码上修改的话，把lastCol 直接指定为具体的列号。

桑榆非晚123

练习一下，共同学习！

桑榆非晚123

cjc209 发表于 2024-2-11 00:15
合并相同单元格vba 自定义函数
Sub MergeCells_相同单元格(rng, Optional fx = "rc")
    Set rng = rng
...

优秀，学习了

桑榆非晚123

cjc209 发表于 2024-2-11 00:15
合并相同单元格vba 自定义函数
Sub MergeCells_相同单元格(rng, Optional fx = "rc")
    Set rng = rng
...

在进行完行方向的合并时，好像列方向只用判断左右两个合并区域的值是否需要合并就行，所以可以加一个'            If rng.Cells(i, j) <> "" Then
                tj = (rng.Cells(i, j).MergeArea.Cells(1, 1).Value2 = rng.Cells(i, j + 1).MergeArea.Cells(1, 1).Value2)
                If tj Then
                    Union(rng.Cells(i, j).MergeArea, rng.Cells(i, j + 1).MergeArea).Merge
                End If
'            End If
        Next i
    Next j
这样似乎可以减少不必要的合并

桑榆非晚123

leeson7502 发表于 2024-2-13 16:10
如果按照你提供的表格，我测试是没
有问题的，但如果把表头“总计”部分修改为其他内容，确实有点问题， ...

需要考虑合并区域如果在第一行的情况，这时候cells（i-1，j），i-1是越界的

A刘志勇

ykcbf1100 发表于 2024-2-14 10:31
改好了。。。

rng.Cells(i, j).MergeArea.Cells(1, 1).Value2,显示扎实基础功力！