【指定列？】合并指定列相同内容的单元格

hl94629219

1. Sub 合并相同内容单元格()
   
2.     Dim i
   
3.     Application.DisplayAlerts = False
   
4.     For i = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
   
5.     For j = 1 To 2
   
6.         If Cells(i, j) = Cells(i - 1, j) Then
   
7.             Range(Cells(i, j), Cells(i - 1, j)).Merge
   
8.         End If
   
9.     Next
   
10.     Next
    
11.     Application.DisplayAlerts = True
    
12. End Sub

复制代码

这个是可以合并 相同内容的单元格了，但是如何指定只合并A列或者C列或者某一列呢！

初学者，请各位不吝啬指教！谢谢大家！





言午填表单.zip (76.1 KB, 下载次数: 45)

2018-10-11 09:35 上传

点击文件名下载附件

合并同款款号，但是发现有时候只能合并一部分，其他合并不了没办法一部到位！

abc123281

建议上传附件

liulang0808

Sub 合并相同内容单元格()
    Dim i
    Application.DisplayAlerts = False
j=1 '或者j="a"
    For i = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1

        If Cells(i, j) = Cells(i - 1, j) Then
            Range(Cells(i, j), Cells(i - 1, j)).Merge
        End If

    Next
    Application.DisplayAlerts = True
End Sub
上面的变量j就是对应列，可以使用数字，也可以使用字母的

lsc900707

不愿提供附件的问题，只是看看。

hl94629219

lsc900707 发表于 2018-10-11 06:21
不愿提供附件的问题，只是看看。

已上传了附件，更新了问题 ，麻烦你了 版主，谢谢！

hl94629219

liulang0808 发表于 2018-10-10 21:21
Sub 合并相同内容单元格()
    Dim i
    Application.DisplayAlerts = False

谢谢你，J=“B”  我知道了，但是你的代码 只能合并一部分是为什么呢，