搜索单元格包含文本并替换为 Excel 中的字母

Question

我需要一个 Excel 宏，可以用一个表示的字母替换单元格。 例如，在最初的单元格中，我有以下文本：9x10 Deck、3x6 Beam 和 12" Pole，我需要将其删除并将单元格替换为“D”（对于 9x10 Deck）、“B”（对于 3x6 Beam）和“P”（用于 12" 杆）。

我一次只能运行一个参数，下面是代码，它可以工作，但似乎做得不对。

我想运行宏来搜索包含“梁”、“杆”、“甲板”的单元格，并用相应的字母替换单元格，例如“B”、“P”。

Sub CleanUp()
Dim r As Range
Dim s As String, v As String
s = "D"
For Each r In ActiveSheet.UsedRange
    v = r.Text
    If InStr(1, v, s) > 0 Then
        r.Value = s
    End If
Next r 
End Sub 

感谢您的帮助！

Answer 1

A           B   C   D   E   F 
9x10 Deck       D           D
3x6 Beam            B       B
12" Pole                P   P
2x4 strut                   

由于下界查找或搜索可以处理多个函数（如果不存在，则始终返回 #value），因此我将创建 4 列并将它们连接在一起。

每个字母的公式如下：

=IFERROR(IF(FIND("D",A1),"D",""),"")

那么总结一下：

=CONCATENATE(C1,D1,E1)