- 帖子
- 533
- 主題
- 58
- 精華
- 0
- 積分
- 613
- 點名
- 246
- 作業系統
- win 10
- 軟體版本
- []
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-3-19
- 最後登錄
- 2026-10-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
複製代碼 |
|