☰

通过编程将数字替换为某些相应的字符串

tag-icon • tag-icon microsoft-excel
通过编程将数字替换为某些相应的字符串

我在 Excel 电子表格中有大量数字，我想用文本替换它们。它看起来像这样：

33
33
33
33
22
21
22
29
49
95
43
23
45
12
11
22

我希望将所有的33' 替换为“Clothing”，将所有的22' 替换为“House”，等等。我必须每天都这样做，所以我不想使用查找和替换按钮并浏览 43 个数字，将它们替换为自定义字符串。

如何实现自动化？

答案1

您可以使用 vba 宏（开发人员选项卡 -> Visual Basic -> Sheet1（您需要替换的工作表）并将以下代码粘贴到 Visual Basic 编辑器，然后单击“执行”）

Sub ReplaceNumbers()
With Range("A1:A20000")
    .Replace "33", "Clothing", xlWhole, , True
    .Replace "22", "House", xlWhole, , True
End With
End Sub

这是最硬编码的解决方案，我相信还有很多可以改进的地方，但我认为它是有效的。
如果你想添加替换规则，只需添加行

.Replace "Number-to-replace", "Replacement", xlWhole, , True

相关内容