使用VBA 合并相同单元格

'工作中用于打印报表时需用到同一列相同数据相邻单元格合并
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