从基础数据中查询并标注

pop2009

数据量很大，附件内为举例说明，请版主或高手们帮忙，谢谢。

sheeboard

用pandas参考

1. 
   
2. import pandas as pd
   
3. df=pd.read_excel('test.xlsx',dtyp={'身份证号':'str'})
   
4. df['matcol']=df['身份证号'].apply(lambda x: x[14:])
   
5. 
   
6. q=input('四位查询号':)
   
7. df.loc[df['matcol']==q,'备注']='已入住'
   

复制代码

liulang0808

附件内容供参考。。。。。。

liulang0808

Sub 按钮1_Click()
    If Len([b1]) <> 4 Then
        MsgBox "b1单元格数据不符合要求"
        Exit Sub
    End If
    ActiveSheet.UsedRange.Offset(2).ClearContents
    arr = Sheets("原始数据").UsedRange
    r = 0
    For j = 2 To UBound(arr)
        If Right(arr(j, 5), 4) = [b1] & "" Then
            r = r + 1
            For i = 1 To UBound(arr, 2)
                arr(r, i) = arr(j, i)
            Next i
        End If
    Next j
    If r > 0 Then [a3].Resize(r, 5) = arr
End Sub
Sub 按钮2_Click()
    Application.ScreenUpdating = False
    For j = 3 To Cells(Rows.Count, 5).End(3).Row
        Set Rng = Sheets("原始数据").Columns(5).Find(Cells(j, 5), lookat:=xlWhole)
        If Not Rng Is Nothing Then Rng.Offset(0, 1) = "已入住"
    Next j
    Application.ScreenUpdating = True
End Sub

pop2009

liulang0808 发表于 2020-10-16 13:23
附件内容供参考。。。。。。

您好,没有看到附件内容？您帮忙再上传一次，谢谢。

liulang0808

pop2009 发表于 2020-10-16 13:26
您好,没有看到附件内容？您帮忙再上传一次，谢谢。

上传附件失败，稍等下

liulang0808

pop2009 发表于 2020-10-16 13:26
您好,没有看到附件内容？您帮忙再上传一次，谢谢。

上传附件失败，稍等下

笨鸟飞不高

从基础数据中查询并标注.zip (19.04 KB, 下载次数: 8)

2020-10-16 13:30 上传

点击文件名下载附件

liulang0808

Sub 按钮1_Click()
    If Len([b1]) <> 4 Then
        MsgBox "b1单元格数据不符合要求"
        Exit Sub
    End If
    ActiveSheet.UsedRange.Offset(2).ClearContents
    arr = Sheets("原始数据").UsedRange
    r = 0
    For j = 2 To UBound(arr)
        If Right(arr(j, 5), 4) = [b1] & "" Then
            r = r + 1
            For i = 1 To UBound(arr, 2)
                arr(r, i) = arr(j, i)
            Next i
        End If
    Next j
    If r > 0 Then [a3].Resize(r, 5) = arr
End Sub
Sub 按钮2_Click()
    Application.ScreenUpdating = False
    For j = 3 To Cells(Rows.Count, 5).End(3).Row
        Set Rng = Sheets("原始数据").Columns(5).Find(Cells(j, 5), lookat:=xlWhole)
        If Not Rng Is Nothing Then Rng.Offset(0, 1) = "已入住"
    Next j
    Application.ScreenUpdating = True
End Sub

pop2009

笨鸟飞不高 发表于 2020-10-16 13:28

收到，谢谢。