GBKEE

¦^´_ 3# jsc0518
§R°£ key word : ¤½¥q / ³æ§O: / ¤é´Á* / ²£«~¤jÃþ: / ®Ö­ã / ¦X­p* / ²Î­p*
.Pattern = "ªÅ¥Õ|¤½¥q|³æ§O:|¤é´Á|²£«~¤jÃþ:|®Ö­ã|¦X­p|Á`­p"
¨S¦³¤@­P ¦³"ªÅ¥Õ" ·íµM·|§R°£

1. Option Explicit
   
2. Sub Step1()
   
3.     Dim key_word$, E As Range, Rng As Range
   
4.     key_word = "/¤½¥q/³æ§O:/¤é´Á/²£«~¤jÃþ:/®Ö­ã/¦X­p/²Î­p/"
   
5.     For Each E In Range("a1:a" & Cells(Rows.Count, 1).End(3).Row)
   
6.         If InStr(key_word, "/" & E & "/") Then
   
7.             If Rng Is Nothing Then
   
8.                 Set Rng = E
   
9.             Else
   
10.                 Set Rng = Union(Rng, E)
    
11.             End If
    
12.         End If
    
13.     Next
    
14.     If Not Rng Is Nothing Then Rng.EntireRow.Delete
    
15. 
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# jsc0518
Step2  À³¬° 2 ->BÄæ .1 ¬°AÄæ
For Each E In Range("b1:b" & Cells(Rows.Count, 1).End(3).Row)
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Step1()
   
3. '§R°£ÃöÁä¦r-AÄæ¦C
   
4. Dim key_word$, E As Range, Rng As Range
   
5. 'key_word = "/¤½¥q/³æ§O:/¤é´Á:/¤é´Á/²£«~¤jÃþ:/®Ö­ã ÂÐ®Ö ³æ¦ì¥DºÞ °]·|¼f®Ö »sªí¤H /¦X­p/¦X­p:/²Î­p/Á`­p:/"
   
6. For Each E In ActiveSheet.UsedRange.Columns(1).Cells
   
7. If (Not IsDate(E) And E <> "") Or E.Cells(1, 2) <> "" Then
   
8. If Rng Is Nothing Then
   
9. Set Rng = E
   
10. Else
    
11. Set Rng = Union(Rng, E)
    
12. End If
    
13. End If
    
14. Next
    
15. If Not Rng Is Nothing Then Rng.EntireRow.Delete
    
16. For Each E In Range("a1:a" & Cells(Rows.Count, 2).End(xlUp).Row)
    
17. If E(1, 3) <> "" And E = "" Then E = E.Cells(0)
    
18. Next
    
19. If [A1].End(xlDown).End(xlDown).Row <> Rows.Count Then
    
20. Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
21. End If
    
22. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# jsc0518
§Aªºªí®æ¦³²Ä¤@µ§¸ê®Æ¶}©lAÄæ¨S¦³¤é´Á©Ò­P
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Step1()
   
3.     Dim E As Range, Rng As Range
   
4.     For Each E In ActiveSheet.UsedRange.Columns("A:C").Rows
   
5.        If (Not IsDate(E.Cells(1)) And E.Cells(1) <> "") Or E.Cells(2) <> "" Or Application.CountA(E.Cells) = 0 Then
   
6.             If Rng Is Nothing Then
   
7.                 Set Rng = E
   
8.             Else
   
9.                 Set Rng = Union(Rng, E)
   
10.             End If
    
11.         End If
    
12.     Next
    
13.     If Not Rng Is Nothing Then Rng.EntireRow.Delete
    
14.     For Each E In Range("a1:a" & Cells(Rows.Count, 2).End(xlUp).Row)
    
15.         If E(1, 3) <> "" And E = "" Then E = E.Cells(0)
    
16.     Next
    
17. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 11# jsc0518
¨âªÌ³£¥i¥H

1. With ActiveSheet.UsedRange.Columns("A")
   
2.         If .Cells(1).End(xlDown).End(xlDown).Row <> Rows.Count Then  '§PÂ_¦³ªÅ¥ÕªºÀx¦s®æ
   
3.             .SpecialCells(xlCellTypeBlanks).Cells = "=R[-1]C"                        '¨S¦³ªÅ¥ÕªºÀx¦s®æ .SpecialCells(xlCellTypeBlanks) µ{¦¡·|¿ù»~
   
4.             .Value = .Value
   
5.         End If
   
6.    End With

½Æ»s¥N½X

1.     For Each E In ActiveSheet.UsedRange.Columns("A").Cells
   
2.         If E(1, 3) <> "" And E = "" Then E = E.Cells(0)      
   
3.       'E(1, 3) => E.Cells(1, 3) ,E.Cells(0)=> E.Cells(0, 1) ** 0 -> ¤W¤@¦C
   
4.     Next

