WORD轉EXCEL 急急急(吐血)

2015-07-24 1:46 am

我想問一個問題
我原本是用WORD來做個人資料像是:
姓名年齡聯絡電話地址
<---------這行是資料
來電日期星座 XXXX XXX
<---------這行是資料
背景資料
<---------這行是資料
(頁面一) 有很多很多面

而現在我需要把它變成EXCEL檔像是:
姓名年齡聯絡電話地址來電日期星座 XXXX XXX 背景資料
<---------資料1
<---------資料2

請問有辦法嗎??

更新1:

那個那個可以再拜託你做一個嗎剛剛那個並不是我所有的選項我等等打上來可以嗎？？

更新2:

還是可以告訴我一下每行範圍的設置還有它的功用我已經看懂一些了可以請你大概註解一下嗎謝謝謝謝謝謝謝

回答 (1)

先生

2015-07-24 4:15 am

✔ 最佳答案

預設6列為一單位且是用空格為區隔
預設4欄

1.先用資料頗析"分隔符號""空格"切割
2.新增Sheets2
加入巨集

Sub test()
Sheets(1).Select
x = Application.RoundUp([A65536].End(xlUp).Row / 6, 0)
k = 2
For i = 1 To x
y = Sheets(2).[A65536].End(xlUp).Row + 1
Cells(k, 1).Resize(, 4).Copy Sheets(2).Cells(y, 1)
Cells(k + 2, 1).Resize(, 4).Copy Sheets(2).Cells(y, 5)
Cells(k + 4, 1).Resize(, 4).Copy Sheets(2).Cells(y, 9)
k = k + 6
Next
Sheets(2).Select
End Sub

2015-07-23 20:28:42 補充：
WORD如果是有畫格子那就只需把資料複製到EXCEL(符合目的格式設定)貼上
然後執行巨集

2015-07-23 20:33:40 補充：
http://www.FunP.Net/32532

👍 0 👎 0