如何从文化户口簿将外县外省就读初中的学生信息导入初中在外寄读花名册

笨鸟168

一个一个复制粘贴太费事，若能自动筛选复制就省事多了！

笨鸟168

      可是没填写身份证号，只能根据统计列的信息来进行判断，且这个寄读花名册要筛选的是本乡镇在外县外省就读初中的儿童少年的信息。这个筛选复制现在对我来说还是个难题呢！

zpy2

笨鸟168 发表于 2018-9-15 22:23
可是没填写身份证号，只能根据统计列的信息来进行判断，且这个寄读花名册要筛选的是本乡镇在外县外省 ...

没有具体数据，对计算机来说也是一个难题，至少Excel得人工智能还没这么高端。

LWQHLWQH

Sub 提取初中在外就读信息()
    Dim i As Long
    Dim arr()
    Dim iRow As Long
    arr() = Sheet3.Range("A1:AP10000")
    iRow = 5
    For i = 5 To 10000
        If arr(i, 42) = "外县初中" Then
        iRow = iRow + 1
        Sheet8.Cells(iRow, 2) = arr(i, 1)
        Sheet8.Cells(iRow, 3) = arr(i, 2)
        Sheet8.Cells(iRow, 4) = arr(i, 4)
        '余下部分代码你自己参照补充就可以了
        End If
    Next
End Sub
复制代码，执行即可。

lsc900707

代码还需加些判断，没时间修改了，你自己先参考：

1. Sub 初中在外寄读花名册()
   
2.     Dim brr(1 To 10000, 1 To 12)
   
3.     arr = Sheet3.UsedRange
   
4.     m = 0
   
5.     For i = 7 To UBound(arr) Step 2
   
6.         If Len(arr(i, 19)) And (InStr(arr(i, 19), "安顺") = 0 Or InStr(arr(i, 19), "镇宁") = 0 Or InStr(arr(i, 19), "丁旗") = 0) Then
   
7.             m = m + 1
   
8.             brr(m, 1) = m
   
9.             brr(m, 2) = arr(i, 1)
   
10.             brr(m, 3) = arr(i, 2)
    
11.             For j = 4 To 7
    
12.                 brr(m, j) = arr(i, j)
    
13.             Next
    
14.             brr(m, 9) = arr(6, 19) & "/" & arr(6, 20) & "/" & arr(6, 21)
    
15.             brr(m, 10) = arr(i + 1, 19)
    
16.             brr(m, 11) = arr(i, 19)
    
17.         End If
    
18.     Next
    
19.     If m Then
    
20.         Range("a6:l" & Rows.Count).ClearContents
    
21.         [a6].Resize(m, 12) = brr
    
22.     End If
    
23. End Sub

复制代码

xiangbaoan

表中信息不全，自行测试是否正确……

笨鸟168

xiangbaoan 发表于 2018-9-16 09:42
表中信息不全，自行测试是否正确……

      非常感谢！能正常运行，效果非常好，学习了！我修改了个别参数就成了小学、初中、高中的寄读生名册生成程序，但修改成中、高职花名册的自动生成程序只能运行，没有相应的数据产生，有点郁闷！您编写的程序最
简洁高效。

笨鸟168

lsc900707 发表于 2018-9-16 08:27
代码还需加些判断，没时间修改了，你自己先参考：

能正常运行的，只是年级一栏没有分开，还是七/八/九。谢谢帮助！

笨鸟168

LWQHLWQH 发表于 2018-9-16 08:01
Sub 提取初中在外就读信息()
    Dim i As Long
    Dim arr()

能生成部分信息，我自己不能补充完整，惭愧！