返回列表 上一主題 發帖

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

本帖最後由 n7822123 於 2018-10-4 00:53 編輯

回復 1# adrian_9832

要用一些解字串的技巧
VBA如下,把A1解析後放到B欄
公式找別人幫忙吧.......我工作表函數會的不多
只知道instr 可以用 find 取代
但是split 不知道工作表函數有沒有類似的
  1. Sub TEST()
  2. Ar = Split(Replace([A1], "-", ","), ",")
  3. Ar(0) = Right(Ar(0), Len(Ar(0)) - InStr(Ar(0), "("))
  4. An = UBound(Ar)
  5. Ar(An) = Left(Ar(An), Len(Ar(An)) - 1)
  6. [B1].Resize(An + 1) = Application.Transpose(Ar)
  7. End Sub
複製代碼
AAA.rar (10.16 KB)
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

本帖最後由 n7822123 於 2018-10-4 01:07 編輯

回復 2# n7822123


更正! 忘記加前面的數字了
  1. Sub TEST()
  2. Ar = Split(Replace([A1], "-", ","), ",")
  3. A0 = Left(Ar(0), InStr(Ar(0), "(") - 1)
  4. Ar(0) = Right(Ar(0), Len(Ar(0)) - InStr(Ar(0), "("))
  5. An = UBound(Ar)
  6. Ar(An) = Left(Ar(An), Len(Ar(An)) - 1)
  7. For i = 0 To An
  8.   Ar(i) = A0 & Ar(i)
  9. Next i
  10. [B1].Resize(An + 1) = Application.Transpose(Ar)
  11. End Sub
複製代碼
BBB.rar (10.53 KB)
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

本帖最後由 n7822123 於 2018-10-4 22:10 編輯

回復 11# adrian_9832

無言.....原來你的"-" 不是區格符號 而是連續的意思?

5-7=5,6,7
那9-0 應該如何解釋?
一、9,10
二、9,8,7,6,5,4,3,2,1,0
三、9,0

如果是第3種,那是不是表示你的位數都只有1位,個數最多就0~9  共10種?
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格,可以成就事業,也可以儲積功德。
返回列表 上一主題