[已解决]替换符合条件的数据

chensir

如果B行内店名含有“多品”，那么A列品牌性质由原来的数据变成“多品”
如D:E列所示

求代码

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-11-18 16:49

ccc

跳转到最佳答案楼层

这儿有肥猫

ccc

as0810114

不破坏源数据

1. Sub 替换()
   
2. Dim rng As Range
   
3. For Each rng In Sheets("店铺").Range("A1").CurrentRegion
   
4. If rng Like "*多品*" Then rng.Offset(0, -1) = "多品"
   
5. Next
   
6. End Sub

复制代码