[已解决]vba不用match函数,用循环查找如何做

vbyou127

vba不用match函数,用循环查找如何做

最佳答案

月排行榜 / 总排行榜

zjdh

2016-6-14 17:26

Sub c1() '判断是否存在,并查找所在行数
      Dim hao As Integer
      Dim icount As Integer, I
      icount = Application.WorksheetFunction.CountIf(Sheets("库存明细表").[b:b], [g3])
      If icount > 0 Then
       MsgBox "该入库单号码已经存在，请不要重复录入"
     
       For I = 2 To Sheets("库存明细表").Range("A65536").End(3).Row
          If Sheets("库存明细表").Cells(I, 2) = Range("G3") Then Exit For
       Next
       MsgBox I
      
       'MsgBox Application.WorksheetFunction.Match([g3], Sheets("库存明细表").[b:b], 0)
      End If
    End Sub

跳转到最佳答案楼层

zjdh

Sub c1() '判断是否存在,并查找所在行数
      Dim hao As Integer
      Dim icount As Integer, I
      icount = Application.WorksheetFunction.CountIf(Sheets("库存明细表").[b:b], [g3])
      If icount > 0 Then
       MsgBox "该入库单号码已经存在，请不要重复录入"
     
       For I = 2 To Sheets("库存明细表").Range("A65536").End(3).Row
          If Sheets("库存明细表").Cells(I, 2) = Range("G3") Then Exit For
       Next
       MsgBox I
      
       'MsgBox Application.WorksheetFunction.Match([g3], Sheets("库存明细表").[b:b], 0)
      End If
    End Sub