求各位大神解决大量数据的正负相充的问题

馨一天地 · 发表于 2016-4-27 17:55

[tr][/tr]
[tr][/tr]
[tr][/tr]
[tr][/tr]

请求各位大神帮助解决大量数据的正负相充的问题（主要解决运算速度问题）
需求：
1、在10万以上的数据中快速找出重复的两条关键字（A列）
判断：
1、如果甲和乙的两条都可以正负相充，则在结果（D列）显示“两条记录充平”；
2、如果甲和乙的两条不可以正负相充，则在结果结果（D列）显示“两条记录未充平”；

馨一天地 · 发表于 2016-4-27 17:56

具体问题详见附件

yjh_27 · 发表于 2016-4-28 08:18

单列对冲扩展为多列对冲

馨一天地 · 发表于 2016-4-28 13:25

yjh_27 发表于 2016-4-28 08:18
单列对冲扩展为多列对冲

大神，YjhSort这个函数我还需要再研究一下
但是还有个小问题没有解决，就是关键字有且仅有一条的结果如何不产生“两条记录未充平”？请求大神解答，谢谢！

yjh_27 · 发表于 2016-4-28 14:39

馨一天地发表于 2016-4-28 13:25
大神，YjhSort这个函数我还需要再研究一下
但是还有个小问题没有解决，就是关键字有且仅有一条的结果如 ...

具体要求？
我是未对冲的统一为两行未对冲

馨一天地 · 发表于 2016-4-28 22:09

yjh_27 发表于 2016-4-28 14:39
具体要求？
我是未对冲的统一为两行未对冲

具体要求是需要三个结果
1、如果关键字存在有两条记录，则分别判断甲的两条数据和乙的两条数据是否正负相冲，如果可以正负相冲，则在结果处显示“有两条记录已冲平”；如果甲或乙的两条记录不能对冲，则在结果处显示“两条记录未冲平”
2、如果关键字有且仅有一条，则结果为空，不用任何标记

yjh_27 · 发表于 2016-4-29 08:39

馨一天地发表于 2016-4-28 22:09
具体要求是需要三个结果
1、如果关键字存在有两条记录，则分别判断甲的两条数据和乙的两条数据是否正负 ...

Sub aa()
t = Timer
r = Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp).Row
arr = Sheets("Sheet1").Range("a2:c" & r)
b5rr = YjhSort(arr, "a,1", "1,2H;5")
c5rr = YjhSort(arr, "a,1", "1,3H;5")
b6rr = YjhSort(arr, "a,1", "1,2H;6")
c6rr = YjhSort(arr, "a,1", "1,3H;6")
For i = 1 To UBound(b5rr)
If b5rr(i, 1) * c5rr(i, 1) <> 0 Then
b5rr(i, 1) = "两条记录充平"
ElseIf arr(i, 2) = 0 And c5rr(i, 1) <> 0 Then
b5rr(i, 1) = "两条记录充平"
ElseIf arr(i, 3) = 0 And b5rr(i, 1) <> 0 Then
brr(i, 1) = "两条记录充平"
ElseIf b6rr(i, 1) + c6rr(i, 1) <> 0 Then
b5rr(i, 1) = "两条记录未充平"
ElseIf arr(i, 2) = 0 And c6rr(i, 1) <> 0 Then
b5rr(i, 1) = "两条记录未充平"
ElseIf arr(i, 3) = 0 And b6rr(i, 1) <> 0 Then
b5rr(i, 1) = "两条记录未充平"
Else
b5rr(i, 1) = ""
End If
Next
MsgBox Timer - t
Sheets("Sheet1").Range("e2:e" & r) = b5rr
'Sheets("Sheet1").Range("f2:f" & r) = crr
End Sub

复制代码

馨一天地 · 发表于 2016-4-29 09:29

yjh_27 发表于 2016-4-29 08:39

感谢你及时的回复和解答，但是现在第三个需求还没实现，就是有且只有一条记录的，还是会显示“两条记录未充平”的结果，可以帮忙解决这个问题么，谢谢！

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

[求助] 求各位大神解决大量数据的正负相充的问题