>即時新聞-熱門

2007年12月13日星期四

多張工作表整合 - 同一個檔案

1 點選工具 / 巨集 / 錄製新巨集 / 給名稱 / 確定
2 點選 工具 / 巨集 / 停止錄製
3 點選 工具 / 巨集 / 巨集 / 點選名稱 / 點選編輯
4 上網 / 進入alexsir.blogspot.com 網站 / 點選試算表vba(左側)
5 請複製 多張工作表整合 - 同一個檔案 本篇的程式內容
內容如下
Sub 整合工作表()
Sheets(1).Select
Sheets.Add
x = InputBox("請輸入整合工作表的數量")
For i = 2 To x + 1 Step 1
Sheets(i).Select
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Next
Range("A1").Select
Selection.End(xlDown).Select
y = ActiveCell.Row
Range("A1").Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=y, Trend:=False
End Sub
6 請刪除空巨集 / 進行貼上 然後 執行此〔 整合工作表 〕巨集即可

2 评论:

匿名 说...

熊貓情色,美女遊戲區,成人dvd,qq聊天室,aaa片免費看,手槍美女賞圖,家庭教師影片,洪爺情色,麗的色情遊戲,爽翻天成人情趣,qq聊天室,影音日誌,情色典獄長,520聊天室,080 中部人聊天室,成人文章,a片短片,成人貼圖區,免費av,杜蕾斯免費a片,柔情聊天網,豆豆聊天室,性感影片,台灣kiss情色,台灣自拍,都都成人站,小魔女自拍天堂,

aaaa片,男男貼圖區,交友私樂園,麗的線上小遊戲,卡通a片,免費情色小說,性感影片,情色聊天室,成人貼圖區,免費av,xxx383美女寫真,正妹強力版,無碼女優,女同聊天室,性愛聊天室,飯島愛,美眉,臺灣情色網,100one百萬成人貼電影,正妹強力牆,bobo寫真女郎影片,av女優,383成人,情人視訊,

3d美女圖,小莉影音像館,情色武俠小說,色美眉部落格,台灣無限貼圖區,完美女人影音網,辣美眉173show影片,自拍a片,kiss情色,熊貓貼圖區列表,自拍貼圖,s383情色大網咖,85cc免費影城,a片圖片,寫真女郎攝影網,豆豆聊天,嘟嘟貼圖,美女自拍,自拍a片,hcg 貼圖區,卡通成人網,聊天室avooo,自拍偷拍,情色文學小說,

情色交友,ut男同志聊天室,成人電影,正妹星球,無碼光碟,做愛自拍,爽翻天成人用品,歐美模特兒寫真,999成人性站,免費遊戲,成人動畫,aaaaa片俱樂部,免費線上成人影片,丁字褲美女寫真,老婆自拍,漂亮寶貝,聊天室,情色小遊戲,080 中部人聊天室,裸體寫真,線上看a片,18禁地少女遊戲,後宮情色網,日本女優,月宮貼圖區,

匿名 说...

視頻聊天室 , 視頻聊天室 , 視頻聊天室 , 視頻聊天室 , 視頻聊天室 , 視頻聊天室 , 視頻聊天室 , 視頻聊天室 , 視頻聊天室 , 視頻聊天室

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