[算表] 合併儲存格依照旁邊的判斷

看板Office作者ptguitar (佩蒂吉他)時間7年前 (2018/08/01 11:58)推噓0(0推 0噓 15→)

留言15則, 2人參與討論串1/1

軟體: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 不知道這塊要怎麼改 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.78 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1533095880.A.550.html

→

soyoso

08/01 12:12, 7年前 , 1^F

08/01 12:12, 1^F

→

soyoso

08/01 12:13, 7年前 , 2^F

08/01 12:13, 2^F

→

soyoso

08/01 12:15, 7年前 , 3^F

08/01 12:15, 3^F

→

soyoso

08/01 12:15, 7年前 , 4^F

08/01 12:15, 4^F

→

ptguitar

08/01 13:52, 7年前 , 5^F

08/01 13:52, 5^F

後來研究似乎還是沒有達到我效果檔案如下: https://drive.google.com/open?id=1mBYyWgj9aLnM88gBGQKpnctb-b-dThRG ※ 編輯: ptguitar (60.250.67.78), 08/01/2018 14:11:29 ※ 編輯: ptguitar (60.250.67.78), 08/01/2018 14:28:22

→

soyoso

08/01 14:47, 7年前 , 6^F

08/01 14:47, 6^F

→

soyoso

08/01 14:47, 7年前 , 7^F

08/01 14:47, 7^F

我後來用自己比較容易理解方式來寫感謝S大提供想法 Sub test() Dim row1 As Integer ActiveSheet.Select Application.DisplayAlerts = False row1 = Range("C65536").End(xlUp).Row For i = row1 To 2 Step -1 If Cells(i, 2).Value = Cells(i - 1, 2).Value And Cells(i, 1).Value = Cells(i - 1, 1) Then Range(Cells(i - 1, 2), Cells(i, 2)).Merge End If Next i For i = row1 To 2 Step -1 If Cells(i, 1).Value = Cells(i - 1, 1).Value Then Range(Cells(i - 1, 1), Cells(i, 1)).Merge End If Next i Application.DisplayAlerts = True End Sub ※ 編輯: ptguitar (60.250.67.78), 08/01/2018 15:02:29 ※ 編輯: ptguitar (60.250.67.78), 08/01/2018 15:03:26

→

soyoso

08/01 15:12, 7年前 , 8^F

08/01 15:12, 8^F