返回列表下一主題上一主題發帖

[發問] Excel計算箱號碼問題

john2006168

　暱稱: jjjohn

中學生 Rank: 2

帖子: 178
主題: 65
精華: 0
積分: 252
點名: 0
作業系統: WINDOW7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2010-5-4
最後登錄: 2024-2-1

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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

Test Cartons.zip (17.33 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

2^#

發表於 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

TOP

hcm19522