2014-01-24 46 views
-2

第一天,新工作,不希望在我給予的第一個任務中在我的老闆面前停滯不前。我嘗試了各種IF IF THEN,對於& DO語句,但無法獲得我需要的行爲。循環清空單元格爲空時行的內容

我有從列A到AH的數據。我想單擊一個按鈕,這將導致循環檢查D列上每個單元格的內容,然後清除該行的內容(如果它回來爲空)。

+0

'我嘗試了各種IF THEN,FOR&DO語句,但無法得到我需要的行爲。「 - 請演示請嘗試迄今爲止您的嘗試 –

+0

使用類似[this](http:// stackoverflow .com/a/21328531/445425),用'clear'而不是'delete' –

+0

老闆是否曾要求你做與你接受的工作無關的事情,或者你是否假裝你知道VBA? –

回答

0
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 

未測試,所以請在使用前進行備份。

+0

謝謝,我正在處理當前數據的測試副本,現在他們會讓我使用實時數據庫。如果我想從第6行開始說起,那麼我就不會混淆數據上的標題等,我只是更改i值? – user3231284

+0

是的。我= 6到... – PrincePhoenix