多条件判断VBA

Anny2021

研究了二天还是没有成功，最后放弃用函数完成任务先，还是需要各位大神帮助，学习下VBA的写法.
要求： 满足条件： sheet1内的 B到M列存在于Sheet2 内的C至N列，返回Sheet2的B 列值放至N到BK列，并需要根据数据的大小排列（数量在Sheet2内的A列）

ykcbf1100

楼主的需求能不能具体一点啊？按什么规则去提取数据呢？

Anny2021

ykcbf1100 发表于 2023-5-4 13:16
楼主的需求能不能具体一点啊？按什么规则去提取数据呢？

sheet1内的 B到M列数值如果存在Sheet2的B 列值放至N，请提取SHeet2 的A列数值 到SHeet 1 的N列至BK列

ykcbf1100

Anny2021 发表于 2023-5-4 13:36
sheet1内的 B到M列数值如果存在Sheet2的B 列值放至N，请提取SHeet2 的A列数值 到SHeet 1 的N列至BK列

还是不懂。

Anny2021

ykcbf1100 发表于 2023-5-4 13:41
还是不懂。

Sub aa3()

Dim a, b, c, r
For a = 2 To 13
  For b = 3 To 14
    For c = 2 To 2100
    r = WorksheetFunction.Match(Cells(a, b), Range(Sheets("Sheet2").Cells(c, 3), Sheets("Sheet2").Cells(c, 14)), 0)
   
    If IsError(r) Then
r = 0
End If
    If r > 0 Then
    Cells(a, 14) = Sheets("Sheet2").Cells(c, 2)
    Exit For
    End If
    Next c
    c = c + 1
    Next b
    b = b + 1
    Next
   
End Sub
我自已写的代码，还是出错

Anny2021

ykcbf1100 发表于 2023-5-4 13:41
还是不懂。

Sub aa3()

Dim c, r

          For c = 2 To 2100
          r = WorksheetFunction.Match(Cells(3, 2), Range(Sheets("Sheet2").Cells(c, 3), Sheets("Sheet2").Cells(c, 14)), 0)
             If IsError(r) Then
r = 0
    End If
        If r > 0 Then
        Cells(3, 14) = Sheets("Sheet2").Cells(c, 2)
        Exit For
    End If
    Next

   
End Sub
这个是有问题的

shiruiqiang

大致意思能懂，但是以281160041-298004050-0-0-0-0为例子，sheets2有20个，只取一个。
解题思路，sheets1的b-m作为字典，查找sheets2中是否存在，在的话复制字典到SHeet 1 的N列至BK列

Anny2021

shiruiqiang 发表于 2023-5-4 14:46
大致意思能懂，但是以281160041-298004050-0-0-0-0为例子，sheets2有20个，只取一个。
解题思路，sheets1 ...

Shee1 内的 B列至M列：312554001        564175002        0        0        0        0        0        0        0        0        0        0
Sheet2： 312554001        564175002        0        0        0        0        0        0        0        0        0        0
由于Sheet 1 B列至M列的内容完全在 在Sheet 2的1754行找到，SHeet2 A列 204381001 Copy 到Sheet 1的N列至BK列，求代码

Anny2021

ykcbf1100 发表于 2023-5-4 13:41
还是不懂。

Shee1 内的 B列至M列：312554001        564175002        0        0        0        0        0        0        0        0        0        0
Sheet2： 312554001        564175002        0        0        0        0        0        0        0        0        0        0
由于Sheet 1 B列至M列的内容完全在 在Sheet 2的1754行找到，SHeet2 A列 204381001 Copy 到Sheet 1的N列至BK列，求代码

ykcbf1100

Anny2021 发表于 2023-5-4 15:08
Shee1 内的 B列至M列：312554001        564175002        0        0        0        0        0       ...

猜一个吧。