excel的應用

Question

目前正在 key in 大量的數據

流程:複製每個sheet的同一格 到記事本貼上

目前的難題在於數據量過龐大

想請教
1.是否有相關的功能可以抽取出每個sheet,同一個位置的data

2.整合這些data,並依照sheet的順序,排列

感謝你的指導....不過不會vba
= =|||

Sheets("sheet_summary").CELLS(i,2)= Sheets(i).range("m34")
這行錯誤,我的資料是要M34格
不過執行後,顯示錯誤

已經找出問題了(sheet全部都要為數字檔,我剛剛檔案中有包含一些圖表,前言,所以執行錯誤)

再來個問題
1."能否倒置跑出來的檔案順序"
例如 :2004對應100,2003對應105,2002對應67.....依此排列下去
A對應B,A是有秩序的排列(大到小),B則為不規則數據
A變成由小到大排列

2.之後將B的data, 放到筆記本上面
格式為xxxxxx.0

呼...這問題不只20點了,謝謝你的幫忙!!!

補充上面
第一個問題:最後的需求是,A為由小排列到大

第二個問題:解決第一個問題之後,取B貼到記事本上
以xxxxxx.x的格式(小數點前,沒有則空白;小數點後,沒有則補零~小數點後只有一位)

太棒啦!!!

20點接著(4小時later)

再再問
現在excel跑出來的資料為
A B
1990 435
1991 56
1992 71
1993 941
etc etc

能否把資料轉成橫列方
例如上面的資料變成
xxxxA B C D etc
1 1990 1991 1992 1993 etc
2 435 56 71 941 etc

Answer 1

1.先用下面的VBA程式吧, 將所有sheet的名字,轉到sheet_summary中的a欄　所有sheet的a1值,轉到sheet_summary中的b欄後,使用方法, 在excel頁面, 按alt-f11按插入->模組, 並將上面的程式碼copy到VBA模式中再按執行, 就可以了, 最好一次只開一個EXCEL檔它會將你所有的SHEET, 都找過一次, 然後將每頁A1值, 做一個摘要並且摘要在sheet_summary這個SHEET中, 如果你想在同一個檔案重覆的玩請記得將sheet_summary, 這個工作頁刪除Sub summary_sheet()ActiveWorkbook.Sheets.AddActiveWorkbook.ActiveSheet.Name = "sheet_summary"For i = 1 To Sheets.CountIf Sheets(i).Name <> "sheet_summary" ThenSheets("sheet_summary").Cells(i,1) = Sheets(i).NameSheets("sheet_summary").CELLS(i,2)= Sheets(i).range("a1")end ifNext iEnd Sub上面的Sheets(i).range("a1"), 表示你的同一位置是 --> A1格, 若不同格, 請自行修改, 有了這個摘要的工作表, 你的第2個問題, 就可以用excel的排序功能做了。試試看, 有問題再說囉

2006-01-24 16:29:53 補充：
不用vba真的不行, 不難的, 請你試試看, 步驟1: 在你那個exce檔l上, 按鍵 alt-F11步驟2: 連點2下左側的VBA project 找個sheet1或任何sheet步驟3: 將那些程式碼, 複製到步驟2中Sub summary_sheet()::end Sub步驟4:將程式碼Sheets(i).range("a1"), 表示你的同一位置是 --> A1格, 改成你要的格子,步驟5:點選執行->執行sub(或按鍵 F5), 回到excel表, 就會發現多一個工作頁 sheet_summary, 完成

2006-01-24 16:31:46 補充：
請問是什麼錯誤訊息呢??

2006-01-24 16:50:05 補充：
我在猜, 你的m34放的資料格式, 可能需要做轉變, 請將Sheets("sheet_summary").CELLS(i,2)= Sheets(i).range("m34") 改成Sheets("sheet_summary").Cells(i, 2) = IIf(IsError(Sheets(i).Range("a1")), "錯誤的訊息", Sheets(i).Range("m34"))這個是偵測有問題的格子, 將它文字化, 請你在跑完後, 查看哪一個格子是 錯誤的訊息另外, 請跑之前, 要先將sheet_summary刪除

2006-01-24 17:05:09 補充：
1."能否倒置跑出來的檔案順序" 例如 :2004對應100,2003對應105,2002對應67.....依此排列下去 ans: 這個不需要在程式內加, excel就功能強大了, 1)請將A~B欄全選, 2)選擇 資料->排序->主鍵值選 A欄 -> 排序選遞減就可以了2.之後將B的data, 放到筆記本上面 格式為xxxxxx.0 ans: 將B欄全選, 然後選擇1)格式->儲存格->數值-> 小數位選1位, 按確定後, 你的B欄都會是 xxxxxx.02)接著, 將B欄複製, 打開小作家, 貼上, 就可以了

2006-01-24 17:24:06 補充：
解題愉快,
歡迎有下次機會

2006-01-24 17:58:51 補充：
我還以為結束了, 所以沒再追蹤了說, 這個功能叫轉置只要將你要的資料範圍, 選取, 複製然後到大一點的空間, (轉置後不會碰到其他資料)點右鍵, 按選擇性貼上, 把那個轉置打勾, 按確定, 就完成

2006-01-24 17:59:48 補充：
謝謝, 我會很高興的

Answer 2

也解決我的問題了 謝謝

Answer 3

『不鳴則以,一鳴驚人』
一出現就搞出這麼大的陣仗!!

Answer 4

期研究員終於出現了...

Answer 5

好久沒看到[期指]解題了。
給你拍拍手！

Answer 6

我也很想知道這題該怎麼解-.+''
我用巨集做但是失敗...