[發問] 請問讀取各SHEET的儲存格的值

wu731230

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

luhpro

回復 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

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

GBKEE

回復 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

回復 4# GBKEE


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

GBKEE

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

wu731230

感謝大家，已解決囉!!