全民一起VBA实战篇 专题2 第一回 同列匹配循环有术，起点唯君马首是瞻

相关知识点：

跨列匹配

同列匹配

双循环，先按照手工的方法去模拟解决问题，然后画流程图，技巧如下：

1. 打标签
2. 里层循环与外层循环是关联的，身后查找

例1 审计超过限额交易就显示红色（跨列数据放在一起匹配）

Sub demo1()

       Dim j as long, k as long, name as string, amount as long

       For j=3 To 15

              name=cells(j,3) : amount=cells(j,5)

              For k=3 To 5

                     If  cells(k,8)=name and amount>cells(k,9) Then

                            Cells(j,2).interior.color=vbred

                            Exit For

                     End If

              Next k

       Next j    

End Sub

例2  是否是客户第一次交易(第一行首次交易标Yes，以下重名都标No,做标记判断，筛选法)

      同列数据查找和对比

Sub demo2()

       Dim j as long, k as long

       For j=3 To 24

              If cells(j,6)=””  Then

                     Cells(j,6)=”YES”  ‘打标签

                     For k=j+1 To 24   ‘k与j关联，身后查找

                            If cells(k,3)=cells(j,3) Then

                                   Cells(k,6)=”NO”

                            End If

                     Next k

              End If

       Next j

End Sub