½Æ»s¥N½X

GBKEE

¦^´_ 14# jsc0518

1. Option Explicit
   
2. Sub Step1()
   
3.     Dim E As Range, Rng As Range
   
4.     With Sheets("vba")  'With ³¯­z¦¡ ¦b¤@­Ó³æ¤@ª«¥ó©Î¤@­Ó¨Ï¥ÎªÌ¦Û­q«¬ºA¤W°õ¦æ¤@¨t¦Cªº³¯­z¦¡¡C
   
5.         '1*****³B²z­n§R°£ªº¦C ªº°j°é****************
   
6.         For Each E In .UsedRange.Columns("A:C").Rows
   
7.              'UsedRange ÄÝ©Ê·|¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí«ü©w¤u§@ªí¤Wªº¤w¥Î½d³ò
   
8.             If (Not IsDate(E.Cells(1)) And E.Cells(1) <> "") Or E.Cells(2) <> "" Or Application.CountA(E.Cells) = 0 Then
   
9.                 If Rng Is Nothing Then   'Nothing ÃöÁä¦r¬O¥Î¨Ó±N¤@­Óª«¥óÅܼƱq¤@­Ó¹ê»Úªºª«¥óùؤÀÂ÷¶}¨Ó
   
10.                    Set Rng = E   'Set(³]©wÅܼƬ°ª«¥ó)  ­n§R°£ªº¦C(ª«¥ó)«ü©w¨ìÅܼÆ
    
11.                 Else    'Not Nothing
    
12.                     Set Rng = Union(Rng, E)  'Application.Union ¤èªk ·|¶Ç¦^¨â­Ó¥H¤W½d³òªºÁp¶°¡C
    
13.                 End If
    
14.             End If
    
15.         Next
    
16.         If Not Rng Is Nothing Then Rng.EntireRow.Delete   '
    
17.             'Range.EntireRow ÄÝ©Ê·|¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí¥]§t«ü©w½d³òªº¾ã­Ó¦C (©Î­Y¤z¦C)¡C
    
18.         '2***********AÄ榳ªÅ¥Õ¶ñ¤W¤é´Á   *******************************
    
19.         For Each E In Range("a1:a" & Cells(Rows.Count, 2).End(xlUp).Row)
    
20.             If E(1, 3) <> "" And E = "" Then E = E.Cells(0)
    
21.         Next
    
22.         '3********«ü©w­n½Æ»sªº½d³ò*********************************
    
23.        Set Rng = .UsedRange   'Sheets("vba")¤W¤w¨Ï¥Îªº½d³ò¬° "A:H"
    
24.     End With
    
25.     '4**************«ü©wªº½d³ò½Æ»s¨ì«ü©w¦ì¸m **********************
    
26.     With Sheets("¸ê®Æ®w").Range("b1").End(xlDown).Offset(1)
    
27.         'Range.End ÄÝ©Ê ¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí¥]§t¨Ó·½½d³ò¤§°Ï°ìµ²§À³BªºÀx¦s®æ¡C
    
28.         'µ¥©ó«ö END+¦V¤WÁä¡BEND+¦V¤UÁä¡BEND+¦V¥ªÁä©Î END+¦V¥kÁä
    
29.    
    
30.         'Range.Offset ÄÝ©Ê ·|¶Ç¦^ Range ª«¥ó¡A¥Nªí±q«ü©w¤§½d³ò¦ì²¾ªº½d³ò
    
31.         Rng.Copy .Cells
    
32.     End With
    
33. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 18# jsc0518
¥i§ï¤@¤U

1. With Sheets("¸ê®Æ®w").Range("b" & Rows.Count).End(xlUp)
   
2.         If .Cells = "" Then    '²Ä¤@¦C
   
3.             Rng.Copy .Cells
   
4.         Else
   
5.             Rng.Copy .Offset(1)
   
6.         End If
   
7.     End With

½Æ»s¥N½X

GBKEE

¦^´_ 21# jsc0518
Sub Step1() , Sheets("vba") ,  Sheets("¸ê®Æ®w")
¬O¦b¦P¤@­Ó xlsm  ¶Ü?
¤£¬O ¶·«ü¦W Workbooks("xxx").( Sheets("vba") ,  Workbooks("xxx"). Sheets("¸ê®Æ®w")

GBKEE

¦^´_ 25# jsc0518
¤@­Óµ{¦¡½X¨Ã¤£¯à³q¥Î©ó©Ò¦³Ãþ¦üªºª¬ªp
ªþÀɤ¤¦]AÄæ¨S¦³¨Ï¥Î¨ì ,¤£¾A¥Î ActiveSheet.UsedRange.Columns("B") ¬° ActiveSheetªº C Äæ
­n¬Ý§A¹ê»Ú¤WÀɮ׻ݦ³©Ò­×§ï,½Ð¦AªþÀɬݬÝ