ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦p¦ó¥Î¥¿³Wªí¥Ü¡A±N¯S®í¦r¤¸µø¬°¦r¦êªº¤@³¡¤À¡H

¦^´_ 1# ychuang

Public Sub instr_()
    Dim str1 As String
    str1 = "don't"

    For Row = 1 To 10
        For col = 1 To 10
            If (InStr(1, Cells(Row, col), str1)) Then
                Range(Cells(Row, col), Cells(Row, col)).Select
            End If
        Next
    Next

End Sub

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD