刪除單元格，如果細胞在列是空的或有值「空」

Question

我有這樣的一段代碼，並希望重複50次，直到有在細胞中沒有值向右

Sub DeleteCellShiftLeft() 

    For i = 1000 To 1 Step -1   

     If (Cells(i, 2).Value = "") Then 

      Cells(i, 2).Delete shift:=xlToLeft 

     End If  

    Next i 

End Sub 

Answer 1

要檢查是否有更多的數據在右側，您可以使用查找功能找到包含數據的最右邊的單元格。

試試這個：

' Run the code 50 times 
    For x = 0 to 50 

     ' Use the Find function to locate the bottom rightmost cell with any content in it. 
     Set BottomRightCell = ActiveSheet.Cells.Find(what:="*", After:=ActiveSheet.Range("A1"), LookIn:=xlFormulas, Lookat:= _ 
     xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False) 

     ' If the rightmost data is in column 2 or less (where you are deleting from), then exit the loop. 
     If BottomRightCell.Column <= 2 Then 
      Exit For 
     End If 

     ' Otherwise, call your code. 
     DeleteCellShiftLeft() 

    Next x 

這應該打電話給你的代碼的50倍，或停止調用它如果在細胞向右沒有更多的數據。

我希望這可以解決您的問題。