資料多的話,可考慮VBA:
Sub TEST()
Dim A As Range, B As Range, T$
[B:B].ClearContents: Set B = [B1]
For Each A In Range([A1], [A65536].End(xlUp)(2))
If A <> "" Then T = T & A
If A = "" And T <> "" Then B = T: Set B = B(2): T = ""
Next
End Sub作者: KCC 時間: 2016-4-23 18:00