Question

我无法弄清楚自己该怎么做。我有两列，我想替换第二列中的数据，但只有当第1列的值与第2列中的值不同时才会替换。

第1栏熊猫熊蚂蚁等

第2栏熊熊猫熊狼蚂蚁水母

我想要实现的目标是：

如果A1＆lt;＆gt; B1然后替换＆＃34;熊＆＃34;用＆＃34;哺乳动物＆＃34; 等等。

提前谢谢！

Answer 1

这是一个例子，适当地改变。我对你的替换声明有点不确定。我已经编写了你已编写但我想知道你是否有一套替换名单？

以下代码遵循我的评论逻辑。

Sub test()

Dim wb As Workbook
Dim wsSource As Worksheet

Set wb = ThisWorkbook
Set wsSource = wb.Worksheets("Sheet4") 'change as appropriate

Dim lastRowColA As Long

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

Dim loopRange As Range

Set loopRange = wsSource.Range("A1:A" & lastRowColA)

Dim currCell As Range

For Each currCell In loopRange

    If currCell <> currCell.Offset(, 1) Then

        currCell.Offset(, 1) = Replace(currCell.Offset(, 1), "Bear", "Mammal")

    End If

Next currCell

End Sub

VBA条件替换

1 个答案: