Excel脚本编写

SpeII

求助各位大佬，怎么编写一个Excel脚本可以查询某一列的值是否包含某个字符串并且替换原有的内容
例如：第三列包含杭州两个字的全部替换成浙江省

cshadow

这是用VBA写的
Sub test()
Dim i As Integer
Dim m As Integer
m = Sheets("Sheet2").[A65536].End(xlUp).Row
For i = 1 To m Step 1
    If Sheets("Sheet2").Range("A" & i).Value Like "*杭州*" Then
        'Sheets("Sheet2").Range("A" & i).Interior.Color = RGB(255, 0, 0)
        Sheets("Sheet2").Range("B" & i).Value = "浙江省"
    End If
Next i
End Sub

感觉还是Python更快一些

yunlongzhuhuo

你这连脚本都不用写。选中那一列之后用Excel的替换功能就可以了

SpeII

yunlongzhuhuo 发表于 2022-2-24 21:52
你这连脚本都不用写。选中那一列之后用Excel的替换功能就可以了

这样不行的，并不是只替换两个字而是整个单元格的内容都要替换，而且需要替换的数据也非常多

d8349565

你应该先描述下自己的数据量多少，替换量多少，替换的对照表是什么

yunlongzhuhuo

SpeII 发表于 2022-2-24 21:56
这样不行的，并不是只替换两个字而是整个单元格的内容都要替换，而且需要替换的数据也非常多

哦，那我看看能不能用python写一个。还有最好像4楼所说的，详细描述一下

kexue8

擅用搜索：https://www.52pojie.cn/forum.php?mod=viewthread&tid=1590864

闷骚小贱男

全部复制到记事本，替换了再粘贴回来

SpeII

d8349565 发表于 2022-2-24 21:57
你应该先描述下自己的数据量多少，替换量多少，替换的对照表是什么

感谢提醒，数据量大概10w+吧，然后所有的数据都要替换，对照表的话我也不清楚，就是把市替换成省，比如杭州市xxxx或者宁波市xxxx要替换成浙江省，以此类推吧

SpeII

kexue8 发表于 2022-2-24 21:59
擅用搜索：https://www.52pojie.cn/forum.php?mod=viewthread&tid=1590864

感谢回复，这个工具我用了一下，用的不是很明白