返回列表 上一主題 發帖

[發問] 清除指定欄位空白

dou10801

帖子
142 
主題
40 
精華
0 
積分
224 
點名
111  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2024-4-26 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2022-8-29 15:19 | 只看該作者

[發問] 清除指定欄位空白

本帖最後由 dou10801 於 2022-8-29 15:22 編輯

RANGE(B2:B7)=””
RANGE(B10:15)=””
RANGE(B18:23)=””
RANGE(B26:31)=””
RANGE(B34:39)=””
RANGE(B42:47)=””
RANGE(B50:55)=””
...........................依此類推至range(B218:223)
請教各位前輩可否可用迴圈清除感恩.

列印標籤-空.rar (16.27 KB)

收藏 分享
杜小平

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
353 
主題
5 
精華
0 
積分
386 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-4-26 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2022-8-29 15:38 | 只看該作者
回復 1# dou10801


Sub test()
For i = 2 To 218 Step 8
Cells(i, 2).Resize(6, 1) = ""
Next
End Sub

TOP

dou10801

帖子
142 
主題
40 
精華
0 
積分
224 
點名
111  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2024-4-26 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章
3#
發表於 2022-8-29 16:04 | 只看該作者
回復 2# singo1232001 感恩,感恩.
杜小平

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題