如何複製貼上儲存格值，如果儲存格包含超過0，則透過循環貼上到另一個儲存格

Question

我需要複製C74細胞

然後貼上到C85 至 C88

條件1：哪個Cell有超過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，則進行比較。

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