Sub merge() '根据实际需求合并单元格
H = ActiveSheet.[a65536].End(xlUp).Row
For i = 1 To H
If ActiveSheet.Range("a" & i) <> "" Then ActiveSheet.Range("b" & i, "g" & i + 18).merge
Next
End Sub
Sub merge() '根据实际需求合并单元格
H = ActiveSheet.[a65536].End(xlUp).Row
For i = 1 To H
If ActiveSheet.Range("a" & i) <> "" Then ActiveSheet.Range("b" & i, "g" & i + 18).merge
Next
End Sub