EXCEL VBA 的問題 - Excel程式區 - 麻辣家族討論版版

[發問] EXCEL VBA 的問題

4^# 跳轉到 »

發表於 2015-4-13 12:59 | 只看該作者

請問阿lpk187大大
執行的結果有點不一樣
另外loop好像太多次

3^#

發表於 2015-4-13 08:30 | 只看該作者

感謝大大的回復，我來研究試試看，不懂的，希望您可以接受我的請益
謝謝

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2015-4-12 23:51 | 只看該作者

回復 1# idnoidno

Sub 巨集1()
n = 1
For Each Rng In 工作表1.Range("B1", 工作表1.Cells(1, Columns.Count).End(xlToLeft).Address) '第一列"動態"讀取做循環
RngRow = 工作表1.Columns(Rng.Column).Find("*", , , , , xlPrevious).Row '尋找改欄的最後一個儲存格
工作表2.Cells(n, 1) = Cells(RngRow, 1) '日期寫入工作表2
工作表2.Cells(n, 2) = Cells(RngRow, Rng.Column) '最後的數值寫入工作表2
n = n + 1
Next
End Sub

複製代碼

靜思自在 : 知識要用心體會，才能變成自己的智慧。