excel如何从目标列提取关键词对应替换

my8046

求助，excel如何从目标列提取关键词对应替换。如图把带有“1#2#”关键替换成“公寓”和带有"商铺"关键词提取商铺，其他默认为“住房“。请各位老师。谢谢！

哈喽哈哈1

1. Sub 替换数据()
   
2.     Dim ws As Worksheet
   
3.     Dim lastRow As Long
   
4.     Dim i As Long
   
5.     Dim cellValue As String
   
6.    
   
7.     Set ws = ThisWorkbook.Sheets("Sheet1")
   
8.    
   
9.     lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
   
10.    
    
11.     For i = 1 To lastRow
    
12.         cellValue = ws.Cells(i, 2).Value
    
13.         
    
14.         If InStr(1, cellValue, "1#2#", vbTextCompare) > 0 Then
    
15.             ws.Cells(i, 3).Value = "公寓"
    
16.         ElseIf InStr(1, cellValue, "商铺", vbTextCompare) > 0 Then
    
17.             ws.Cells(i, 3).Value = "商铺"
    
18.         Else
    
19.             ws.Cells(i, 3).Value = "住房"
    
20.         End If
    
21.     Next i
    
22.     ws.AutoFilterMode = False
    
23.     ws.Sort.SortFields.Clear
    
24. End Sub
    

复制代码

满足要求的话，麻烦给个小花花

高个子

1. =TEXT(SUM(IFERROR(FIND({"1#2#","商铺"},A2)^0,0)*COLUMN(A1:B1)*{1,-1}),"公寓;商铺;住房")

复制代码

my8046

高个子 发表于 2024-10-19 17:02

谢谢老师给予解决问题。如果A2是空值时，不让它显示。怎么写。谢谢！

无关岁月

1. =REGEXREPLACE(A2,"(1#2#)|(商铺)|(T\d+)|.","${1:+公寓}${2:+商铺}${3:+住房}")

复制代码

my8046

无关岁月 发表于 2024-10-19 18:38

我复制这个代码拿去用，出现错误

无关岁月

my8046 发表于 2024-10-20 13:15
我复制这个代码拿去用，出现错误

要365的测试版才能用

高个子

my8046 发表于 2024-10-19 17:37
谢谢老师给予解决问题。如果A2是空值时，不让它显示。怎么写。谢谢！

1. =if(a2="","",TEXT(SUM(IFERROR(FIND({"1#2#","商铺"},A2)^0,0)*COLUMN(A1:B1)*{1,-1}),"公寓;商铺;住房"))

复制代码

我的城市你来过

=LET(a,CONCAT(IF(REGEXP(A2,HSTACK("1#2#","商铺"),1),{"公寓","商铺"},"")),IF(a="","住房",a))

mjm04

正则-参与下，WPS可用

=IF(REGEXP(A2,"商铺",1),"商铺",IF(REGEXP(A2,"1\#2\#-",1),"公寓","住房"))


PS：模拟结果中 B21 应该是 住房！不是“公寓”