[發問] VBA數字整合在一起

本帖最後由 adrian_9832 於 2018-3-1 21:34 編輯

各位大大好我想請問一下用VBA 怎麼可以對順序的數字進行整理

比如 246517 246518 246519 變成 24651(7-9) 這樣請各位大大拍教

樓主熱帖

adrian_9832

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

2^#

發表於 2018-3-9 21:30 | 只看該作者

求大大幫忙.......

TOP

jackyq

中學生 Rank: 2

帖子: 323
主題: 6
精華: 0
積分: 313
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2025-5-3

3^#

發表於 2018-3-9 22:19 | 只看該作者

Sub GO_______________()

MsgBox Join(數字歸類(Array(246517, 246518, 246519), 1), vbCrLf)
MsgBox Join(數字歸類(Array(246299, 246217, 246517, 246518, 246519), 2), vbCrLf)

End Sub

Public Function 數字歸類(NumAR, ByVal 位數 As Long)
' 位數 need >= 0

Set c_max = CreateObject("Scripting.Dictionary")
Set c_min = CreateObject("Scripting.Dictionary")

For Each n In NumAR
   root = n \ (10 ^ 位數)
   n = n Mod (10 ^ 位數)
   If Not c_max.exists(root) Then
         c_max(root) = n
         c_min(root) = n
   End If
   If n > c_max(root) Then c_max(root) = n
   If n < c_min(root) Then c_min(root) = n
Next

For Each root In c_max
   c_max(root) = root & "(" & c_min(root) & "-" & c_max(root) & ")"
Next

數字歸類 = c_max.items

End Function

TOP

adrian_9832