請問讀取各SHEET的儲存格的值 - Excel程式區

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

　暱稱: 阿軒

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 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

　暱稱: 阿軒

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2013-7-24 11:28 | 顯示全部帖子

回復 4# GBKEE

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

靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。