Question

我有一个包含数字的列的表。我还有一个参考表，其中每个数字对应一个单词（例如1 =苹果，2 =香蕉等）。

我想编写一个VBA代码，该代码利用引用表将相应的水果替换为第一个表中的数字。

我知道这可以通过常规Excel公式解决，但它需要成为VBA，因为它是VBA中整个过程的一部分。

提前致谢！

Answer 1

我会创建一个名为RNG_REFERENCES的自定义范围，其中包含2列，第一列是数字，第二列是替换字。像这样的东西

1 apples
2 bananas

在此之后，我会做这样的事情：

Do Until ActiveCell.Value = ""
    On Error Resume Next
    ActiveCell.Value = Application.WorksheetFunction.VLookup(ActiveCell.Value, Range("RNG_REFERENCES"), 2, False)
    ActiveCell.Offset(1, 0).Select
Loop

我测试了一个填充数字1到4的列。它用含有＆＃34; apples＆＃34;和包含2个单词＆＃34; bananas＆＃34;

的单元格

使用VBA和引用表替换Excel工作表中的值

1 个答案: