EXCEL轉置大量資料問題 (指定格式)

先將要copy數百行的那行全選,再6到行尾,(在你將滑鼠指向格的角落頭,滑鼠就會變十字),滑鼠變十字,就打橫拉

1.把「原始資料」複製到 IN.TXT, 把所有的 TAB 字符改為「,」並存檔 (存檔時記事本的「編碼」必須是「ANSI」)
2.用記事本分別建立 1.BAS 及 1.BAT
3.把 1.BAS、1.BAT、IN.TXT 及 GWBASIC.EXE 放到「C:\BAT」資料夾
4.左擊 1.BAT 後, 再把 OUT.TXT 的內容 貼到 EXCEL 即可
1.BAS 的內容如下:
1000 '程序目的：7014011500149
1010 'http://hk.knowledge.yahoo.com/question/question?qid=7014011500149
1020 'EXCEL轉置大量資料問題 (指定格式) - Yahoo!知識+
1030 CLS:CLEAR:KEY OFF
1040 DDDN$="1"
1050 KEY 8,"SYSTEM"+CHR$(13)
1060 KEY 9,"RENUM 1000"+CHR$(13)
1070 KEY 10,"SAVE"+CHR$(34)+DDDN$+CHR$(34)+",A"+CHR$(13)
1080 'END
1090 DIM A$(7)
1100 OPEN "O",#2,"OUT.TXT" '
1110 PRINT #2,"ITEM"+CHR$(9)+"PO#"+CHR$(9)+"Size"+CHR$(9)+"Qty"
1120 OPEN "I",#1,"IN.TXT"
1130 IF EOF(1) THEN SYSTEM
1140 LINE INPUT #1,A$
1150 '
1160 L$="":FOR I=1 TO 7:A$(I)="":NEXT I
1170 FOR I=1 TO 7
1180 IF EOF(1) THEN SYSTEM
1190 INPUT #1,A$(I)
1200 NEXT I
1210 PRINT #2,A$(1)+CHR$(9)+A$(2)+CHR$(9)+"XS"+CHR$(9)+A$(3)
1220 PRINT #2,CHR$(9)+CHR$(9)+"S"+CHR$(9)+A$(4)
1230 PRINT #2,CHR$(9)+CHR$(9)+"M"+CHR$(9)+A$(5)
1240 PRINT #2,CHR$(9)+CHR$(9)+"L"+CHR$(9)+A$(6)
1250 PRINT #2,CHR$(9)+CHR$(9)+"XL"+CHR$(9)+A$(7)
1260 GOTO 1160
1.BAT 的內容如下:
:1.BAT
@ECHO OFF
CLS
PATH=%PATH%;C:\BAT
IF NOT EXIST C:\BAT MD C:\BAT
C:
CD C:\BAT
GWBASIC 1.BAS /F:16


2014-01-21 04:05:25 補充：
以上程序修改如下, 使用起來會更加方便 (毋須轉換 TAB 字符):
1.把「原始資料」複製到 IN.TXT 並存檔 (存檔時記事本的「編碼」必須是「ANSI」)
2.用記事本建立 1.BAS 及 1.BAT
3.把 1.BAS、1.BAT、IN.TXT 及 GWBASIC.EXE 放到「C:\BAT」資料夾
4.左擊一下 1.BAT, 再把 OUT.TXT 的內容 貼到 EXCEL 即可!

因字數限制, 1.BAS 修改後的內容請見以下連結:
http://hk.knowledge.yahoo.com/question/article?qid=6914012100017&mode=w