|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
参与一下。。。
- Sub ykcbf() '//2024.5.1
- r = Cells(Rows.Count, 5).End(3).Row
- arr = [d1].Resize(r, 7)
- On Error Resume Next
- For i = 2 To UBound(arr)
- arr(i, 7) = arr(i, 5)
- If arr(i, 3) = "账户充值" Then arr(i, 7) = "充值"
- If arr(i, 3) = "消费冲正" Then arr(i, 7) = ""
- If arr(i, 3) = "消费撤消" Then arr(i, 7) = ""
- If i <= r - 1 Then
- If arr(i + 1, 3) = "消费冲正" Then arr(i, 7) = ""
- End If
- Next
- [j1].Resize(r, 1) = Application.Index(arr, 0, 7)
- End Sub
复制代码
|
评分
-
1
查看全部评分
-
|