求助单号长短、位置不一致情况下怎么取最后几位号码匹配，标黄，引用数据

sulli112

想请教一下论坛的大神，有没有什么公式或者类似的帖子，可以解决下面这个问题

  1.根据第二个表格“金蝶数据“”这个表格NO:后面的数字去匹配第一个表格“税局进项数据”C列：数电票号码&L列有效抵扣税额或者E列发票号码&L列有效抵扣税额这两列的号码从右往左数6-7位以及L列对应金额，如果一致，那就将"税局进项数据"对应那列标黄，然后将"金蝶数据"这个表日期、凭证号取数填到对应第一个表的V,W列，谢谢

注意一下NO:可能会出现NO:  NO :等几种格式，然后金蝶的NO:后面的数字我一般取发票的6-8位，要考虑取数长度

shiruiqiang

发票号码作字典，正则式NO:\d+

shiruiqiang

feilanga

................................

wbjjzhu

用正则提取出发票号码，其它的你再处理

1. =REGEXP(C3,"[\s\S]*?NO[:：](\d+)|[\s\S]+",2,"$1")

复制代码

Qs18

Sub qs() '2024/6/29
    Dim arr, brr
    With Sheet2
        arr = .Range("a3:d" & .Cells(Rows.Count, "d").End(xlUp).Row)
        For i = 1 To UBound(arr)
            arr(i, 3) = TQ(arr(i, 3), "NO:")
        Next
    End With
    With Sheet1
        brr = .Range("a1").CurrentRegion.Value
        For i = 1 To UBound(arr)
            For j = 2 To .Cells(Rows.Count, "e").End(xlUp).Row
                If CStr(arr(i, 3)) = CStr(.Range("e" & j).Value) Then
                    .Range("a" & j & ":w" & j).Interior.Color = RGB(255, 255, 0)
                    .Range("v" & j).Value = arr(i, 2): .Range("w" & j).Value = arr(i, 1)
                End If
            Next
        Next
    End With
End Sub
Function TQ(text, pattern As String) As String
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.pattern = pattern & "\s*(\d+)"
    If regex.Test(text) Then
        TQ = regex.Execute(text)(0).SubMatches(0)
    Else
        TQ = "No match found"
    End If
    Set regex = Nothing
End Function

Qs18

试一下............

Qs18

试试.................

sulli112

feilanga 发表于 2024-6-29 15:50
................................

首先很感谢您的解答，我想问问为什么有些识别不到呢，明明有数据，请问是什么情况呢

sulli112

Qs18 发表于 2024-6-29 16:07
试试.................

试了一下好像有些数据不能匹配搭配。请问是什么原因的呢，标绿色的数据应该是有的，测试附件已附上，谢谢