求助VBA小技巧

lcxq120713

G7输入数据，通过与A列的比对，生产最新流水码至H7。

liulang0808

文件损坏，无法打开

dragonthree

只比较后4位？

lcxq120713

是的 只是后四位

lcxq120713

liulang0808 发表于 2024-3-5 18:24
文件损坏，无法打开

试试这个可以吗

fzxba

Sub test0()
  Dim ar, i As Long, m As Long, n As Long, s As String, t As String
  ar = Range("A2").CurrentRegion.Value
  s = Range("G7").Value
  For i = 2 To UBound(ar)
    If InStr(ar(i, 1), s) Then
      m = Val(Mid(ar(i, 1), Len(s) + 1))
      If m > n Then n = m: t = Format(m + 1, String(Len(ar(i, 1)) - Len(s), "0"))
    End If
  Next
  If n Then Range("H7") = s & t Else Range("H7") = "木有"
End Sub

lcxq120713

fzxba 发表于 2024-3-6 08:30
Sub test0()
  Dim ar, i As Long, m As Long, n As Long, s As String, t As String
  ar = Range("A2") ...

可以用 感谢！