[已解决]如何在单元格区域中查找唯一值(最好用FOR语句)

shwanghuafeng

目标是在当前工作簿的sheet1的M列至U列中找到指定值（有且唯一），然后返回与该值在同列中的第一个值
比如找到的值在U3，那么返回U1的值
1：求一个简单点的算法，最好用FOR循环实现，数组的话我还不懂，或者特别简单的数组写法也行
2：另外我能不能挨列调用MATCH或者INDEX函数来实现这一功能

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2015-12-11 16:01

range.find吧，不知道具体情况，就按最简单的来

1. 
   
2. Sub cc()
   
3. Dim myWhat As String, C As Range, myLookat
   
4.   myWhat = "要找什么呢？"         '你要找什么就改成什么
   
5.   myLookat = XlLookAt.xlWhole   '匹配方式  ，这里设置的是精确匹配
   
6. Set C = Sheet1.Range("m:u").Find(myWhat, , , myLookat)
   
7. If C Is Nothing Then
   
8.   MsgBox "没有找到有：" & myWhat
   
9.   Else
   
10.     MsgBox Cells(1, C.Column).Value
    
11. End If
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

shwanghuafeng

用FOR我不知道该如何控制每一列的搜索范围，因为每一列值的多少不是固定的
用MATCH的话我不知道怎么判断MATCH成功与否，不知道MATCH失败返回什么值

橘子红

for each rng in range("m1:u" & [u65000].end(3).row)
      if rng.value = "查找值" then msgbox cells(1, rng.column)  '提高速度可以加句: exit for
next

shwanghuafeng

橘子红 发表于 2015-12-11 14:51
for each rng in range("m1:u" & .end(3).row)
      if rng.value = "查找值" then msgbox cells(1, rng. ...

大大能不能解释下Range("m1:u" & [u65000].End(3).Row)
其中为什么写m1:u而不是m:u，65000和最后的row又代表什么意思？end(3)我知道是向上查找

青城山苦丁茶

用find不可以吗？干嘛非得要用循环呢？

无聊的疯子

range.find吧，不知道具体情况，就按最简单的来

1. 
   
2. Sub cc()
   
3. Dim myWhat As String, C As Range, myLookat
   
4.   myWhat = "要找什么呢？"         '你要找什么就改成什么
   
5.   myLookat = XlLookAt.xlWhole   '匹配方式  ，这里设置的是精确匹配
   
6. Set C = Sheet1.Range("m:u").Find(myWhat, , , myLookat)
   
7. If C Is Nothing Then
   
8.   MsgBox "没有找到有：" & myWhat
   
9.   Else
   
10.     MsgBox Cells(1, C.Column).Value
    
11. End If
    
12. End Sub
    

复制代码

shwanghuafeng

谢谢各位大大的耐心解答