求助，大侠们帮我看下这组代码错在哪里？

luoheping76

工作表想达到的目的：如果sheet2的B列1-100单元格与sheet1的B列1-100单元格对应相等，哪该行就自动隐藏，我是个新手，我写的代码如下Sub ShtName()
    Dim i As Integer
        Range("b1").Select
    For i = 1 To 100
    Next
    If Worksheets("Sheet1").Range("b1") = Worksheets("Sheet2").Range("b1") Then
         Rows(Worksheets("Sheet2").Range("b1")).Select
    Selection.EntireRow.Hidden = True
        Else: Rows(Worksheets("Sheet2").Range("b1")).Select
    Selection.EntireRow.Hidden = False
        End If
End Sub

但只能隐藏第一项，需要改动哪些地方

luoheping76

是sheet2的b列1-100与 sheet1的b列1-100的单元格对应相等，就隐藏sheet2的该行。

autocadr41

luoheping76 发表于 2015-3-13 15:14
是sheet2的b列1-100与 sheet1的b列1-100的单元格对应相等，就隐藏sheet2的该行。

Sub ShtName()
     Dim i As Integer
     For i = 1 To 100
        If Worksheets("Sheet1").Cells(i, 2) = Worksheets("Sheet2").Cells(i, 2) Then
            Rows(Worksheets("Sheet2").Cells(i, 2)).EntireRow.Hidden = True
        Else
            Rows(Worksheets("Sheet2").Cells(i, 2)).EntireRow.Hidden = False
        End If
    Next
End Sub