Re: [算表] Excel批次合併儲存格

[windknife18 (windknife18)]

如果真的要表C的話，最快的方法就是使用VBA, 假如你的資料在 A2:B10

Option Explicit
Sub mergeData()
    Dim startRow&, rowLast&, endRow&, i%

    Application.ScreenUpdating = False
    rowLast = Range("B65535").End(xlUp).Row

    startRow = 2
    For i = 3 To rowLast
        If Cells(i, 1).Value <> "" Then
            endRow = i - 1
            With Range(Cells(startRow, 1), Cells(endRow, 1))
                .Merge
                .VerticalAlignment = xlCenter
                .HorizontalAlignment = xlCenter
            End With

            startRow = i
        End If
    Next i
    Range(Cells(startRow, 1), Cells(rowLast, 1)).Merge
    Application.ScreenUpdating = True
    MsgBox "Finish!"
End Sub



: 想請教，如何快速從表A變成表B？或是表A變成表C？
: 數量少的話當然能手動複製、一格一格合併……但想知道更有效率的方式。
: 謝謝！

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.131.84.79 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1695798521.A.A09.html
推 kaubamijh: 謝謝w大，太厲害啦！憑我小小的腦永遠解不出這題...
→ windknife18: 不客氣 :)