Question

我有一个单元格（例如 U4 ），我插入一个值。例如，我将其称为A.

我想复制列K中高于A的所有值（从第4行开始），并将它们放在列N中（也从第4行开始）。除此之外，我想复制L列中的对应值并将它们放在O列中。

现在我有了这个，仅用于K列：

A = Range("U4").Value
Cotacopy = 4
With Range("K4")
If .Cells(1, 1).Value > A Then
      Range(.Cells(1, 1), .End(xlDown)).Copy Destination:=Sheets("Cálculo").Range("N" & Cotacopy)
    x = x + 1
Else
End If
End With

我不知道这是否完全正确，我正在调整另一个过程，我将一个列中的所有单元格复制到有价值的位置。

Answer 1

以下 For循环：

如何？

Sub CopyHigherValue()

Dim lastrow As Long

lastrow = Cells(Rows.Count, "A").End(xlUp).Row

y = 4

For x = 4 To lastrow
    If Cells(x, 1).Value < Cells(x, 11).Value Then
          Cells(y, 14).Value = Cells(x, 11).Value
          Cells(y, 15).Value = Cells(x, 12).Value
          y = y + 1
    End If
Next x

End Sub

如果值高于另一个单元格，则复制单元格

1 个答案: