作者windknife18 (windknife18)
标题Re: [算表] Excel批次合并储存格
时间Wed Sep 27 15:08:39 2023
如果真的要表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://webptt.com/cn.aspx?n=bbs/Office/M.1695798521.A.A09.html
1F：推 kaubamijh: 谢谢w大，太厉害啦！凭我小小的脑永远解不出这题... 09/27 21:13
2F：→ windknife18: 不客气 :) 09/27 21:30