標題: [發問] 請問讀取各SHEET的儲存格的值 [打印本頁]

---

作者: wu731230    時間: 2013-7-23 21:41     標題: 請問讀取各SHEET的儲存格的值

請問各位EXCEL達人，如果我有一個EXCEL檔，內有100個sheet，各別命名為1、2、....、99
我想在第100個sheet的A1~A99呈現前99個SHEET的A1，有甚麼方式可以快速撰寫呢:

---

作者: luhpro    時間: 2013-7-23 22:50

本帖最後由 luhpro 於 2013-7-23 22:52 編輯

回復 1# wu731230

1. Sub nn()
   
2.   Dim iI%
   
3.   
   
4.   With Sheets(100)
   
5.     For iI = 1 To 99
   
6.       .Cells(iI, 1) = Sheets(CStr(iI)).[A1]
   
7.     Next iI
   
8.   End With
   
9. End Sub

複製代碼

---

作者: owen06    時間: 2013-7-24 08:18

也可以這樣
sub try()
For i = 1 To 99
Sheet100.Cells(i, 1).Value = Sheets(i).Cells(1, 1).Value
Next
end sub

---

作者: GBKEE    時間: 2013-7-24 09:43

本帖最後由 GBKEE 於 2013-7-24 12:32 編輯

回復 3# owen06
不用迴圈

1. Option Explicit
   
2. Sub Ex()
   
3.     With Sheets(100).[A1:A99]
   
4.         .Cells = "=INDIRECT(ROW()&""!A1"")"
   
5.         .Cells = .Value
   
6.     End With
   
7. End Sub

複製代碼

---

作者: owen06    時間: 2013-7-24 11:28

回復 4# GBKEE


不好意思，請問版主是不是漏了在SHEETS(100)之前加個"WITH"？
這個寫法對我來說有點深奧，好好來研究一下。

---

作者: GBKEE    時間: 2013-7-24 12:33

本帖最後由 GBKEE 於 2013-7-24 12:35 編輯

回復 5# owen06
工作表上輸入公式 -> =INDIRECT(ROW()&"!A1")
謝謝指正,已修正完畢

---

作者: wu731230    時間: 2013-8-4 23:40

感謝大家，已解決囉!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)