- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 61
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-3-12
               
|
回復 8# vvcvc
試試看- Sub Macro4()
- '
- ' 快速鍵: Ctrl+n
- '
- Dim i As Long
- For i = 0 To 38
- Set Rng = Range("AJ3:AJ4,AJ15,AJ25:AJ26,AJ55").Offset(i * 100)
- Set Rng1 = Range("E3:E4,E15,E25:E26,E55").Offset(i * 100)
- For j = 1 To Rng.Areas.Count
- Rng1.Areas(j) = Rng.Areas(j).Value
- Next
- ActiveSheet.Range("E5:AJ11,E17:AJ18,E21:AJ21,E27:AJ28,E30:AJ32,E37:AJ38,E44:AJ44,E46:AJ46").Offset(i * 100).Value = 0
- Next i
- End Sub
|
|
發表於 2013-3-1 11:14
| 