主页 / computer / 问题 / 1633008
Accepted
baskar
Asked: 2021-03-14 01:29:11 +0800 CST

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

  • 772

我需要复制C74 Cell

然后粘贴到C85到C88

Condition1：哪个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

折断

在此处输入图像描述

microsoft-excel vba

1 个回答

  1. Best Answer

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

相关问题