[µo°Ý] VBA¦h¬¡­¶¤@¦¸§R°£ªÅ¥Õ¦C

msmplay

¤U¸ü (23.87 KB)

2017-3-20 23:03

¥H¤U¥¨¶°¬Oºô¸ô¤WÃä¬d¸ê®ÆÃä§ïªº¡A°Ê§@¦p¤U:
1. ¥þ¿ï"11&52", "12", "13", "14", "15", "21&26", "22", "24", "25", "32", "34", "41", "42", "43", "44", "47", "61", "62", "64", "71", "81", "82", "83", "84", "85", "91", "92", "M2"¥H¤W¬¡­¶
2. ¿ï¾ÜRows("5:50")½Æ»s¶K¤W¬°­È¡]­ì¥»"5:50"¬O¤½¦¡¡^
3. ¦pªGRows("5:50")AÄ欰ªÅ¥Õ¡A«h¥Ñ50¦Ü5³v¤@§R°£ªÅ¥Õ¦C

§Æ±æºô¤j¥i¥H¨ó§U­×§ï¤@¤U¹F¨ì¥H¤U»Ý¨D¡G
1. ¥Ø«e¬O¤@­Ó¬¡­¶¤@­Ó¬¡­¶°Ê§@¡A§Æ±æ¥i¥H¹F¨ì28­Ó¬¡­¶¤@¦¸°Ê§@¡A´î¤Öµ¥«Ý³v¤@¬¡­¶°Ê§@ªº®É¶¡
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub ¾ã²z­q³æ()
Application.Calculation = xlCalculationManual 'Ãö³¬¦Û°Ê­«ºâ, ¥[§Ö³t«×
    Sheets(Array("11&52", "12", "13", "14", "15", "21&26", "22", "24", "25", "32", "34", "41", "42", "43", "44", "47", "61", "62", "64", "71", "81", "82", "83", "84", "85", "91", "92", "M2")).Select
    Rows("5:50").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

arr = Array("11&52", "12", "13", "14", "15", "21&26", "22", "24", "25", "32", "34", "41", "42", "43", "44", "47", "61", "62", "64", "71", "81", "82", "83", "84", "85", "91", "92", "M2")
For y = 0 To 27
Sheets(arr(y)).Select
  For i = 50 To 5 Step -1
      If Cells(i, "A") = "" Then
          Rows(i).Delete
      End If
  Next
Next
Application.Calculation = xlCalculationAutomatic '«ì´_¦Û°Ê­«ºâ
End Sub

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
´ú¸Õ.rar (16.6 KB)

¤U¸ü¦¸¼Æ: 11

2017-3-20 23:04

naruto018

¦^´_ 1# msmplay

¤£·q³dªºÂ²³æ§ï¨}

1. Sub ¾ã²z­q³æ()
   
2. Application.Calculation = xlCalculationManual 'Ãö³¬¦Û°Ê­«ºâ, ¥[§Ö³t«×
   
3. Selection.Copy
   
4.   arr = Array("11&52", "12", "13", "14", "15", "21&26", "22", "24", "25", "32", "34", "41", "42", "43", "44", "47", "61", "62", "64", "71", "81", "82", "83", "84", "85", "91", "92", "M2")
   
5. For y = 0 To 27
   
6.     Sheets(arr(y)).Range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
   
7. Next
   
8. 
   
9. For y = 0 To 27
   
10. Sheets(arr(y)).Select
    
11.   For i = 50 To 5 Step -1
    
12.       If Cells(i, "A") = "" Then
    
13.           Rows(i).Delete
    
14.       End If
    
15.   Next
    
16. Next
    
17. Application.Calculation = xlCalculationAutomatic '«ì´_¦Û°Ê­«ºâ
    
18. End Sub

½Æ»s¥N½X

msmplay

¦^´_ 2# naruto018


   n¤j~~~~ÁöµM³Ì«áªº§R°£ªÅ¥Õ¦C°Ê§@ÁÙ¬O¨C­Ó¬¡­¶³v¤@°õ¦æ¡A¦ý¾ãÅé·Pı¦n¹³¦³§Ö¤@ÂI£®¡A«D±`·PÁ§A³á~~~~~~~~

ML089

¦^´_ 1# msmplay

°õ¦æ«e¥[¤J¤U¦C«ü¥O¿Ã¹õ¤£Åã¥Ü°õ¦æª¬ªp
Application.ScreenUpdating = False

­ì¥ýµ{¦¡½X

Application.ScreenUpdating = True

naruto018

¦^´_ 3# msmplay


    ·Q­n¥[§Öµ{¦¡¹B¦æªº¸Ü¡A¦³«Ü¦h¤è¦¡
¨Ò¦p¡G¥h°£µ{¦¡¤¤¥i¬Ù²¤ªº³¡¤À
©Î¬O¹³ML089¤j¨º¼Ë²K¥[´î¤Ö¹B¦æ®É°Ê§@ªºµ{¦¡½X
©Î¬O¥H¬Û¦P¥\¯à¦ý§ó°ª®Ä¯à¤è¦¡¥h°õ¦æªºµ{¦¡½X

msmplay

¦^´_ 4# ML089

M¤j~~~~~«D±`·PÁ¡I¡I¡I

msmplay

¦^´_ 5# naruto018


   n¤j~~~¨ä¹ê¨ä¹ê¤X¡I¦]¬°§Ú¤£¬O«ÜÀ´µ{¦¡¡A¦ý¤S¦]¬°¤u§@»Ý¨D§Æ±æ¯à¥[§Ö§@·~®Ä²v~~~¤~·|¦Û¤v¤Wºô§ä¤èªk¸ò¦Û¤v´ú¸Õ¬Ý¬Ý¡I¦pªGn¤j¯àÀ°¦£­×§ï¸òÀu¤Æ¦¹µ{¦¡½X¡A¨º´N¯uªº¬O·P¿E¤£ºÉ¤F~~~~~~~

­ã´£³¡ªL

arr = Array(¡ã¡ã¤u§@ªí¦W¡ã¡ã)
On Error Resume Next
For Each sh In arr
¡@¡@Sheets(sh).Range("A5:A50").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Next
On Error GoTo 0

msmplay

¦^´_ 8# ­ã´£³¡ªL


   ­ã¤j~~ÁÂÁ§A³á~~~~~~~~~~