'工作中用于打印報表時需用到同一列相同數據相鄰單元格合并
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'打印之后執行函數
Dim l%, i%
'聲明變量
k% = 1 '第一列
l = [A65536].End(xlUp).Row
For i = l To 11 Step -1
'從第11行開始
If Cells(i, k) = Cells(i - 1, k) And Cells(i, k).Value <> “” Then
'條件判斷 值相同且不為空
Dim findCell As Range
Set findCell = Cells(i - 1, k)
'獲取第二個單元格
findCell.Value = “”
'將第二個單元格值設為空值 之所以設置為空值是因為會一直彈框提示“合并后只保 留左上角數據”
Range(Cells(i - 1, k), Cells(i, k)).Merge
'合并單元格
End If
Next
End Sub

總結

以上是生活随笔為你收集整理的使用VBA 合并相同单元格的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。