一个简单的VBA脚本，用于标记遵循某种模式的$4000以上的交易

Sub 标记交易()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历每一行的交易数据
    For i = 2 To lastRow ' 假设数据从第2行开始，第1行为标题行
        ' 获取交易金额
        Dim amount As Double
        amount = ws.Cells(i, "B").Value ' 假设交易金额在B列
        
        ' 获取交易描述
        Dim description As String
        description = ws.Cells(i, "C").Value ' 假设交易描述在C列
        
        ' 判断交易金额是否大于$4000并且交易描述符合某种模式
        If amount > 4000 And description Like "*模式*" Then
            ' 在D列标记为符合条件的交易
            ws.Cells(i, "D").Value = "符合条件"
        End If
    Next i
End Sub