麻烦帮忙看看这段代码要怎么修改关于流水匹配问题

sulli112 · 发表于 2023-10-17 13:51

weizijingbo 发表于 2023-10-17 13:39
楼主给的数据不严格，测试比较难，不过我大概了解了下，觉得还是用字典应该可以解决，sql模式不需要数据库 ...

你是不是回错帖子了，我没有学员信息查询表格哦

张雨鑫 · 发表于 2023-10-17 21:14

Sub 对照借贷款()
Set a = ActiveSheet
Set d_borrow = CreateObject("scripting.dictionary")
Set d_loan = CreateObject("scripting.dictionary")
x = Range("e65536").End(xlUp).Rows
y = a.UsedRange.Columns.Count
For i = 1 To x
d_borrow(i) = a.Cells(i, 1).Value & "_" & Val(a.Cells(i, 4).Value) & "_" & Val(a.Cells(i, 5).Value)
d_loan(i) = a.Cells(i, 10).Value & "_" & Val(a.Cells(i, 11).Value) & "_" & Val(a.Cells(i, 12).Value)
Next
For Each i In d_borrow.keys
For Each ii In d_loan.keys
If d_borrow(i) = d_loan(ii) Then
a.Cells(i, 1).Value = ""
a.Cells(ii, 10).Value = ""
Exit For
End If
Next
Next
End Sub

复制代码

sulli112 · 发表于 2023-10-19 09:42

张雨鑫发表于 2023-10-17 21:14

感谢帮助

sulli112 · 发表于 2023-10-25 12:03

张雨鑫发表于 2023-10-17 21:14

你这段代码不行，运行都没有反应

sulli112 · 发表于 2023-10-25 12:08

dambcer 发表于 2023-10-10 21:39

你这个代码好像不行，新附件我就删了前三行内容，其他没有动过

dambcer · 发表于 2023-10-25 12:18

sulli112 发表于 2023-10-25 12:08
你这个代码好像不行，新附件我就删了前三行内容，其他没有动过

哦知道了
其实没必要告诉我的，都不记得是啥了

sulli112 · 发表于 2023-10-25 12:25

dambcer 发表于 2023-10-25 12:18
哦知道了
其实没必要告诉我的，都不记得是啥了

好吧，知道了

张雨鑫 · 发表于 2023-10-26 15:23

sulli112 发表于 2023-10-25 12:08
你这个代码好像不行，新附件我就删了前三行内容，其他没有动过

你改动了原始数据当然不行你不可以改动原始数据的格式
你给的格式是什么你就要用什么格式
除非你改一下代码中数行数的代码和输出位置的代码
要不然肯定会错

sulli112 · 发表于 2023-10-26 17:29

张雨鑫发表于 2023-10-26 15:23
你改动了原始数据当然不行你不可以改动原始数据的格式
你给的格式是什么你就要用什么格式
除非你改一 ...

我拿你代码，去测试上传的附件，好像也没有反应

张雨鑫 · 发表于 2023-10-27 10:43

我刚才试了能用我理解的是你要删除俩边一模一样的也可以删除掉日期
太久远了我已经不记得了

		自动登录	找回密码
密码			免费注册

[求助] 麻烦帮忙看看这段代码要怎么修改关于流水匹配问题