|
パピーさん Asakiさん
今回は有難うございました。
>Sub test2()
> Dim rngTgt As Range
> Dim rngDel As Range
>
> For Each rngTgt In Range("A1", Range("A65536").End(xlUp))
> If rngTgt.Value = 0 Then
> If rngDel Is Nothing Then
> Set rngDel = rngTgt
> Else
> Set rngDel = Union(rngDel, rngTgt)
> End If
> End If
> Next rngTgt
> If Not rngDel Is Nothing Then rngDel.EntireRow.Delete Shift:=xlUp
> Set rngDel = Nothing
>End Sub
この答えが知りたかったんです。
前にもAsakiさんから列の削除で教えてもらいましたが
行で試しても勉強不足で出来ませんでした。
こうやってみるとなるほどと思いますが
応用力が無くてすみません。
パピーさんも有難うございました。
Step-1は参考になりました。
今度使わせてもらおうと思っています。
もっと勉強します。
お二人ともお世話になりました。
|
|