第一天,新工作,不希望在我給予的第一個任務中在我的老闆面前停滯不前。我嘗試了各種IF IF THEN,對於& DO語句,但無法獲得我需要的行爲。循環清空單元格爲空時行的內容
我有從列A到AH的數據。我想單擊一個按鈕,這將導致循環檢查D列上每個單元格的內容,然後清除該行的內容(如果它回來爲空)。
第一天,新工作,不希望在我給予的第一個任務中在我的老闆面前停滯不前。我嘗試了各種IF IF THEN,對於& DO語句,但無法獲得我需要的行爲。循環清空單元格爲空時行的內容
我有從列A到AH的數據。我想單擊一個按鈕,這將導致循環檢查D列上每個單元格的內容,然後清除該行的內容(如果它回來爲空)。
Sub delDemptyrows()
Dim i&
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 4).Value = vbNullString Then Cells(i, 4).EntireRow.ClearContents '4 = D column
Next
End Sub
未測試,所以請在使用前進行備份。
謝謝,我正在處理當前數據的測試副本,現在他們會讓我使用實時數據庫。如果我想從第6行開始說起,那麼我就不會混淆數據上的標題等,我只是更改i值? – user3231284
是的。我= 6到... – PrincePhoenix
'我嘗試了各種IF THEN,FOR&DO語句,但無法得到我需要的行爲。「 - 請演示請嘗試迄今爲止您的嘗試 –
使用類似[this](http:// stackoverflow .com/a/21328531/445425),用'clear'而不是'delete' –
老闆是否曾要求你做與你接受的工作無關的事情,或者你是否假裝你知道VBA? –