| |
Y列に数式結果０が入っていた場合に削除をする
マクロで、不具合がありまして、アドバイスをください。
数式の結果で＃VALUEを出してる場合、マクロを実行すると型が一致しませんと
エラーがでてしまいます。
＃VALUEの場合は削除せず通過させる場合には、どうすればよいでしょうか？
Sub delete()
Dim X As Long
Dim ws As Worksheet
Set ws = Worksheets("date")
X = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
ws.Range("A1:Z" & X).EntireRow.delete
Dim Rng As Range
Dim Rw As Long
Const Col = "Y"
Application.ScreenUpdating = False
For Rw = Cells(Rows.Count, Col).End(xlUp).Row To 1 Step -1
With Cells(Rw, Col)
If .HasFormula Then
If .Value = 0 Then .EntireRow.delete
End If
End With
Next
End Sub
|
|
シューマッタ
- 11/8/18(木) 11:22 -
