外贸装箱单，下拉自动排箱号

hheethheet · 发表于 2021-7-6 17:12

求助大神，写个公式自动排箱号。指定一个数，就从此数按之前箱号开始排。
难点1：原数据格式是文本
难点2：合并单元格处如何处理。

bajifeng · 发表于 2021-7-6 19:59

源数据是某个文件夹的里的文本么？

hheethheet · 发表于 2021-7-7 11:08

bajifeng 发表于 2021-7-6 19:59
源数据是某个文件夹的里的文本么？

源数据就是excel数据

bajifeng · 发表于 2021-7-7 11:36

Sub bb()
ar = Range([a1], ActiveSheet.UsedRange)
base = ar(1, 3)
For i = 5 To UBound(ar)
If InStr(ar(i, 1), "-") Then
      sr = Split(ar(i, 1), "-")
      ar(i, 4) = sr(0) + base - 1 & "-" & sr(1) + base - 1
Else
      ar(i, 4) = ar(i, 1) + base - 1
End If
Next
[a1].Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub

bajifeng · 发表于 2021-7-7 11:38

我在公司，目前发不了附件，怎么给你呀，你只要点一下按钮，工作就自动完成了。
发个邮箱地址给我，我邮件发你。

hheethheet · 发表于 2021-7-7 11:49

bajifeng 发表于 2021-7-7 11:38
我在公司，目前发不了附件，怎么给你呀，你只要点一下按钮，工作就自动完成了。
发个邮箱地址给我，我邮件 ...

413852143@qq.com 先感谢大神！

bajifeng · 发表于 2021-7-7 12:42

hheethheet 发表于 2021-7-7 11:49
先感谢大神！

已发邮箱，请查收。

hheethheet · 发表于 2021-7-7 15:03

bajifeng 发表于 2021-7-7 12:42
已发邮箱，请查收。

测试成功，完美~再次感谢！

涕泗滂沱 · 发表于 2021-9-5 22:48

可否能发我一份？外贸装箱单 85013139@qq.com
万分感谢

xyxiong007 · 发表于 2021-9-6 15:40

讲真，这类我用bartender打，现在已经纯熟无比了。哪一天做一个教程给你演示一下。

		自动登录	找回密码
密码			免费注册

[求助] 外贸装箱单，下拉自动排箱号

评分