Как скопировать и вставить значение ячейки, если ячейка содержит больше 0, то вставить в другую ячейку с помощью цикла

Question

Мне нужно скопироватьС74Клетка

Затем вставьте вС85 по С88

Условие 1: В какой ячейке больше 0 нет необходимости вставлять

Условие 2: В какой ячейке содержится 0, вставьте значение C74.

*Не нужно вставлять во все ячейки, содержащие нули

*Просто вставьте значение в первую ячейку, содержащую 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