對於合併相同數據的單元格,當我們沒有學習VBA之前,我們需要做個輔助列,然後通過透視表的方式實現,可是當我們學習了VBA之後,合併相同數據的單元格竟是如此簡單了,一串VBA代碼就可以搞定了,下面我們就代碼分享出來,供大家參考學習。
Sub 合併相同的單元格()Dim i%Application.DisplayAlerts = FalseFor i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 If Cells(i, 1).Value = Cells(i - 1, 1).Value Then Cells(i - 1, 1).Resize(2, 1).Merge With Cells(i - 1, 1) .VerticalAlignment = xlCenter .HorizontalAlignment = xlCenter End With End IfNextApplication.DisplayAlerts = TrueEnd Sub