VBA（Excel）如何將單元格中的多行拆分成多行？

下面是根據圖片的樣本數據編寫的代碼示例。當它應用於實際表格時，應註意需要拆分的列數和列總數* * *。樣本數據總是有兩列* * A和B，需要拆分的數據在B列。代碼為:

選項顯式

子宏1（）

昏暗的排列，I，j，t

arr=activesheet.usedrange

j=1

對於i=1到下界（arr）

對於每個in split（arr（I，2），chr（10）），拆分列B .如果列B是單行，則該循環將只執行壹次。

單元格（j，1）。resize（1，2）= array（arr（I，1，t）‘拆分的新行數據將填充到表中。

j = j+1‘修改下次要填寫的位置。

下壹次測試

接下來我

“msgbox”完成，拆分後的行數為“&；（j-1）

結束接頭