如何用VBA取B列名称和对应坐标值？（鲜花）

约定的童话

LMY123 发表于 2018-8-16 11:27
http://club.excelhome.net/thread-1307042-1-1.html

需求不一致啊

约定的童话

xiangbaoan 发表于 2018-8-16 11:58
Sub test()
Dim ar, r&, i%, d As Object
Set d = CreateObject("scripting.dictionary")

还是不对，结果从C12开始就不对啦，我是想实现：B列名称相同，则取他右一右二两列数据对比，C跟C对比，D跟D对比，保留最小值那一行，有一行是最小的

不知道为什么

约定的童话 发表于 2018-8-16 12:46
还是不对，结果从C12开始就不对啦，我是想实现：B列名称相同，则取他右一右二两列数据对比，C跟C对比，D ...

一个问题说到12楼了，还没说清楚

是不是分别取 c列 d列的最小值？

约定的童话

不知道为什么 发表于 2018-8-16 13:32
一个问题说到12楼了，还没说清楚

是不是分别取 c列 d列的最小值？

不是，这里每一行都是一个坐标点，分布在一个平面，我要保留离原点最近的点坐标所在行！

ykqrs

1. Sub qq()
   
2. Dim d, arr, i%, j%, brr(), s1#, s2#, t
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. arr = [a1].CurrentRegion
   
5. For i = 1 To UBound(arr)
   
6. If Not d.exists(arr(i, 2)) Then
   
7. d(arr(i, 2)) = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3) & "|" & arr(i, 4) & "|" & arr(i, 5)
   
8. Else
   
9. s1 = arr(i, 3)
   
10. s2 = arr(i, 4)
    
11. If s1 < Split(d(arr(i, 2)), "|")(2) Then
    
12. If s2 < Split(d(arr(i, 2)), "|")(3) Then
    
13. d(arr(i, 2)) = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3) & "|" & arr(i, 4) & "|" & arr(i, 5)
    
14. End If
    
15. End If
    
16. End If
    
17. Next
    
18. t = d.items
    
19. ReDim brr(1 To d.Count, 1 To 5)
    
20. For i = 1 To d.Count
    
21. For j = 1 To 5
    
22. brr(i, j) = Split(t(i - 1), "|")(j - 1)
    
23. Next
    
24. Next
    
25. Sheet2.Cells.Clear
    
26. Sheet2.[a1].Resize(d.Count, 5) = brr
    
27. End Sub
    

复制代码

ykqrs

约定的童话 发表于 2018-8-16 14:10
不是，这里每一行都是一个坐标点，分布在一个平面，我要保留离原点最近的点坐标所在行！

结果在sheet2，c11是否正确，如果不正确应该返回什么结果？

ykqrs

123.zip (30.73 KB, 下载次数: 7)

2018-8-16 14:57 上传

点击文件名下载附件

不知道为什么

ykqrs 发表于 2018-8-16 14:57

大侠你的猜题水平还是可以的啊，呵呵
估计还是不符合楼主要求的。
另外 如图 这2 句貌似有点问题把

ykqrs

不知道为什么 发表于 2018-8-16 15:05
大侠你的猜题水平还是可以的啊，呵呵
估计还是不符合楼主要求的。
另外 如图 这2 句貌似有点问题把

这两句没有问题，如果没有完全符合的保留第一条记录。。。。。。。。。。。。