麻辣家族討論版版 » Excel程式區 » 儲存格相同內容　自動合併

返回列表下一主題上一主題發帖

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

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-5-21 09:02 | 只看該作者

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

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

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)

樓主熱帖

收藏

靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。

返回列表下一主題上一主題