如何改才能做到精确匹配

南仁海杨 · 发表于 2011-3-17 00:20

With Worksheets("AA")
R = .Range("h1:cv1").Find(Day(Target), , ,  1).Column + 1
'T = .Range("b3:e50").Find(Cells(Target.Row, 5) & Cells(Target.Row, 6) & Cells(Target.Row, 7) & Cells(Target.Row, 8) , , , 1).Row                   这样写报错
T = .Range("b3:e50").Find(range(Cells(Target.Row, 5) , Cells(Target.Row, 8)) , , , 1).Row       '这样写得不到对应匹配
If R <> 0 And T <> 0 Then
.Cells(T, R) = .Cells(T, R) + 1
Else
MsgBox "请先完善相关信息！"
End If
End With
AA表里的B&C&D&E&F是不重复值，Cells(Target.Row, 5) & Cells(Target.Row, 6) & Cells(Target.Row, 7) & Cells(Target.Row, 8)随着行不同可能会重复出现
这样的话好像只第一列的值相符就会有T的存在，请问如果做到每列值相同时才有T的存在？表

[ 本帖最后由南仁海杨于 2011-3-17 09:36 编辑 ]

Admin · 发表于 2011-3-18 07:05

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。

为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

XJC265 · 发表于 2011-3-18 10:56

请上传附件。有附件有真相。

309197269 · 发表于 2011-3-18 11:11

学习哈！
公式还可以做的咯
但是匹配的时候那个编号重复就不行的了
还是要手动修改

南仁海杨 · 发表于 2011-3-19 10:17

text1.rar (104.65 KB, 下载次数: 2)
现上传附件，请各位大侠帮帮忙整一下，谢谢1

南仁海杨 · 发表于 2011-3-19 15:41

大家帮忙看看吧

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

[求助] 如何改才能做到精确匹配

〖Excel Home友情提示〗