比较Excel VBA中的值 [英] Compare values in Excel VBA

问题描述

我试图比较单元格A1和B1，如果它是真正的填充单元格F1与A1值。但是不管我的输入值是什么，if条件都成立。

I am trying to compare cell A1 with B1 and if it is true populate cell F1 with the A1 value. But irrespective of my input values the if condition becomes true.

Sub Macro3()
    Dim i As Integer
    i = 1
    For i = 1 To 10
        If (Range("A" & i).Select = Range("B" & i).Select) Then
            Range("A" & i).Select
            Selection.Copy
            Range("F" & i).Select
            ActiveSheet.Paste
        End If
    Next i      
End Sub

推荐答案

复制和粘贴，您可以比较单元格的Value属性，然后相应地设置F列值：

Instead of selecting, copying, and pasting, you can compare the Value property of the cells, then set the F column Value accordingly:

Dim i As Integer
For i = 1 To 10
    If Range("A" & i).Value = Range("B" & i).Value Then
        Range("F" & i).Value = Range("A" & i).Value
    End If
Next

这篇关于比较Excel VBA中的值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！