VBA自动判断地支范围 C列数字不确定

laoau138 · 发表于 2017-1-23 16:57

VBA自动判断地支范围 C列数字不确定

望帝春心 · 发表于 2017-1-23 18:20

Sub test()
Set d = CreateObject("scripting.dictionary")
arr = [e1:j6]
brr = [e9:h20]
On Error Resume Next
For i = 1 To 6
For j = 1 To 6
If arr(i, j) = Cells(Rows.Count, 3).End(3) Then f = 1: Exit For
Next
If f = 1 Then Exit For
Next
For l = 1 To 6
For m = 1 To 12
For n = 2 To 4
If brr(m, n) = arr(i, l) Then
x = x + 1
d.Add brr(m, 1), ""
End If
Next
Next
Next
For l = 1 To 6
For m = 1 To 12
For n = 2 To 4
If brr(m, n) = arr(l, j) Then
x = x + 1
d.Add brr(m, 1), ""
End If
Next
Next
Next
[e25] = Join(d.keys, "，")
End Sub

复制代码

瞎写的感觉好复杂

望帝春心 · 发表于 2017-1-23 18:24

参考附件

复制代码

无聊的疯子 · 发表于 2017-1-23 19:43

望帝春心发表于 2017-1-23 18:20
瞎写的感觉好复杂

确实有点复杂,

,思路可以改一下

如果要用字典,就把 1-36都装进字典里,每个字典对应一个文字,
这样用数字做key在返回字典里的item就行了,

其实他这个根本不需要用字典,因为都是数字,直接数据arr(1 to 36)
然后把每个数字对应的时辰装进去就行了(和用字典一样)

他的输出结果是排了序的,所以读取 5 所在行和列的数据后进行一个排序,
然后放数上面的组里把结果返回出来就可以了,记得要去重哦

无聊的疯子 · 发表于 2017-1-23 20:32

C16单元格的值 10 ,返回的不重复结果只有8个?

望帝春心 · 发表于 2017-1-23 20:59

无聊的疯子发表于 2017-1-23 19:43
确实有点复杂,,思路可以改一下

如果要用字典,就把 1-36都装进字典里,每个字典对应一个文字,

收到，谢谢老师指点

laoau138 · 发表于 2017-1-23 21:15

望帝春心发表于 2017-1-23 18:20
瞎写的感觉好复杂

越来越高手了

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

[VBA] VBA自动判断地支范围 C列数字不确定

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

评分