±N³\¦hÀx¦s®æ¼Æ­È§ï¬°0

vvcvc

§Ú¨Ï¥Î¿ý»sªº¤è¦¡±o¨ì¥H¤Uµ{¦¡½X(¥u§¹¦¨¤@¤p³¡¥÷ªº»Ý¨D)
¥H¤Uµ{¦¡½X³B²z¦C2401~2500¡B2501~2600
­ì¸ê®Æ¨C100¦C·|­«´_¬Û¦Pªº®æ¦¡¤@¦¸(ex.E5:AJ11¡BE105:AJ111...E2405:AJ2411¡BE2505:AJ2511¡BE2605:AJ2611...)
·Q²¤Æµ{¦¡½X
¥Ø«e»Ý¨D¬°²M°£1~3399½d³ò

1. Sub Macro4()
   
2. '
   
3. ' Macro4 Macro
   
4. '   ¦b 2013/2/1 ¿ý»sªº¥¨¶°
   
5. '
   
6. ' §Ö³tÁä: Ctrl+a
   
7. '
   
8.     Range("E2403:E2404,E2405:AJ2411").Select
   
9.     Range("E2405").Activate
   
10.     Range("E2403:E2404,E2405:AJ2411,E2415,E2417:AJ2418").Select
    
11.     Range("E2417").Activate
    
12.     Range("E2403:E2404,E2405:AJ2411,E2415,E2417:AJ2418,E2421:AJ2421").Select
    
13.     Range("E2421").Activate
    
14.     Range( _
    
15.         "E2403:E2404,E2405:AJ2411,E2415,E2417:AJ2418,E2421:AJ2421,E2425:E2426,E2427:AJ2428" _
    
16.         ).Select
    
17.     Range("E2427").Activate
    
18.     Range( _
    
19.         "E2403:E2404,E2405:AJ2411,E2415,E2417:AJ2418,E2421:AJ2421,E2425:E2426,E2427:AJ2428,E2430:AJ2432,E2437:AJ2438,E2444:AJ2444,E2446:AJ2446" _
    
20.         ).Select
    
21.     Range("AJ2446").Activate
    
22.     Range( _
    
23.         "E2403:E2404,E2405:AJ2411,E2415,E2417:AJ2418,E2421:AJ2421,E2425:E2426,E2427:AJ2428,E2430:AJ2432,E2437:AJ2438,E2444:AJ2444,E2446:AJ2446,E2455" _
    
24.         ).Select
    
25.     Range("E2455").Activate
    
26.    
    
27.    
    
28.     Range("E2503:E2504,E2505:AJ2511").Select
    
29.     Range("E2505").Activate
    
30.     Range("E2503:E2504,E2505:AJ2511,E2515,E2517:AJ2518").Select
    
31.     Range("E2517").Activate
    
32.     Range("E2503:E2504,E2505:AJ2511,E2515,E2517:AJ2518,E2521:AJ2521").Select
    
33.     Range("E2521").Activate
    
34.     Range( _
    
35.         "E2503:E2504,E2505:AJ2511,E2515,E2517:AJ2518,E2521:AJ2521,E2525:E2526,E2527:AJ2528" _
    
36.         ).Select
    
37.     Range("E2527").Activate
    
38.     Range( _
    
39.         "E2503:E2504,E2505:AJ2511,E2515,E2517:AJ2518,E2521:AJ2521,E2525:E2526,E2527:AJ2528,E2530:AJ2532,E2537:AJ2538,E2544:AJ2544,E2546:AJ2546" _
    
40.         ).Select
    
41.     Range("AJ2546").Activate
    
42.     Range( _
    
43.         "E2503:E2504,E2505:AJ2511,E2515,E2517:AJ2518,E2521:AJ2521,E2525:E2526,E2527:AJ2528,E2530:AJ2532,E2537:AJ2538,E2544:AJ2544,E2546:AJ2546,E2555" _
    
44.         ).Select
    
45.     Range("E2555").Activate
    
46.    
    
47.    
    
48.     Selection.FormulaR1C1 = "0"
    
49. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 1# vvcvc
§A¿ý»sªºªF¦è  °ò¥»¤Wcode#41¦æ«e³£¬O¨S§@¥Îªº
À³¸Ó¬O¿ý»s®É¤@ª½¨S¿ï¦n½d³ò

1. Sub Test()
   
2.     Dim i As Long
   
3.     For i = 0 To 33
   
4.         ActiveSheet.Range("E3:E4,E5:AJ11,E15,E17:AJ18,E21:AJ21,E25:E26,E27:AJ28,E30:AJ32,E37:AJ38,E44:AJ44,E46:AJ46,E55").Offset(i * 100).Value = 0
   
5.     Next i
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 1# vvcvc

1. Sub Ex()
   
2.     Dim Rng As Range
   
3.     Set Rng = Range("E5:AJ11")          '³Ì¤W¤èªº¸ê®Æ¦ì§}
   
4.     Do
   
5.         Rng = 0
   
6.         Set Rng = Rng.Offset(100)       '­ì¸ê®Æ¨C100¦C·|­«´_¬Û¦Pªº®æ¦¡¤@¦¸
   
7.     Loop While Rng.Cells(1).Row < 3399  '²M°£1~3399½d³ò: .Row>=3399 Â÷¶}°j°é
   
8. End Sub

½Æ»s¥N½X

vvcvc

ÁÂÁÂ2¦ìªº¦^µª
¨ä¹ê¦³¿ï¦n¡A¯uªº¬O­n¿ïªºÀx¦s®æ«Ü¶Ã
§Ú¦Û¤v¥h°£¤U©Ô°Ê§@ªºµ{¦¡½X
¥i¯à¦³»~§R³¡¥÷Àx¦s®æ
¤£¹L¤j­P¤Wª¾¹D«ç»ò­×§ï2¦ì«ü¾Éªºµ{¦¡½X
¥ýÁÂÅo!

vvcvc

­«·s¬Ý¤F¤@¦¸¦Û¤v¿ý¥X¨Óªºµ{¦¡½X
½d³ò¤@ª½­«ÂÐ¥X²{
«¢«¢...³s¿ý³£¿ýªº¤£¦n

vvcvc

2¦ì, ¦pªG§Ú­n¦b¿é¤J0¤§«e¥[¤J¤@¬q¦p¤Uµ{¦¡
³o¼Ë¼gªºµ²ªG·|¥X¿ù¡A¥X¿ùªº¦ì¸m©ó
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
³o¬qµ{¦¡½X
¥i§_À°§Ú¬Ý¬Ý³o¬q¤º®e¨ºÃä¼g¿ù¶Ü?

1. Sub Macro4()
   
2. '
   
3. ' §Ö³tÁä: Ctrl+n
   
4. '
   
5. Sheets("sheet3").Select
   
6. Dim i As Long
   
7.      For i = 0 To 38
   
8.         Range("AJ3:AJ4,AJ15,AJ25:AJ26,AJ55").Select
   
9.         Selection.Copy
   
10.         Range("E3:E4,E15,E25:E26,E55").Select
    
11.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
12.         :=False, Transpose:=False
    
13.          ActiveSheet.Range("E5:AJ11,E17:AJ18,E21:AJ21,E27:AJ28,E30:AJ32,E37:AJ38,E44:AJ44,E46:AJ46").Offset(i * 100).Value = 0
    
14.      Next i
    
15. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 6# vvcvc


    µLªk¦b¤£¬Û¾Fªº°Ï°ì¶K¤W

vvcvc

¥D­n»Ý¨D¬O­n¦b²M°£©Ò¦³¼Æ­È«e¥ý§âAJ3:AJ4,AJ15,AJ25:AJ26,AJ55ªºµ²ªG¥H¿ï¾Ü©Ê¶K¤W¡u­È¡vªº¤è¦¡¶K¨ìE3:E4,E15,E25:E26,E55
­ì¸ê®Æ¨C100¦C·|­«´_¬Û¦Pªº®æ¦¡¤@¦¸(ex.E5:AJ11¡BE105:AJ111...E2405:AJ2411¡BE2505:AJ2511¡B E2605:AJ2611...)
§Ú³o¼Ëªº¼gªk¥i¥H¶Ü?

1. Sub Macro4()
   
2. '
   
3. ' §Ö³tÁä: Ctrl+n
   
4. '
   
5. Sheets("sheet3").Select
   
6. Dim i As Long
   
7.      For i = 0 To 38
   
8.         Range("AJ3:AJ4,AJ15,AJ25:AJ26,AJ55").Offset(i * 100).Select
   
9.         Selection.Copy
   
10.         Range("E3:E4,E15,E25:E26,E55").Offset(i * 100).Select
    
11.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
12.         :=False, Transpose:=False
    
13.          ActiveSheet.Range("E5:AJ11,E17:AJ18,E21:AJ21,E27:AJ28,E30:AJ32,E37:AJ38,E44:AJ44,E46:AJ46").Offset(i * 100).Value = 0
    
14.      Next i
    
15. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 8# vvcvc
¸Õ¸Õ¬Ý

1. Sub Macro4()
   
2. '
   
3. ' §Ö³tÁä: Ctrl+n
   
4. '
   
5. Dim i As Long
   
6.      For i = 0 To 38
   
7.         Set Rng = Range("AJ3:AJ4,AJ15,AJ25:AJ26,AJ55").Offset(i * 100)
   
8.         Set Rng1 = Range("E3:E4,E15,E25:E26,E55").Offset(i * 100)
   
9.         For j = 1 To Rng.Areas.Count
   
10.           Rng1.Areas(j) = Rng.Areas(j).Value
    
11.         Next
    
12.          ActiveSheet.Range("E5:AJ11,E17:AJ18,E21:AJ21,E27:AJ28,E30:AJ32,E37:AJ38,E44:AJ44,E46:AJ46").Offset(i * 100).Value = 0
    
13.      Next i
    
14. End Sub

½Æ»s¥N½X