【无标题】EXCEL合并选中列相同内容单元格(VBA)

賛

已于 2022-09-21 11:48:16 修改

阅读量1.4k

点赞数

文章标签：经验分享

于 2022-09-21 11:27:15 首次发布

本文链接：https://blog.csdn.net/qq_44108148/article/details/126969251

版权

Sub 合并选中列相同内容单元格()
    Dim rngData As Range
    Dim i&, lngCol&, lngFirst, lngLast
    On Error Resume Next
    Set rngData = Application.InputBox("请选择要合并的数据列！", Default:=Selection.Address, Type:=8)
    Set rngData = Intersect(rngData.Parent.UsedRange, rngData)
   lngCol = rngData.Column 'rngData所在列
    lngFirst = rngData.Row
    lngLast = lngFirst + rngData.Rows.Count - 1
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    rngData.Parent.Select
    For i = lngLast To lngFirst + 1 Step -1
       If Cells(i, lngCol) = Cells(i - 1, lngCol) Then
            Cells(i - 1, lngCol).Resize(2, 1).Merge
        End If
    Next
    rngData.VerticalAlignment = xlCenter
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "合并完成。"
End Sub

01.选中某列

02.开发工具--打开VB--插入模块--复制粘贴--运行