返回列表 上一主題 發帖

將許多儲存格數值改為0

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2013-2-1 19:12 | 顯示全部帖子
回復 1# vvcvc
你錄製的東西  基本上code#41行前都是沒作用的
應該是錄製時一直沒選好範圍
  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
複製代碼

TOP

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題