vbaを使用してExcelで空のセルを削除する方法

Question

This is just a sample I am testing the code in this data.私はsheet2に3つの列を持っています。私は空のセルを削除する必要があります。これは列Bのみで動作する更新されたコードです。スナップショットに

Sub delete() 
    Dim counter As Integer, i As Integer 
    counter = 0 

    For i = 1 To 10 
    If Cells(i, 1).Value <> "" Then 
     Cells(counter + 1, 2).Value = Cells(i, 1).Value 
     counter = counter + 1 

    End If 
Next i 
End Sub 

サンプルスクリーンショット

Answer 1

あなたが望むすべてが空のセルを削除する場合は、これを試してみて...

Sub DeleteBlankCells() 
Dim rng As Range 
On Error Resume Next 
Set rng = Intersect(ActiveSheet.UsedRange, Range("A:C")) 
rng.SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp 
End Sub 

Answer 2

は、最もエレガントな解決策を確認することができますが、それは動作します。

Option Explicit 
Sub delete() 
Dim rCells As Range, rCell As Range, sFixCell As String 

Set rCells = Range("A1:A13") 
For Each rCell In rCells 
    If rCell = "" Then 
     sFixCell = rCell.Address 
     Do While rCell.Value = "" 
     rCell.delete Shift:=xlUp 
     Set rCell = Range(sFixCell) 
     Loop 
    End If 
Next rCell 

End Sub