Andy2483

¦^´_ 1# jsc0518


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾Ç¾Ç²ß«á«Øij¥H¤U¤è®×,½Ð¸Õ¸Õ¬Ý

Option Explicit
Sub ÀË´ú_¿ï¨ú°ÝÃD®æ()
Dim i&, Arr, n, xR As Range, C%, R&
Arr = ActiveSheet.UsedRange
For C = 1 To UBound(Arr, 2)
   For R = 1 To UBound(Arr)
      If InStr("/¥D/°Æ/¡´/", "/" & Trim(Arr(R, C)) & "/") Then
         n = n + 1
         If n >= 7 Then
            If Not xR Is Nothing Then
               Set xR = Union(xR, Cells(R, C))
               Else
                  Set xR = Cells(R, C)
            End If
         End If
         Else
            n = 0
      End If
   Next
   n = 0
Next
If Not xR Is Nothing Then
   Application.Goto xR
   Else
     MsgBox "¨S¦³³sÄò¤C¤Ñ¤W¯Z!"
End If
End Sub