excel欄位內資料自動刪除的方式

1. C欄反黑
2. 按CTRL和G鍵(會出現"到"方框)
3. 在方框中按"特殊"鍵
4. 選"空格"後,按"確定"
5. 在被選取的儲存格中,按滑鼠右鍵
6. 選"刪除","整列"
7. 完成

程式碼
Sub 刪除列()
Dim I%
For I = 1 To [A65536].End(xlUp).Row
If Cells(I, 3) = "" Then
Rows(I).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub
<<參考檔>>下載地址
http://www.FunP.Net/194428

2013-10-14 15:53:15 補充：
程式碼
Sub 刪除列()
Dim I%
For I = 1 To [A65536].End(xlUp).Row
If Cells(I, 3) = "" Then
Rows(I).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub
<<參考檔>>下載地址
http://www.FunP.Net/194428

利用內建功能:先圈選資料(A2:C7)-->格式化的條件-->公式為=$A2=""-->選"白"色-->確定
(讓整列無色顯現 但資料還在)

To　cjw　大大
要從最下列往上
否則會錯誤

假設第一列要放欄位名稱等,第二列才開始放資料.
而且你的資料沒有超過99列.
以下Excel VBA請你參考看看:

Sub my_delete()

Dim i As Integer

i = 2
Do While i <= 100
If IsEmpty(Worksheets("Sheet1").Cells(i, 3)) Then
Worksheets("Sheet1").Cells(i, 1) = ""
Worksheets("Sheet1").Cells(i, 2) = ""
End If
i = i + 1
Loop

End Sub

2013-10-07 21:27:53 補充：
如果很多欄的話,以下的程式根據最後一個欄位當作基準,
(第一列請建立欄位名稱,程式才能知道最後一欄是哪一個)
最後一欄若為空白,就把該列前幾欄刪掉.

2013-10-07 21:28:34 補充：
Sub my_delete()

Dim n, r, c As Integer
' n : get numbers of columns
' r : row index
' c : column index

n = 1
Do Until IsEmpty(Worksheets("Sheet1").Cells(1, n))
n = n + 1
Loop
n = n - 1

2013-10-07 21:28:47 補充：
r = 2
Do While r <= 100
If IsEmpty(Worksheets("Sheet1").Cells(r, n)) Then
c = 1
Do While c <= n
Worksheets("Sheet1").Cells(r, c) = ""
c = c + 1
Loop
End If
r = r + 1
Loop

End Sub

2013-10-07 21:34:17 補充：
你問到worksheets("sheet1")我的每個作業名稱都不一樣,怎麼修改適合任何名稱呢?
因為Excel VBA 是獨立於Excel之外的,如果你不告訴他要針對哪個工作表執行,它是不知道的.
(因為一個檔案可能好幾個工作表)
所以你只能在程式修改,我寫的只是範例而已.我不知你的工作表名稱實際是什麼.

2013-10-08 03:04:14 補充：
To 版主
樓下 小晴 的方式,不需要用到VBA,只需要簡單Excel操作就可完成,
顯然比我的方法簡單又好用.
請考慮直接選他為最佳解!!

我的做法是...

選擇第一列的資料...進入設定(((((資料--篩選--自動篩選))))

你就會看到下拉式選項..你選擇""空白""就可以找到你想要的欄位了

希望有幫助到你唷~^^