Hsieh

回復 6# vvcvc


    無法在不相鄰的區域貼上

Hsieh

回復 8# vvcvc
試試看

1. Sub Macro4()
   
2. '
   
3. ' 快速鍵: 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

複製代碼