Question

excel里自动删除空白行的关于VB编程的方法问题

下面这个VB程序如果只想删除C列第9至58行的空白行，该如何修改呢？
Dim x, R As Long
With Sheets("sheet1")
x = .Range("A65536").End(xlUp).Row
For R = x To 1 Step -1
If .Cells(R, 1) = "" Then
Rows(R).Delete
End If
Next R
End With
小弟对VB一窍不通，希望高手指点。

Answer 1

Dim x, R As Long
With Sheets("sheet1")
For R = 58 To 9 Step -1
If .Cells(R, 3) = "" Then
Rows(R).Delete
End If
Next R
End With