Question

excel提取相同动作的最后一条,用VB代码实现

找到每个手机号码最后一条“充值”记录显示1

Answer 1

只是充值的最后一条？
用公式就能弄出来
C2
=IF(SUMPRODUCT((A$2:A$1000=A2)*(B$2:B$1000="充值"))=SUMPRODUCT((A$2:A2=A2)*(B$2:B2="充值")),1,"")
下拉
PS:原来的公式漏了一个逗号。。。。

追问

1万多条，表卡死了，我不用公式

追答

Sub test()
Set dic = CreateObject("scripting.dictionary")
myrow = Range("A65536").End(xlUp).Row
arr = Range("A2:B" & myrow)
n = UBound(arr)
ReDim brr(1 To n)
For i = n To 1 Step -1
    If Not dic.exists(arr(i, 1)) And arr(i, 2) = "充值" Then
        dic(arr(i, 1)) = ""
        brr(i) = 1
    End If
Next
Range("C2:C" & myrow).ClearContents
Range("C2:C" & myrow) = Application.Transpose(brr)
End Sub

追问

如果手机号码在b列，操作状态在g列，怎么改代码

Answer 2

可以使用for循环，从下往上遍历，找到的第一个动作对应的，就应该是符合条件的
Set d = CreateObject("scripting.dictionary")
for j=cells(rows.count,2).end(3).row to 2 step -1
if not d.exists(cells(j,2).value) then
d(cells(j,2).value)=j
endif
next j
最后字典里的值就是第二列从下数第一次出现的名称及对应的行号

追问

测试无效

追答

以上代码只是给了一个方式，具体字典里的值在哪里赋值，还有需要楼主根据需求来的