在Excel VBA中,可以使用以下代码比较两个单元格的值,并根据值相同与否填充另一个单元格:
Sub CompareAndFill()
Dim cell1 As Range
Dim cell2 As Range
' 设置要比较的两个单元格
Set cell1 = Range("A1")
Set cell2 = Range("B1")
' 比较两个单元格的值
If cell1.Value = cell2.Value Then
' 如果值相同,则用指定的值填充另一个单元格
cell2.Value = "指定的值"
End If
End Sub
上述示例中,我们将"A1"和"B1"分别赋值给cell1
和cell2
变量,然后使用If
语句比较两个单元格的值。如果值相同,我们可以使用cell2.Value
将指定的值填充到B1
单元格中。
请根据实际情况修改代码中的单元格范围和指定的值。