請問可幫解釋以下代碼的各涵義嗎？
因有好幾個欄位需要此功能，所以想了解才知道怎麼改
但試著改成讓他只合併Ａ欄，卻變成只合併兩個同樣相同值- Sub nn()
- Dim A As Range, r&
- Application.DisplayAlerts = False
- r = 3
- Do While Cells(r, 2) <> ""
- Set A = Cells(r, 2)
- Do Until Cells(r, 2) <> A
- r = r + 1
- Loop
- Range(A, Cells(r - 2, 2)).Merge
- Loop
- Application.DisplayAlerts = True
- End Sub
 相同內容的儲存格合併.rar (9.86 KB)
|
發表於 2015-5-21 09:02
| 
