Excel. 大量刪除空行(VBA, 宏)

如果有很多資料的話，就用宏吧，我給了一個，你自己弄進去試試。因為你沒給表格，所以我不能幫你添加減去了。如果不清楚就聯絡我，52978783
有相同的漢字，其他的儲存格沒有嗎？可以用宏刪除

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)<br />i = 1<br />j = 1<br />Do While j <= 100<br />'不知道你到底有多少行資料，搞個大點的<br />If Cells(i, 1) = "" Then<br />'如果第一個儲存格為空白<br />Rows(i).Select<br />Selection.Delete Shift:=xlUp<br />Else<br />i = i + 1<br />End If<br />j = j + 1<br />Loop<br />End Sub<br />

 

這樣就可以了.注意，判斷的是第一個儲存格是否為空白。當你選擇的範圍改變，程式就執行，執行完了，把代碼刪除就沒事了。