VBA使用偏移量基于查找表查找和替换单元格内容

Question

我为这个简单的问题苦苦思索：我有一个子集，可以根据Sheet.Sheet1列F中的表在Sheet.Classification列B中查找和替换一个值。该值将替换为Classification Column F的内容，因此将替换为Offset(0, 4)。

除了我希望它替换F的{​​{1}}列中的单元格的全部内容（而不是仅找到Sheet 1）之外，该子项还可以正常工作。

Lookup.Value

有帮助吗？

Answer 1

我认为您需要修改IF语句：

If Lookup.Value = "" Then
    rngData.Value =Lookup.Offset(0, 4).Value
End If

使用.Replace方法就像REPLACE（）函数一样，它将交换一部分字符串而不是全部内容。参见：https://docs.microsoft.com/en-us/office/vba/api/excel.range.replace