VBA按合並單元格拆分Excel工作表？

昏暗的安排，我和。

Arr = ActiveSheet。使用範圍

對於i = 3到下界(Arr)

如果Arr(i，1) = Empty那麽Arr(i，1) = Arr(i - 1，1)

接下來我

工作表(“工作表2”)。【A1】。Resize(UBound(Arr)，4) = Arr

末端接頭

條件是已經在合並的單元格列中輸入了數據。