- 帖子
- 508
- 主題
- 53
- 精華
- 0
- 積分
- 583
- 點名
- 93
- 作業系統
- win 10
- 軟體版本
- []
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-3-19
- 最後登錄
- 2024-5-7
          
|
回復 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
|
|
發表於 2015-8-22 20:10
| 