[分享]关于查找方法(Find方法)的应用示例补充

落子无声

顶上去慢慢学习。

luo_by

或许能解决我的记录指针问题，谢谢

fanhongnc

留个记号学习{:soso_e181:}

820211639

{:soso_e100:}

`·./╱诗镱

非常感谢，雪中送炭呢。学习了，谢谢老师！

xiaotiebaba

谢谢提供的案例

tchzm

{:soso_e100:}谢谢分享

529905149

谢谢，正是需要的

1306156279

我想将查找工作表Sheet1上E列中的每个单元格，并在部分值为“新吴区”所在的单元格的第J列中作出标记“新吴区”。
下面的程序哪儿错了，应该怎么改？谢谢！
Sub Mark_cells_in_column()
    Dim FirstAddress As String
    Dim myArr As Variant
    Dim rng As Range
    Dim I As Long
   

    Application.ScreenUpdating = False
    myArr = Array("新吴区")
    With Sheets("Sheet1").Range("E:E")
        .Offset(0, 5).ClearContents

        For I = LBound(myArr) To UBound(myArr)
            Set rng = .Find(What:=myArr(I), _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlFormulas, _
                            LookAt:=xlPart, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)

            If Not rng Is Nothing Then
                FirstAddress = rng.Address
                Do
                    rng.Offset(0, 5).Value = "新吴区"
                    Set rng = .FindNext(rng)
                Loop While Not rng Is Nothing And rng.Address <> FirstAddress
            End If
        Next I
    End With
    Application.ScreenUpdating = True
End Sub

david_jiao

感谢楼主分享