EGBT

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-8-22 11:49 | 只看該作者

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

我在"統計"這個Sheet啟用巨集
把"學生頁"這個Sheet的學生座號，撈到"統計"這個Sheet
但是都會出現"1004 應用程式或物件定義上的錯誤"

有附檔案

Sub TEST()
Dim Student()
x = 1
For Each y In Sheets("學生頁").Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
ReDim Student(x)
Student(x) = y
Sheets("統計").Cells(x, 1) = Student(x)
x = x + 1
Next
End Sub

複製代碼

學生.rar (8.71 KB)

學生

樓主熱帖

EGBT

中學生 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

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

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 259
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-27

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

複製代碼

TOP

EGBT

中學生 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

感謝

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

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

複製代碼

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

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

11^#

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

回復 8# EGBT

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

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

10^#

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

首先你的動態陣列要保留數據,請用 Redim Preserve Student(x)
下面做了一個例子

Sub TEST()
Dim Student()
r = Sheets("學生頁").Cells(Rows.Count, 1).End(xlUp).Row
x = 1
For Each y In Sheets("學生頁").Range("a2:a" & r)
ReDim Preserve Student(x)
Student(x) = y
Sheets("統計").Cells(x, 1) = Student(x)
x = x + 1
Next
MsgBox Student(1)
MsgBox Student(11)
End Sub

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

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

9^#

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

本帖最後由 lpk187 於 2015-8-22 14:18 編輯

回復 5# EGBT

當你作用中的工作表為Sheets("學生頁")時，你是可以寫
Sheets("學生頁").Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
但是如果作用中的工作表不是Sheets("學生頁")時，那這句正確寫法
Sheets("學生頁").Range(Sheets("學生頁").Cells(2, 1), Sheets("學生頁").Cells(Sheets("學生頁").Cells(Rows.Count, 1).End(xlUp).Row, 1))
看出哪裡不同了嗎？
每一個儲存格應該給予完整的地址

TOP

EGBT