返回列表 上一主題 發帖

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

回復 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

        靜思自在 : 對父母要知恩,感恩、報恩。
返回列表 上一主題