VB多条件判断

海棠你好

请查看附件内容帮忙写代码，在线等，谢谢

zhouzhongchi

1. Sub 多条件调用数据()
   
2.   arr = Range("a1").CurrentRegion
   
3.   brr = Sheets("以往数据").Range("a1").CurrentRegion
   
4.   ReDim crr(1 To UBound(arr), 1 To 1)
   
5.   For x = 2 To UBound(arr)
   
6.      For y = 2 To UBound(brr)
   
7. '        If arr(x, 1) & arr(x, 2) & arr(x, 3) = brr(y, 1) & brr(y, 2) & brr(y, 3) Then
   
8. '           crr(x - 1, 1) = brr(y, 4)
   
9. '           Exit For
   
10. '        End If
    
11.         If brr(y, 1) = arr(x, 1) And brr(y, 2) = arr(x, 2) And brr(y, 3) = arr(x, 3) Then
    
12.         m = m + 1
    
13.         crr(m, 1) = brr(y, 4): Exit For '如果记录是一对多，则不能用exit for
    
14.         End If
    
15.      Next
    
16.   Next
    
17.   Sheets("sheet1").Range("d2").Resize(x - 1) = crr
    
18. End Sub

复制代码

海棠你好

zhouzhongchi 发表于 2015-9-16 23:00

我主要是学习代码，上面的有好多看不懂，能否给注释一下，十分感谢

zhouzhongchi

这个就不需要了吧。中间注释掉的部分就是你自己写的。只是换了种更容易理解的方式罢了。帮助文档就是最好的老师。
如果是初学，在单元格中循环，更加直观。

海棠你好

zhouzhongchi 发表于 2015-9-17 13:48
这个就不需要了吧。中间注释掉的部分就是你自己写的。只是换了种更容易理解的方式罢了。帮助文档就是最好的 ...

谢谢你，我自己在研究研究，

pxzpeng

Sub 多条件调用数据()
  x = Sheet1.UsedRange.Rows.Count
  y = Sheet2.UsedRange.Rows.Count   '将表名“以往数据”改为sheet2即可
  For xi = 2 To x
  For yi = 2 To y
  If Sheet1.Cells(xi, 1) = Sheet2.Cells(yi, 1) And Sheet1.Cells(xi, 2) = Sheet2.Cells(yi, 2) And Sheet1.Cells(xi, 3) = Sheet2.Cells(yi, 3) Then
  Sheet1.Cells(xi, 4) = Sheet2.Cells(yi, 4)
  Sheet1.Cells(xi, 5) = Sheet2.Cells(yi, 5)
  Sheet1.Cells(xi, 6) = Sheet2.Cells(yi, 6)
  Sheet1.Cells(xi, 7) = Sheet2.Cells(yi, 7)
  
        End If
     Next
  Next
  
End Sub
我认为这个代码比较容易懂！