這個問題頭大了..想了好久 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 這個問題頭大了..想了好久

返回列表下一主題上一主題發帖

這個問題頭大了..想了好久

高中生 Rank: 3 Rank: 3

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

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

11^# 跳轉到 »

發表於 2015-8-22 14:37 | 只看該作者

回復 8# EGBT

動態陣列 Redim Student(x)這樣寫時，當重新一次的Redim時會把原來在陣列的值清空
所以當然沒值給它顯示啊迴圈中的重新定維數又不希望清空值必須寫成
ReDim Preserve Student(x)

高中生 Rank: 3 Rank: 3

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

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

12^#

發表於 2015-8-22 14:45 | 只看該作者

回復 8# EGBT

一般使用陣列不應該Sheets("統計").Cells(x, 1) = Student(x)這樣子寫
這樣寫只是浪費了陣列執行速度的優點
最好是迴圈跑完後再貼到儲存格
如下

Sub TEST1()
Dim Student()
x = 0
With Sheets("學生頁")
For Each y In .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1))
ReDim Preserve Student(x)
Student(x) = y
x = x + 1
Next
End With
Sheets("統計").Cells(1, 1).Resize(UBound(Student) + 1) = Application.Transpose(Student)
End Sub

複製代碼

中學生 Rank: 2

帖子: 127
主題: 38
精華: 0
積分: 166
點名: 0
作業系統: Microsoft
軟體版本: Windows 7
閱讀權限: 20
性別: 男
註冊時間: 2015-7-31
最後登錄: 2018-8-3

13^#

發表於 2015-8-22 17:12 | 只看該作者

回復 10# ikboy

感謝

高中生 Rank: 3 Rank: 3

帖子: 508
主題: 53
精華: 0
積分: 583
點名: 80
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-4-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

14^#

發表於 2015-8-22 20:10 | 只看該作者

回復 1# EGBT

試試看這個適不適合

Sub test1()
Dim student
Sheets("學生頁").Select
student = Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
Sheets("統計").Cells(2, 1).Resize(UBound(student)) = student
End Sub

複製代碼

中學生 Rank: 2

帖子: 127
主題: 38
精華: 0
積分: 166
點名: 0
作業系統: Microsoft
軟體版本: Windows 7
閱讀權限: 20
性別: 男
註冊時間: 2015-7-31
最後登錄: 2018-8-3

15^#

發表於 2015-8-23 00:21 | 只看該作者

回復 9# lpk187

樓上大大完全了解我...完全正解~太感謝你了^.^

靜思自在 : 欣賞別人就是莊嚴自己。

返回列表下一主題上一主題