返回列表 上一主題 發帖

[發問] 每100個分行

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
1# 跳轉到 »
發表於 2023-2-2 09:03 | 顯示全部帖子
本帖最後由 Andy2483 於 2023-2-2 09:12 編輯

回復 2# dou10801


    謝謝前輩發表此主題與範例
後學建議方案如下:

Option Explicit
Sub 設陣列收集資料後再寫入儲存格()
Dim i&, K&, MS1$, R&
[F:F].ClearContents
R = Cells(Rows.Count, 1).End(3).Row
ReDim Arr(1 To (R - 1) \ 100 + 1, 1 To 1)
For i = 2 To R
   MS1 = IIf((i - 1) Mod 100 = 0, "", MS1)
   K = (i - 1) \ 100 + 1
   MS1 = MS1 & """" & Cells(i, 1) & """" & ","
   Arr(K, 1) = MS1 & "  -"
Next
[F1].Resize(UBound(Arr), 1) = Arr
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
2#
發表於 2023-2-17 07:35 | 顯示全部帖子
本帖最後由 Andy2483 於 2023-2-17 07:37 編輯

回復 2# dou10801


    再次謝謝前輩發表此主題
希望後學的學習心得能對前輩有所幫助
後學今天複習註解了一下,方便日後再複習,也請前輩參考

Option Explicit
Sub 設陣列收集資料後再寫入儲存格()
Dim i&, K&, R&, MS1$
'↑宣告變數:(i,K,R)是長整數變數,MS1是字串變數
[F:F].ClearContents
'↑令F欄清除儲存格裡的內容
R = Cells(Rows.Count, 1).End(3).Row
'↑令這長整數變數是 A欄最後一個有內容儲存格的列號
ReDim Arr(1 To (R - 1) \ 100 + 1, 1 To 1)
'↑宣告Arr是二維陣列,陣列大小:縱向從1到((R變數-1)除100後取整數再+1)列
'橫向從1到1欄
For i = 2 To R
'↑設順迴圈!i從2到R變數
   MS1 = IIf((i - 1) Mod 100 = 0, "", MS1)
   '↑令MS1這字串變數是 IIF()回傳值
   '如果(i迴圈數-1)除100的餘數是 0,就回傳 空字元
   '否則回傳 MS1變數自身值
   K = (i - 1) \ 100 + 1
   '↑令K這長整數變數是 (i迴圈數-1)除100後取整數再+1
   MS1 = MS1 & """" & Cells(i, 1) & """" & ","
   '↑令MS1變數是 自身值連接 兩個雙引號字元,接著連接i迴圈列A欄儲存格值,
   '再連接 兩個雙引號字元,最後連接 逗號所組成的新字串
   Arr(K, 1) = MS1 & "  -"
   '↑令K變數列第1欄Arr陣列值是 MS1變數連接 "  -" 字串組成的新字串
Next
[F1].Resize(UBound(Arr), 1) = Arr
'↑令[F1]擴展向下Arr縱向最大索引列號列數,向右不擴展的範圍值以Arr陣列值帶入
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題