ikboy

Sub test()
Dim i As Integer
Dim r As Variant
Dim c As Variant
Dim cl As Variant
zr = Rows.Count
For i = 7 To Sheets.Count
    With Sheets(i)
        lastrow = .Range("aj" & zr).End(3).Row
        .Range("F4:aj" & lastrow).Clear  '§óª½±µ¦a§R°£¤º®e¤Î®æ¦¡
        Rem .ClearContents
        Rem .Interior.ColorIndex = xlNone
    End With
Next i
Worksheets("taiwan").Activate
Set c = Range("D420").Find("¶}¤u¤H¼Æ")
If Not c Is Nothing Then
   c.Select
   r = c.Row  'ªð¦^¦æ
   cl = c.Column 'ªð¦^¦C
End Sub