返回列表 上一主題 發帖

有錄製巨集但要寫成迴圈還是摸不到邊

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
1# 跳轉到 »
發表於 2015-1-30 22:40 | 顯示全部帖子
社團數高達120個
學生人數固定40
希望可以將學生名單和成績整理到總表。
希望有大大可以幫忙。相關資料如 ...
opman 發表於 2015-1-27 11:53
  1. Sub 整理()
  2.   Dim iCol%, iCols%
  3.   Dim lRows1&, lRows2&, lRowsT&, lRow&
  4.   Dim shS1 As Worksheet, shS2 As Worksheet, shST As Worksheet
  5.   
  6.   Set shS1 = Sheets("學生名單")
  7.   Set shS2 = Sheets("成績")
  8.   Set shS3 = Sheets("總表")
  9.   shS3.Cells.Clear
  10.   With shS1
  11.     .[A1].Resize(.Cells(Rows.Count, 1).End(xlUp).Row).Copy shS3.[A1]
  12.     iCols = shS1.Cells(1, Columns.Count).End(xlToLeft).Column
  13.     For iCol = 2 To iCols
  14.       .Cells(1, iCol).Resize(41).Copy shS3.Cells(1, (iCol - 1) * 2)
  15.       shS2.Cells(1, iCol).Resize(41).Copy shS3.Cells(1, (iCol - 1) * 2 + 1)
  16.     Next
  17.   End With
  18. End Sub
複製代碼
Book1-A.zip (62.14 KB)

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題