Excel VBA巨集的問題?

A欄　　　　　　　　　　　　　　　　　　B欄
MM-MMM-01;BB-BBB-02;CC-CCC-03

VBA
Sub x()
arr = Split([a1], ";")
[b1].Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)
End Sub

2010-01-07 22:01:05 補充：
假設轉寫目標為　"某檔案.xls"　"Sheet1"　A1及以下

Sub x()
arr = Split([a1], ";")
Workbooks("某檔案.xls").Sheets("sheet1").[a1].Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)
End Sub

我本來從沒遇到過修NAS修硬碟和隨身碟要資料救援，一開始也跟大家一樣總是問價格到處比價，因為不懂，凡事都從價格,考量，輕言聽信朋友介紹比較便宜一家，找錯家之後痛苦尾隨而來，以下省略500字........,後來自己上網找資料救援找到硬碟醫院，和他們經理溝通之後給我正確觀念，這是妳寶貴的資料，妳要考慮是救不救的回問題，而不是貴不貴問題,如果重要請找對人搶救NAS資料硬碟救援才能恢復你的NAS中多顆的硬碟資料
http://www.datamaster.com.tw/

【亞洲36588合法彩券公司直營 官網: A36588.NET 】

【 最新活動→迎接新會員，首存狂送20% 】

【運動→電子→對戰→現場→彩球 】

【免費服務 →電影區、討論區、KTV歡唱、運動轉播、即時比分、24H客服 】

【亞洲36588合法彩券公司直營 官網: A36588.NET 】

http://www.FunP.Net/657471