請問只要在單數儲格1,3,5.…51寫入 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問只要在單數儲格1,3,5.…51寫入

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

請問只要在單數儲格1,3,5.…51寫入

中學生 Rank: 2

帖子: 48
主題: 1
精華: 0
積分: 53
點名: 0
作業系統: XP
軟體版本: 2010 & 2003
閱讀權限: 20
性別: 男
來自: China
註冊時間: 2013-1-12
最後登錄: 2013-11-23

1^# 跳轉到 »

發表於 2013-2-20 11:09 | 顯示全部帖子

Sub a1()
Dim x As Integer
For x = 1 To 51 Step 2
Cells(x, 1) = x
Next x
End Sub

複製代碼

向高手学习

中學生 Rank: 2

帖子: 48
主題: 1
精華: 0
積分: 53
點名: 0
作業系統: XP
軟體版本: 2010 & 2003
閱讀權限: 20
性別: 男
來自: China
註冊時間: 2013-1-12
最後登錄: 2013-11-23

2^#

發表於 2013-2-20 14:30 | 顯示全部帖子

回復 3# 自我感覺良好

Sub a1()
For x = 1 To 800 Step 2
ActiveCell.Offset(2, 0).ClearContents
Next x
End Sub

複製代碼

.Range("A1")这个似乎是多余代码？？？

向高手学习

中學生 Rank: 2

帖子: 48
主題: 1
精華: 0
積分: 53
點名: 0
作業系統: XP
軟體版本: 2010 & 2003
閱讀權限: 20
性別: 男
來自: China
註冊時間: 2013-1-12
最後登錄: 2013-11-23

3^#

發表於 2013-2-20 20:03 | 顯示全部帖子

回復 6# 自我感覺良好
还是可以去掉Select，在VBA中使用Select和Activate会大大降低执行效率

Sub a1()
For x = 1 To 802 Step 2
Application.ScreenUpdating = False
Cells(x, 1).ClearContents
Next x
Application.ScreenUpdating = True
End Sub

複製代碼

向高手学习

靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。

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