0

私はおそらくばかげた質問で立ち往生しています。「数式が 0 (ゼロ) の答えを返すセルを見つける方法 列 A には式の x 行が含まれ、列 B から D に各行を追加します =SUM(B4:D4) この値が見つかったすべての行を削除しようとしています。

Columns("A:A").Select
Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
    xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=True).Activate
strDelRow = Activecell.Row
Rows("" & StrDelRow &":" & StrDelRow).Select
Selection.Delete Shift:=xlUp

...しかし、式に含まれているゼロを見つけることができますか? おそらく助けてくれる人はいますか？

どうもありがとう、

イアン

4

3 に答える 3

1

はい、ゼロを返す式を見つけることができます。

列 A 全体を選択してゼロを探しているようです。次のようにコードを変更してみてください。

Range("A1").Select 'Start at the top

Range("A:A").Find(What:="0", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=False).Activate
于 2013-08-05T13:09:41.070 に答える
1

これを試してください：

Sub dural()
    Dim N As Long, NN As Long
    NN = Cells(Rows.Count, "A").End(xlUp).Row
    For N = NN To 1 Step -1
        If Cells(N, 1).Value = 0 Then
            Cells(N, 1).EntireRow.Delete
        End If
    Next
End Sub
于 2013-08-05T13:12:39.667 に答える
0

特別な値をコピーして別の列に貼り付け、それを削除コードに使用します

于 2013-08-05T13:07:29.303 に答える