返回列表 上一主題 發帖

[發問] 儲存格相同內容 自動合併

[發問] 儲存格相同內容 自動合併

請問可幫解釋以下代碼的各涵義嗎?
因有好幾個欄位需要此功能,所以想了解才知道怎麼改
但試著改成讓他只合併A欄,卻變成只合併兩個同樣相同值
  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
複製代碼
相同內容的儲存格合併.rar (9.86 KB)

        靜思自在 : 世上有兩件事不能等:一、孝順 二、行善。
返回列表 上一主題