一鍵批量合并單元格技巧
Excel中為了表格的簡捷，通常相同的內(nèi)容進行合并，如何批量進行？
>>>> 例：對下面表格的相同姓名進行合并
| 姓名 | 數(shù)量 |
| 張三 | 76 |
| 張三 | 51 |
| 李四 | 83 |
| 李四 | 34 |
| 李四 | 68 |
| 李四 | 83 |
| 王五 | 66 |
| 王五 | 93 |
| 王五 | 61 |
| 小才子 | 40 |
| 小才子 | 46 |
| 小才子 | 76 |
| 小才子 | 36 |
| 小才子 | 63 |
本例使用VBA進行運算
-
上述表格姓名下的相同數(shù)據(jù)已經(jīng)是堆積在一起的，所以不用進行排序
-
表格中的數(shù)據(jù)是不固定的，所以要先找到數(shù)據(jù)的最后一行，可以使用[A65536].End(xlup).Row
'相當(dāng)于數(shù)據(jù)表最后一行向上ctrl+↑
-
數(shù)據(jù)從下向上，數(shù)據(jù)相同則合并，使用merge語句，不相同則跳過，所以使用if語句進行循環(huán)
建立一個模塊，并建立一個合并過程，編寫對應(yīng)的代碼，如下 所示：
Sub 合并()
Dim ln%, i%
Application.DisplayAlerts = False
ln = [A65536].End(xlUp).Row
For i = ln To 2 Step -1
If Cells(i, 1) = Cells(i - 1, 1) Then
Range(Cells(i - 1, 1), Cells(i, 1)).Merge
End If
Next
Application.DisplayAlerts = True
End Sub
將文件另存為xlsm格式，要不然重新打開這段代碼就消失了！
在【開始】-【開發(fā)工具】-【宏】
選擇宏名為合并，并運行，直接就合并了！
如果你的數(shù)據(jù)源不是在A列，在其他列，這段代碼就沒用了。
那么如何使用這段代碼在任意列都能用呢？
各位朋友可以思考下，有好的想法留言或后臺發(fā)送吧！
===========================
微信信息：Excel自學(xué)成才
ID：selftt
歡迎關(guān)注，更多精彩內(nèi)容持續(xù)更新中....