返回列表 上一主題 發帖

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

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
1# 跳轉到 »
發表於 2015-8-22 12:41 | 顯示全部帖子
本帖最後由 n7822123 於 2015-8-22 12:44 編輯

回復 1# EGBT


   幫你改寫了，試試看吧:D，可能是你y沒定義的關係
  1. Sub TEST()

  3. [code]Sub TEST()
  4. Dim y As Range
  5. x = 1
  6. R = Sheets("學生頁").Cells(1, 1).CurrentRegion.Rows.Count
  7. For Each y In Sheets("學生頁").Range(Cells(2, 1), Cells(R, 1))
  8. Sheets("統計").Cells(x, 1) = y
  9. x = x + 1
  10. Next
  11. End Sub
複製代碼

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
2#
發表於 2015-8-22 13:16 | 顯示全部帖子
回復 1# EGBT


    找到你的原因了，把RANGE前面的SHEETS("學生頁")拿掉，
   
    前面加一行 Sheets("學生頁").Activate，就可以執行，貼上修改後的
  1. Sub TEST8()
  2. Dim Student()
  3. x = 1
  4. Sheets("學生頁").Activate
  5. For Each y In Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
  6. ReDim Student(x)
  7. Student(x) = y
  8. Sheets("統計").Cells(x, 1) = Student(x)
  9. x = x + 1
  10. Next
  11. End Sub
複製代碼

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
3#
發表於 2015-8-22 13:58 | 顯示全部帖子
本帖最後由 n7822123 於 2015-8-22 13:59 編輯

回復 5# EGBT


    如果是我，我會這麼寫
  1. Sub TEST()
  2. R = Sheets("學生頁").Cells(1, 1).CurrentRegion.Rows.Count
  3. For i = 1 To R
  4.   Sheets("統計").Cells(i, 1) = Sheets("學生頁").Cells(i + 1, 1)
  5. Next i
  6. End Sub
複製代碼

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題