返回列表 上一主題 發帖

[發問] 搜尋沒有出現的數字

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1447 
主題
40 
精華
0 
積分
1471 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-2-11 
1# 跳轉到 »
發表於 2023-11-8 13:58 | 顯示全部帖子
謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列,請各位前輩指教
執行前:


執行結果:


Option Explicit
Sub TEST()
Dim A$(1 To 39, 0), i%, xR As Range, j%
For Each xR In [E2:S12].SpecialCells(2): A(Val(xR), 0) = xR: Next
For i = 1 To 39
   If A(i, 0) = "" Then j = j + 1: A(j, 0) = Format(i, "00")
Next
[X2].Resize(j) = A
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。
返回列表 上一主題