Question

我需要一个Excel宏，用一个代表的字母替换单元格。例如，在最初的单元格中，我有以下文本：9x10 Deck，3x6 Beam和12＆＃34;杆和我需要移除它并用＆＃34; D＆＃34; （适用于9x10甲板），＆＃34; B＆＃34; （对于3x6光束）和＆＃34; P＆＃34; （12＆＃34;极点）。

我一次只能运行一个参数，下面是代码，它完成了工作，但似乎没有做到正确。

我想运行宏来搜索包含＆＃34; Beam＆＃34;，＆＃34; Pole＆＃34;，＆＃34; Deck＆＃34;并用相应的字母替换单元格，例如＆＃34; B＆＃34;，＆＃34; P＆＃34;。

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)

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

1 个答案: