如何复制粘贴单元格值，如果单元格包含超过 0 个，则通过循环粘贴到另一个单元格

Question

我需要复制C74细胞

然后粘贴到C85 至 C88

条件1：哪个单元格大于0，不需要粘贴

条件2：哪个单元格有0，然后粘贴C74值。

*无需粘贴到所有包含 0 的单元格

*只需将值粘贴到第一个包含 0 的单元格。

我尝试将其用于最多 2 个电池。但我需要将其用于最多 4 个电池。

谁能指导我..

Sub TIMECALC()
ActiveSheet.Range("C74").Copy
If ActiveSheet.Range("C85").Value > 0 Then ActiveSheet.Range("C86").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False Else ActiveSheet.Range("C85").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

折断

Answer 1

使用For Each...循环遍历范围C85:C88，如果这些单元格的值大于 0，则进行比较。如果为真，则粘贴 C74 的内容/值。

Sub Calc()

    'Copy the cell
    Range("C74").Copy
    'Loop through each cell of the range
    For Each cell In Range("C85:C88")
        If cell.Value = 0 Then
            'Paste copied value
            cell.PasteSpecial Paste:=xlPasteValues
            'Exit the loop
            Exit For
        End If

    Next
End Sub