给指定身份证的列数加个数字0应该咋写了

qiongmei6

我想在附件求得一个代码，例如我想在在表格内v列寻找身份证号是12345，然后在对应的x列填入数字2，这个代码要咋写呢，谢谢各位大神的帮忙

liulang0808

Sub test()
    str1 = "12345"
    Application.ScreenUpdating = False
    For j = 3 To Cells(Rows.Count, "v").End(3).Row
        If InStr(Cells(j, "v"), str1) > 0 Then
            Cells(j, "x") = 2
        End If
    Next j
    Application.ScreenUpdating = True
End Sub

liulang0808

Book1.zip (25.03 KB, 下载次数: 4)

2024-2-4 07:53 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&
   
    With [A2].CurrentRegion
        ar = .Value
        For i = 2 To UBound(ar)
            If ar(i, 22) = "12345" Then
                ar(i, 24) = 2
            End If
        Next i
        .Value = ar
    End With
    Beep
End Sub

gwjkkkkk

参与一下。。。

lushang2018

qiongmei6

各位大神太牛了，你们所提供的正是我所希望的，红花用完了，等明天再赠送红花