EXCEL VBA刪除空白行的問題

yuliwei0001
個人積分：0分
文章編號：67063049

0分

樓主

2018-01-09 9:11

請問各位大大,因有一張工作表裡面有很多空白行想用VBA把空白行刪掉可是都會跳行能幫忙看看那裡錯了.(新手請見諒)
Dim i As Integer

For i = 1 To 100

If Cells(i, 3) = "" Then
Range(i & ":" & i).Delete
End If
Next
EXCEL VBA刪除空白行的問題

2018-01-09 9:11 發佈

文章關鍵字 Excel VBA 空白行問題

snare

snare
個人積分：3127分
文章編號：67071172

3127分

2樓

2018-01-09 20:35

yuliwei0001 wrote:
可是都會跳行能幫忙看看那裡錯了.(新手請見諒)
Dim i As Integer

For i = 1 To 100

If Cells(i, 3) = "" Then
Range(i & ":" & i).Delete
End If
Nextt...(恕刪)

因為刪掉一列後，下一列會上移，下一次迴圈 i+1 ，所以會跳行

Sub test()
Dim delrow As String, lastrow As Integer
lastrow = Sheets("工作表1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastrow
If Cells(i, 3) = "" Then delrow = delrow & i & ":" & i & ","
Next i
If delrow = "" Then Exit Sub
Range(Left(delrow, Len(delrow) - 1)).Delete Shift:=xlUp
Cells(1, 1).Select
End Sub