返回列表 上一主題 發帖

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

Scott090

帖子
531 
主題
58 
精華
0 
積分
611 
點名
43  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2026-2-22 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2015-8-22 20:10 | 顯示全部帖子
回復 1# EGBT

試試看這個適不適合
  1. Sub test1()
  2.     Dim student
  3.     Sheets("學生頁").Select
  4.     student = Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
  5.     Sheets("統計").Cells(2, 1).Resize(UBound(student)) = student
  6.    
  7. End Sub
複製代碼

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題