Question

我正在尝试执行循环操作（复制并粘贴到另一行）并且只会在整个范围（一行中的每个单元格）达到0时中断循环。

A行：H35：AK35 - （目标副本行） B行：H36：AK36 - 用于粘贴值的目标行（目标粘贴行/位置）行C：H37：AK37 - 行B和行A之间的差值

将行A和粘贴复制到行B的循环操作应在行C中的每个单元格达到0时结束。

这是我的代码，但它无效。

Do Until Range("H37:AK37").Value = 0

Sheets("Timing").Activate
Sheets("Timing").Range("H35:Ak35").Select
Selection.Copy

Sheets("Timing").Range("H36:AK36" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Loop


End Sub

我认为代码不会检查行C中的每个单元格：H37：AK37是否等于零。

Answer 1

这是一种检查范围内的单元格的方法：

Sub CheckCells()

    Dim rCell As Range
    Dim rRng As Range

    Set rRng = Sheet1.Range("H37:AK37")

    For Each rCell In rRng.Cells

        If rCell.Value = 0 Then

            'Do something here

        End If

    Next rCell


End Sub

我用它来帮助Loop through each cell in a range of cells when given a Range object

检查一行中的每个单元格等于零（0）

1 个答案: