Excelで空のセルを削除する

Question

Excelでは、空のセルをすべて削除して、すべての行と列にテキストが含まれるようにします。

cell1 cell2 cell3 
1    peter 
... 

だから、私はそれはこのようにしたい：

cell1 cell2 
1  peter 

どのように私は空のセルを削除することができますか？

私はods形式を使用しますが、それは関係がありますか？

Answer 1

をごF5（go to） - > Special - > Blanks - > OKをクリックします。空のセルが選択されます。右クリック→削除→セルを左に移動します。私はあなたのテーブルの構造については分かりませんが、これは他のものを混乱させるかもしれません？

Answer 2

は、Excel

内の溶液以下

1.Select範囲

2.Press [F5]を試してみてください。

3.結果の移動ダイアログボックスで

4.特殊をクリックします。 [空白]オプションをクリックし、[OK]をクリックします。

5.Doingは、選択範囲内の空白セル（行と考えることができる）を選択します。

> Deleteをご希望のオプションを選択>をクリックします6.Right（MOVEUPを、...左...）

繰り返し上記それまでは希望ourputが

ソース

達成される：で http://www.techrepublic.com/blog/microsoft-office/a-quick-way-to-delete-blank-rows-in-excel/

Answer 3

あなたはあなたのためにそれを行うためのVBA機能を持つようにしたい場合は、あなたのようなものが必要になります。これが唯一のように場合は、テーブルの構造を維持し、完全に空になっている列や行を削除することを

Sub ClearBlanks(sheet As Worksheet) 

Dim rng As Range 
Dim firstRow As Integer 
Dim firstCol As Integer 
Dim lastRow As Integer 
Dim lastCol As Integer 
Dim i As Integer 
Dim j As Integer 
Dim isEmpty As Boolean 

    Set rng = sheet.UsedRange 
    firstRow = rng.Item(1).row 
    firstCol = rng.Item(1).Column 

    lastRow = firstRow + rng.Rows.Count - 1 
    lastCol = firstCol + rng.Columns.Count - 1 

    For i = lastCol To firstCol Step -1 
     isEmpty = True 
     For j = firstRow To lastRow 
      If sheet.Cells(j, i).Value <> "" Then 
       isEmpty = False 
       Exit For 
      End If 
     Next 
     If isEmpty Then 
      sheet.Columns(i).Delete 
     End If 
    Next 

    For j = lastRow To firstRow Step -1 
     isEmpty = True 
     For i = firstCol To lastCol 
      If sheet.Cells(j, i).Value <> "" Then 
       isEmpty = False 
       Exit For 
      End If 
     Next 
     If isEmpty Then 
      sheet.Rows(j).Delete 
     End If 
    Next 

    For i = firstCol - 1 To 1 Step -1 
     sheet.Columns(i).Delete 
    Next 

    For i = firstRow - 1 To 1 Step -1 
     sheet.Rows(i).Delete 
    Next 

End Sub 

注意行または列の一部のセルのみが空です。