셀 값을 복사하여 붙여넣는 방법, 셀에 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보다 큰 경우 비교를 수행합니다. 그런 다음 true인 경우 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