idnoidno

中學生 Rank: 2

帖子: 52
主題: 12
精華: 0
積分: 63
點名: 0
作業系統: window
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-8-15
最後登錄: 2023-3-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-4-12 15:44 | 只看該作者

[發問] EXCEL VBA 的問題

請問附表的檔案中，如何在工作表1中表格，使用VBA找出甲、乙、丙的最後一列數值和日期寫到工作表2中，請叫有路過的大哥可以指導一下，謝謝

另再請教，假如甲乙丙丁(欄位)有很多個，那VBA的語法又該如何調整呢

tt.rar (7.22 KB)

TT

樓主熱帖

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

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

複製代碼

TOP

idnoidno

中學生 Rank: 2

帖子: 52
主題: 12
精華: 0
積分: 63
點名: 0
作業系統: window
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-8-15
最後登錄: 2023-3-24

3^#

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

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

TOP

idnoidno

中學生 Rank: 2

帖子: 52
主題: 12
精華: 0
積分: 63
點名: 0
作業系統: window
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-8-15
最後登錄: 2023-3-24

4^#

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

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

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

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

5^#

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

回復 4# 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) = Rng
工作表2.Cells(n, 2) = 工作表1.Cells(RngRow, 1) '日期寫入工作表2
工作表2.Cells(n, 3) = 工作表1.Cells(RngRow, Rng.Column) '最後的數值寫入工作表2
n = n + 1
Next
End Sub

複製代碼

二、我程序是做動態循環，以你上傳的檔案去做的，依這個檔案只做了"甲乙丙"3次循環，所以你說的太多Loop是指3次太多嗎？

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

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

6^#

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

回復 4# idnoidno

執行結果如下2圖

TOP

idnoidno

中學生 Rank: 2

帖子: 52
主題: 12
精華: 0
積分: 63
點名: 0
作業系統: window
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-8-15
最後登錄: 2023-3-24

7^#

發表於 2015-4-13 14:06 | 只看該作者

大大，謝謝，可以和你線上請益依下嗎

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章