我是從上面向下合并的,不知道和從下向上合并的有什么區(qū)別?
Sub 合并()
Application.DisplayAlerts = False
For i = 1 To 20
If Range("a" & i + 1) = Range("a" & i) Then
Range("a" & i + 1 & ":a" & i).Merge
End If
Next
Application.DisplayAlerts = True
End Sub
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任,
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。