|
Sub 按钮1_Click()
If Len([b1]) = 0 Then
MsgBox "请您输入数字"
Exit Sub
End If
ActiveSheet.UsedRange.Offset(2).ClearContents
arr = Sheets("原始数据").UsedRange
r = 0
For j = 2 To UBound(arr)
If Right(arr(j, 8), Len([b1])) = [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
r1 = 0
If VBA.IsDate([d1]) Then
For i = 1 To r
If CDate([d1]) = CDate(arr(i, 7)) Then
r1 = r1 + 1
For j = 1 To UBound(arr, 2)
arr(r1, j) = arr(i, j)
Next j
End If
Next i
If r1 > 0 Then
[a3].Resize(r1, 8) = arr
End If
Else
[a3].Resize(r, 8) = arr
End If
End If
End Sub
楼主的描述没有看懂,就修改了身份证查询位数, |
|