Question

我想从excel中的规则列表中对银行对帐单进行分类。我尝试使用vlookup，但我希望能够进行非完全匹配，据我所知，vlookup不适合此。

我下载了我的银行对帐单并将它们合并到单独的工作表中，并希望为其添加一个类别（以后将不同的工作表合并到一个数据透视表/图表中。

是否有一种简单的方法可以使用vba将另一列添加到工作表＆＃34; Statement＆＃34;名为Category，使用规则为每个事务生成类别？

我想要的是什么：

将读取列描述的VBA宏将匹配其中的一个关键字，其中包含Sheet2中的许多列表，列＆＃34;关键字＆＃34;然后在Column Category（sheet1）中写入从Sheet2上的Column Category中获取的已分配的Categorization。

我找到了一个很好的主题，但无法在我的工作表上使用它：

Sub test()
    Dim lastrow As Long, lastrow2 As Long
    Dim i As Integer, j As Integer
    Dim PatternFound As Boolean

    Call speedup

    lastrow = Sheets("Keywords").Range("A" & Rows.Count).End(xlUp).Row
    lastrow2 = Sheets("SOURCE DATA").Range("E" & Rows.Count).End(xlUp).Row

    For i = 4 To lastrow2
        PatternFound = False
        j = 1
        Do While PatternFound = False And j < lastrow
            j = j + 1
            If UCase(Sheets("SOURCE DATA").Range("E" & i).Value) Like "*" & UCase(Sheets("Keywords").Range("A" & j).Value) & "*" Then
                Sheets("SOURCE DATA").Range("F" & i).Value = Sheets("Keywords").Range("B" & j).Value
                PatternFound = True
            End If
        Loop
    Next i

    Call normal
End Sub

使用VBA在Excel中对银行对帐单进行分类

0 个答案: