返回列表 上一主題 發帖

[發問] 數組括號內的數字 分折

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-15 
1# 跳轉到 »
發表於 2018-10-4 11:28 | 顯示全部帖子
9-0 ???
有沒有9-2之類的,
舉的例子只有一個, 程式寫了也是白寫,
上傳較完整的數據吧!!!

TOP

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-15 
2#
發表於 2018-10-4 14:17 | 顯示全部帖子
5-7
應指5.6.7吧!

TOP

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-15 
3#
發表於 2018-10-5 12:55 | 顯示全部帖子
Sub Macro1()
Dim xR As Range, T, TT, Tr, j%, N&, ARR
ReDim ARR(1 To 2000, 0)
For Each xR In Range([a1], [a65536].End(3))
    TT = Split(Replace(Replace(xR, ")", ""), "-0", "-10"), "(")
    For Each T In Split(TT(1), ",")
        Tr = Split(T & "-" & T, "-")
        For j = Tr(0) To Tr(1)
            N = N + 1: ARR(N, 0) = TT(0) & Right(j, 1)
        Next j
    Next
Next
[b1].Resize(N) = ARR
End Sub

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題