標題: [發問] 清除指定欄位空白 [打印本頁]

---

作者: dou10801    時間: 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)
請教各位前輩可否可用迴圈清除感恩.

---

作者: singo1232001    時間: 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

---

作者: dou10801    時間: 2022-8-29 16:04

回復 2# singo1232001 感恩,感恩.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)