將許多儲存格數值改為0 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 將許多儲存格數值改為0

返回列表下一主題上一主題發帖

將許多儲存格數值改為0

大學生 Rank: 4

帖子: 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行前都是沒作用的
應該是錄製時一直沒選好範圍

Sub Test()
Dim i As Long
For i = 0 To 33
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
Next i
End Sub

複製代碼

靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。

返回列表下一主題上一主題