VBA - 如果初始值小于目标值，则查找并用另一个值替换一个值

Question

我是 Robert，我是 VBA 新手，我有以下任务要执行： 我有 2 行中的一系列数字。如果上排的数字小于 1.3，则应替换下排的相应值。

如果需要的话，数字应该两两比较和替换，这意味着如果上限值小于1.3，则上排的值应该替换下排的值n。

如果没有，则保留下一行中的值并继续前进。

我必须在 VBA 中编写一个代码来自动执行此检查。

你见过/用 VBA 写过这样的代码吗？

非常感谢您的宝贵时间！

这是我到目前为止所做的：

Dim i As Integer
Dim j As Integer


For i = 1 To 12

If Cells(60, 8 + i) < 1.3 Then
Cells(60, 8 + i).Select
Selection.Copy
Cells(61, 8 + i).Select
Selection.PasteSpecialext Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

If Cells(60, 8 + i) > 1.3 Then
For j = 1 To 10
Cells(60, 8 + i).Select
Selection.Copy
Cells(61, 8 + i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    If Cells(60, 8 + i) < 1.3 Then
    Cells(60, 8 + i).Select
    Selection.Copy
    Cells(61, 8 + i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Next i

    If Cells(60, 8 + i) = Cells(61, 8 + i) Then Next i

    Else

    Cells(60, 8 + i).Select

Selection.Copy
Cells(61, 8 + i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    If Cells(60, 8 + i) < 1.3 Then
    Cells(60, 8 + i).Select
    Selection.Copy
    Cells(61, 8 + i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Next j

Next i

Next i


End Sub

Answer 1

编辑以满足 OP 的进一步规范

也许你想要如下的东西：

Sub main()
Dim cell As Range

For Each cell In Worksheets("Feuil1").Range("A1:D1") '<~~ change "Feuil1" as per your actual sheet name
    If cell.Value > 1.3 Then cell.Offset(1).Value = cell.Value
Next cell

End Sub

Answer 2

1. 您应该正确缩进您的代码，以便于阅读。
2. 每个If 语句都需要以End If 终止
3. 您只能在For 循环中使用Next 语句来开始下一次迭代

您的主要问题看起来像是这 3 点的组合。

Answer 3

在不了解您要实现的目标以及应该将什么嵌套在哪里的情况下，您需要用End If 完成每个If。

您也不能在For j 循环中跳转到Next i。最好添加错误处理程序或其他内容以跳出For j 循环，如下所示：

Dim i As Integer
Dim j As Integer


For i = 1 To 12

If Cells(60, 8 + i) < 1.3 Then
    Cells(60, 8 + i).Select
    Selection.Copy
    Cells(61, 8 + i).Select
    Selection.PasteSpecialext Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

    If Cells(60, 8 + i) > 1.3 Then
        For j = 1 To 10
            Cells(60, 8 + i).Select
            Selection.Copy
            Cells(61, 8 + i).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

            If Cells(60, 8 + i) < 1.3 Then
                Cells(60, 8 + i).Select
                Selection.Copy
                Cells(61, 8 + i).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
            End If
            If Cells(60, 8 + i) = Cells(61, 8 + i) Then
                GoTo ErrHandler:
            Else
                Cells(60, 8 + i).Select
                Selection.Copy
                Cells(61, 8 + i).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
            End If
            If Cells(60, 8 + i) < 1.3 Then
                Cells(60, 8 + i).Select
                Selection.Copy
                Cells(61, 8 + i).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
            End If
        Next j
    End If
End If
ErrHandler
Next i

End Sub

前两个If 在Next j 之后关闭，如果这是错误的（从您的代码中很难判断），那么将它们移到代码的更上方。