GBKEE

¦^´_ 1# t8899

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub test() '§R°£¦Uªí³Ì«á3­Ó¼Æ¾Ú¦æ
   
3.    Dim sh As Worksheet, r
   
4.    Application.FindFormat.Interior.ColorIndex = 35
   
5.    For Each sh In Worksheets
   
6.         r = sh.Cells.Find("*", , , , 1, 2, SearchFormat:=True).Row '¡yªí®æ«DªÅ³Ì¤j¦æ¸¹
   
7.    Next
   
8. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# t8899

1.   r = sh.Cells.Find("", , , , 1, 2, SearchFormat:=True).Row 'ªí®æ³Ì¤j¦æ¸¹

½Æ»s¥N½X

GBKEE

¦^´_ 7# c_c_lai

¥i¤F¸Ñ¤@¤U

1. Sub Ex() '§R°£¦Uªí³Ì«á3­Ó¼Æ¾Ú¦æ
   
2.     Dim sh As Worksheet, r As Double, i As Integer
   
3.     Application.FindFormat.Clear
   
4.       On Error GoTo Er:
   
5.     With Workbooks.Add
   
6.         .Sheets(1).Range("a" & Rows.Count) = "test"
   
7.         .Sheets(1).Range("a" & Rows.Count) = ""
   
8.         For i = 1 To 10
   
9.             For Each sh In .Worksheets
   
10.             sh.Activate
    
11.                 If i > 1 Then
    
12.                     On Error GoTo 0
    
13.                     With sh
    
14.                         .Cells(i, 1) = "aa"
    
15.                         .Cells(i, 1) = ""
    
16.                     End With
    
17.                 End If
    
18.                 r = sh.Cells.Find("", , , , 1, 2).Row - 1 ' ªí®æ³Ì¤j¦æ¸¹  (¦Pµ¥©ó SearchFormat:=False)
    
19.                 Debug.Print i, sh.Name, r, "¿ù»~­È " & Err
    
20.         Next
    
21.     Next
    
22.     .Close False
    
23.     End With
    
24. Exit Sub
    
25. Er:
    
26.     With sh
    
27.         .Cells(i) = "aa"
    
28.         .Cells(i) = ""
    
29.     End With
    
30.     Resume
    
31. End Sub

½Æ»s¥N½X