暗淡不工作的 ElseIf (Excel VBA)

Question

我在 VBA 中有以下代码 -

Sub KGBatch()

Dim Cognex As Variant
Cognex = Sheets("KGYield").Range("B82")

Sheets("KGYield").Range("B82:F82").Copy

If Sheets("Test").Range("A17") = "Cognex" Then
   Sheets("Test").Range("A17").PasteSpecial xlPasteValues

'Else: Sheets("Test").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End If

End Sub

Else 被注释掉，直到我弄清楚第一步。

我在一张纸上有一个范围，我将其复制到另一张纸上。这是一个简单的功能。通常，复制的行只会覆盖目标工作表第 17 行中的任何内容。

“康耐视”是一个六位数，通常保持不变。然而，它偶尔会改变。当它确实发生变化时，我希望 Excel 能够识别并将数据粘贴到前一行下方的全新行中。

我相信我已经掌握了基础知识，除非有人有更好的方法（我不是 VBA 天才！）。

不过，目前我收到此代码的错误。我尝试将 Dim 设置为许多不同的变量类型。

如果我调暗为整数，则会出现溢出错误，但如果我调暗为变量、字符串等，则什么也不会发生。它只是执行复制而不是粘贴。

我想这就是我能提供的所有信息。有人可以帮忙吗？

Answer 1

使用变量：

Sub KGBatch()

Dim Cognex As Double
Cognex = Sheets("KGYield").Range("B82").Value

Sheets("KGYield").Range("B82:F82").Copy

With Sheets("Test")
    If .Range("A17").Value = Cognex Then
       .Range("A17").PasteSpecial xlPasteValues

    'Else: .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    End If
End With

End Sub

使用范围：

Sub KGBatch()

Dim Cognex As Range
Set Cognex = Sheets("KGYield").Range("B82")

Sheets("KGYield").Range("B82:F82").Copy

With Sheets("Test")
    If .Range("A17").Value = Cognex.Value Then
       .Range("A17").PasteSpecial xlPasteValues

    'Else: .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    End If
End With

End Sub