Início / computer / Perguntas / 1633008
Accepted
baskar
Asked: 2021-03-14 01:29:11 +0800 CST

Como copiar e colar um valor de célula, se a célula contiver mais de 0, cole em outra célula por loop

  • 772

Eu preciso copiar C74 Cell

Em seguida, cole para C85 para C88

Condition1: Qual célula tem mais de 0 sem necessidade de colar

Condition2: Qual célula tem 0, então cole o valor C74.

*Não há necessidade de colar em todas as células que tenham 0's

*Basta colar o valor na primeira célula que contém 0.

Eu tento para até 2 células. Mas eu preciso para até 4 células.

Alguém me orienta..

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

Foto

insira a descrição da imagem aqui

microsoft-excel vba

1 respostas

  1. Best Answer

    Use For Each...para percorrer o intervalo C85:C88, faça a comparação se o valor dessas células for maior que 0. Em seguida, cole o conteúdo/valor de C74 se verdadeiro.

    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
    • 1

relate perguntas