(請益)VBA一些問題
 

A1=100 'A1等於數字100
.
.
.
A99=150 'A99等於數字150

I = 1 TO 99
B = "A" & I '希望B可以讀取A01~A99的數字
NEXT I

===========================

希望B可以讀取A1~A99的數字
不過B執行結果,單純就A1~A99的文字
有啥辦法可以讓B讀取到設定的數字嗎?

麻煩大大們指點了!

一般這種應該是定義一個陣列來儲存變數值
然後迴圈就很容易處理

如果是讀工作表裡連續儲存格的值就會用 range 或 cells

是反過來...
要將1~99的計算變數填到不同工作頁,不同表格內

現在就卡到
B可以讀不到A1~A99的數字...QAQ
又不想拆成很多串CALL來CALL去的Orz...
才想說用這種方法...
先感謝大大指點了...

不太清楚你的困難點，貼一段陣列值的處理
包括基本陣列的定義，值的設定以取迴圈處理參考

Sub Macro1()
Dim A()
A = Array(1, 2, 3, 4, 5)
For I = 0 To 4
MsgBox A(I), vbOKOnly
Next
End Sub

恩~感謝大大的指導
我那問題,可以PM請教大大嗎?

好，不趕的話，端午我會在家，如果問題不難，或許我還有能力

先講在前頭，在下vba能力只算是肉腳級.....不一定能幫上忙....

讀資料那行要這樣寫才對

b=Range("a" & i)

不過，整個程式有很大的問題
(這是全部的程式嗎???)

執行完之後 b=range("a99") ， a01~a98等於作白工

整個程式可簡化成 b = range("a99")

更重要的事，我看不懂您的問題
=============================
我"猜"您要問的可能是

讀取 sheet1 工作表 a1~a100 的內容
到
sheet2 工作表 b1~b100 填入

For i = 1 To 100
Sheet2.Range("b" & i) = Sheet1.Range("a" & i)
Next i

>>>Range("a" & i)
阿~直接填進去這我到沒試過...= =a
看來應該可行= =+

上面這串,算是把問題拿出來簡化後的狀態吧
早上問前輩,他也說看不懂我在問啥XDDDDD
後來整串給他看,他才知道我在問啥Orz...
基本上大概解決了
感謝大大們的經驗指點了!!!