標題: [發問] Excel計算箱號碼問題 [打印本頁]

---

作者: john2006168    時間: 2019-2-19 11:34     標題: Excel計算箱號碼問題

想問一下高手你否做到新箱子號碼的格式,因為不是很懂寫.
謝謝幫忙先.


Batch no        件数        原箱号        新箱号格式
1902132        1        C01-01                  C01-02
1902132        1        C02-02       
1902144        1        C03-03                   C03-24
1902144        1        C04-04       
1902144        20        C05-24       
1902144        0               
1902085        15        C25-39                  C25-39
1902099        1        C40-40                  C40-41
1902089        1        C41-41       
1902089        0               
1902105        1        C42-42                  C42-42
1902100        1        C43-43                   C43-43

---

作者: 准提部林    時間: 2019-2-19 14:34

Sub TEST()
Dim R&, xR As Range, xH As Range, S&, T$
R = [J65536].End(xlUp).Row
If R < 7 Then Exit Sub
With Range("M7:M" & R): .UnMerge: .ClearContents: End With
For Each xR In Range("J7:J" & R)
    If xR <> xR(0) Then Set xH = xR(1, 4): T = "C" & Format(S + 1, "00-")
    S = S + Val(xR(1, 2))
    If xR <> xR(2) Then xH = T & Format(S, "00"): Range(xH, xR(1, 4)).Merge
Next
End Sub

---

作者: hcm19522    時間: 2019-2-19 14:42

https://blog.xuite.net/hcm19522/twblog/586862783

---

作者: john2006168    時間: 2019-2-19 14:57

回復 2# 准提部林
Thanks for your help.:loveliness:

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)