VBA把A列相同内容单元格合并起来

laoau138

VBA把A列相同内容单元格合并起来

13052565705

1. Option Explicit
   
2. Sub 合并单元格()
   
3.     Dim k As Long
   
4.     Dim i As Long
   
5.     Dim x As String
   
6.     Dim cnt As Long
   
7.     Dim j As Long
   
8.     Application.DisplayAlerts = False
   
9.     k = Cells(Rows.Count, 1).End(xlUp).Row + 1
   
10.     For i = 2 To k
    
11.         x = Range("a" & i)
    
12.         For cnt = i + 1 To k
    
13.             If Range("a" & cnt) <> x Then
    
14.                 j = cnt - 1
    
15.                 Range("a" & i & ":a" & j).Merge
    
16.                 i = j
    
17.                 Exit For
    
18.             End If
    
19.         Next cnt
    
20.     Next i
    
21.     Columns(1).VerticalAlignment = 2
    
22.     Columns(1).HorizontalAlignment = 3
    
23.     Application.DisplayAlerts = True
    
24. End Sub
    

复制代码

亲，给个最佳吧~

laoau138

13052565705 发表于 2016-12-29 16:03
亲，给个最佳吧~

理所当然给最佳了


这两条如何做

http://www.excelpx.com/thread-426791-1-1.html

http://www.excelpx.com/thread-426789-1-1.html