標題: [發問] 儲存格相同內容　自動合併 [打印本頁]

---

作者: starry1314    時間: 2015-5-21 09:02     標題: 儲存格相同內容　自動合併

請問可幫解釋以下代碼的各涵義嗎？
因有好幾個欄位需要此功能，所以想了解才知道怎麼改
但試著改成讓他只合併Ａ欄，卻變成只合併兩個同樣相同值

1. Sub nn()
   
2. Dim A As Range, r&
   
3. Application.DisplayAlerts = False
   
4. r = 3
   
5. Do While Cells(r, 2) <> ""
   
6.    Set A = Cells(r, 2)
   
7.    Do Until Cells(r, 2) <> A
   
8.    r = r + 1
   
9.    Loop
   
10.    Range(A, Cells(r - 2, 2)).Merge
    
11. Loop
    
12. Application.DisplayAlerts = True
    
13. End Sub

複製代碼

[attach]20999[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)