|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
'如题:
Public Function Merge_Range1(ByVal iRNum As Integer)
Dim j%
For j = iRNum To 101 Step -1
If Cells(j, 1) = Cells(j - 1, 1) And Cells(j, 1) <> "" And Cells(j - 1, 1) <> "" Then
Application.DisplayAlerts = False
Range(Cells(j - 1, 1), Cells(j, 1)).Merge
End If
Next j
End Function
Public Sub Merge_Range2(ByVal iRNum As Integer)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim nRow%
nRow = iRNum
For i = 101 To nRow Step 1
If Range("A" & i) = Range("A" & i + 1) And Range("A" & i) <> "" And Range("A" & (i + 1)) <> "" Then
Range("A" & i & ":A" & (i + 1)).Merge
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
'第二个方法为什么只能实现两行之间的合并呢?他们的区别到底在哪里呀? |
|