Re: [算表] Excel批次合併儲存格
如果真的要表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
推
09/27 21:13,
1年前
, 1F
09/27 21:13, 1F
→
09/27 21:30,
1年前
, 2F
09/27 21:30, 2F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
