如何用VBA批量查找替换数据？

上官瑶瑶

问题描述：
老师好，我想将sheet2工作表中D列（评分）列数据，如果大于315000，那么就将对应的C列数据替换成：T38111,555  ，求老师帮忙解答，感谢。

f8b1987

1. FOR i=2 to CELLS(ROWS.COUNT,1).END(3).ROW
   
2. if CELLS(i,"D")>315000 THEN CELLS(i,"C")="T38111,555"
   
3. END IF
   
4. NEXT I

复制代码

sheeboard

用pandas参考

1. import pandas as pd
   
2. df=pd.read_excel('test.xlsx')
   
3. df.loc[df['评分']>315000,'产品型号']='T38111,555'

复制代码

3190496160

Sub tihuan()
Dim ar As Variant
Dim i As Long
With Sheet2
    ar = .[a1].CurrentRegion
    For i = 2 To UBound(ar)
        If IsNumeric(ar(i, 4)) Then
            If ar(i, 4) > 15000 Then
                ar(i, 3) = "T38111,555"
            End If
        End If
    Next i
    .[a1].CurrentRegion = ar
End With
            
End Sub

3190496160

结果未经核对，自己核对看看吧，应该没问题的

笨鸟飞不高

Sub AwTest()
    Dim i%, ReplaceStr$, arr
    Sheet2.Select
    ReplaceStr = "T38111,555"
    arr = [a1].CurrentRegion
    For i = 2 To UBound(arr)
        If arr(i, 4) > 315000 Then arr(i, 3) = ReplaceStr
    Next
    [g1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

上官瑶瑶

笨鸟飞不高 发表于 2020-9-21 21:32
Sub AwTest()
    Dim i%, ReplaceStr$, arr
    Sheet2.Select

老师，试用了下，运行后最后将数据重置到g1为起点了，我想在原表上修改，不用动位置，最后一句如何修改啊？

sq007

这个用PQ是不是更简单一些

笨鸟飞不高

上官瑶瑶 发表于 2020-9-21 22:18
老师，试用了下，运行后最后将数据重置到g1为起点了，我想在原表上修改，不用动位置，最后一句如何修改啊 ...

Sub AwTest()
    Dim i%, ReplaceStr$, arr
    Sheet2.Select
    ReplaceStr = "T38111,555"
    arr = [a1].CurrentRegion
    For i = 2 To UBound(arr)
        If arr(i, 4) > 315000 Then arr(i, 3) = ReplaceStr
    Next
    [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

yaofengda

上官瑶瑶 发表于 2020-9-21 22:18
老师，试用了下，运行后最后将数据重置到g1为起点了，我想在原表上修改，不用动位置，最后一句如何修改啊 ...

人家主要是考虑保证你原始数据安全，你要改那就把倒数第二句[g1]改成[a1]。