軟體:excel
版本:2007
我有一個表
A x
A x
A y
B y
B x
C k
C k
C x
D x
D x
D y
想要儲存格合併的時候
B欄位依照A欄位合併
現在的巨集會變成B欄位的就合併一起
檔案如附件:
https://drive.google.com/open?id=1HC3AC-tunGI2MTeLfxkEtE_f0dcT0ZeL
我用巨集如下
Dim xR As Range, xH As Range
For Each xR In Range([A1], [A65536].End(xlUp))
If xR <> xR(0) Then Set xH = xR
If xR <> xR(2) Then Range(xR, xH).Merge
Next
For Each xR In Range([b1], [b65536].End(xlUp))
If xR <> xR(0) Then Set xH = xR
If xR <> xR(2) Then Range(xR, xH).Merge
Next
不知道這塊要怎麼改

https://i.imgur.com/gTRH3jb.jpg 類似這樣連結為a欄的部分，但應先從b欄判斷；b欄和a欄差別上為b欄會多個或於a欄下方儲存格是否相同，不相同的話則合併儲存格

感謝S大 實在太強大了 還要研究看看

連結內無看到b欄的寫法，也請附上，才清楚沒有達到效果的原因https://i.imgur.com/iJ391ao.jpg上述為回文的想法用於for..next；測試以原po所貼的巨集結果應也可以達成如以回文想法用於for each..next的話https://i.imgur.com/uHNUjJT.jpg

for each的方式看網路寫法 不過不太好懂 再來研究看看

以原文範例for..next如要正序寫法，可配合工作表函數countif和countifs https://i.imgur.com/UDGqM0h.jpg