Excel脚本编写

SpeII 发表于 2022-2-24 21:46

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

cshadow 发表于 2022-2-24 21:46

这是用VBA写的
Sub test()
Dim i As Integer
Dim m As Integer
m = Sheets("Sheet2")..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 发表于 2022-2-24 21:52

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

SpeII 发表于 2022-2-24 21:56

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

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

d8349565 发表于 2022-2-24 21:57

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

yunlongzhuhuo 发表于 2022-2-24 21:59

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

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

kexue8 发表于 2022-2-24 21:59

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

闷骚小贱男 发表于 2022-2-24 22:02

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

SpeII 发表于 2022-2-24 22:03

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

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

SpeII 发表于 2022-2-24 22:06

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

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

页: [1] 2 3 4 5

吾爱破解 - 52pojie.cn's Archiver

Excel脚本编写