返回列表 上一主題 發帖

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

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  應用程式或物件定義上的錯誤"

有附檔案
  1. Sub TEST()
  2. Dim Student()
  3. x = 1
  4. For Each y In Sheets("學生頁").Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
  5. ReDim Student(x)
  6. Student(x) = y
  7. Sheets("統計").Cells(x, 1) = Student(x)
  8. x = x + 1
  9. Next
  10. End Sub
複製代碼

學生.rar (8.71 KB)

學生

收藏 分享

EGBT

帖子
127 
主題
38 
精華
0 
積分
166 
點名
0  
作業系統
Microsoft 
軟體版本
Windows 7 
閱讀權限
20 
性別
男 
註冊時間
2015-7-31 
最後登錄
2018-8-3 
2#
發表於 2015-8-22 13:19 | 顯示全部帖子
回復 2# n7822123


    很謝謝你的回覆，但還是不行

TOP

EGBT

帖子
127 
主題
38 
精華
0 
積分
166 
點名
0  
作業系統
Microsoft 
軟體版本
Windows 7 
閱讀權限
20 
性別
男 
註冊時間
2015-7-31 
最後登錄
2018-8-3 
3#
發表於 2015-8-22 13:21 | 顯示全部帖子
回復 3# n7822123


    這個方法可以,但還有沒有其他的方法可以參考~~~很謝謝你喔^^

TOP

EGBT

帖子
127 
主題
38 
精華
0 
積分
166 
點名
0  
作業系統
Microsoft 
軟體版本
Windows 7 
閱讀權限
20 
性別
男 
註冊時間
2015-7-31 
最後登錄
2018-8-3 
4#
發表於 2015-8-22 13:58 | 顯示全部帖子
回復 6# ikboy


    很感謝樓上大大的回覆~可是我想請問大大

動態陣列 Redim Student(x)

我最後隨便寫一行

Sheets("統計").Range("A1") = Student(1)

為什麼不會把Sudent(1)這個陣列的座號顯示在A1呢?

TOP

EGBT

帖子
127 
主題
38 
精華
0 
積分
166 
點名
0  
作業系統
Microsoft 
軟體版本
Windows 7 
閱讀權限
20 
性別
男 
註冊時間
2015-7-31 
最後登錄
2018-8-3 
5#
發表於 2015-8-22 17:12 | 顯示全部帖子
回復 10# ikboy


感謝

TOP

EGBT

帖子
127 
主題
38 
精華
0 
積分
166 
點名
0  
作業系統
Microsoft 
軟體版本
Windows 7 
閱讀權限
20 
性別
男 
註冊時間
2015-7-31 
最後登錄
2018-8-3 
6#
發表於 2015-8-23 00:21 | 顯示全部帖子
回復 9# lpk187


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

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。
返回列表 上一主題