vba练习

oyzjo

Sub search()
  Dim rg, i, rng
  Dim R, C
  
  Dim xx As String
  Dim IsTrue As Boolean
  
  Dim sht As Worksheet
  For i = 1 To Sheets.Count      '外层循环，获得所有需要与“DB”表对比的sheet实例
    Set sht = Sheets(i)          '
    If StrComp(sht.Name, "DB", vbTextCompare) <> 0 Then '排除“DB”表
      For R = 1 To 65536
        For C = 1 To 265
         xx = sht.Cells(R, C)       '取单元格的值
         '与db表对比
         IsTrue = 比较DB(xx)        '比较，匹配返回 True
         If IsTrue = True Then
          '对当前单元格作处理
          '....略
         End If
        Next C
      Next R
    End If
  Next i   '外层循环 END

'''此循环不进入，因 Sheets("Sheet1").[d65536].End(xlUp).Row的值 = 1
''''  For i = 3 To Sheets("Sheet1").[d65536].End(xlUp).Row
''''    If Sheets("Sheet1").Range("d" & i) <> "" Then
''''      Set rg = Sheets("db").Range("a:a").Find(Sheets("Sheet1").Range("d" & i), LookAt:=xlWhole)
''''      If Not rg Is Nothing Then
''''        Sheets("Sheet1").Rows(i).Interior.ColorIndex = 6
''''      End If
''''    End If
''''  Next
''''
''''  For i = 3 To Sheets("Sheet1").[c65536].End(xlUp).Row
''''    If Sheets("Sheet1").Range("c" & i) <> "" And Sheets("Sheet1").Range("c" & i).Interior.ColorIndex <> 6 Then
''''      Set rng = Sheets("db").Range("a:a").Find(Sheets("Sheet1").Range("c" & i), LookAt:=xlWhole)
''''      If Not rng Is Nothing Then
''''        Sheets("Sheet1").Rows(i).Interior.ColorIndex = 6
''''      End If
''''    End If
''''  Next

End Sub

2288liu