教师名册提取代码(已解决)

杨建营

参与一下。

jx928867128

3190496160 发表于 2023-3-18 10:26
121行数据有问题

谢谢老师的帮忙，再次感谢，祝您生活愉快

jx928867128

杨建营 发表于 2023-3-18 10:59
参与一下。

谢谢老师的帮忙，再次感谢，祝您生活愉快

jx928867128

gwjkkkkk 发表于 2023-3-18 10:18
请参考。。。

谢谢老师的多次帮忙，再次感谢，祝您生活愉快

jx928867128

zxsea_7426 发表于 2023-3-18 09:33

谢谢老师的帮忙，再次感谢，祝您生活愉快

jx928867128

wanghan519 发表于 2023-3-18 09:29
来凑热闹，感觉perl单行式写在公式栏里真的爽啊，其实只用公式应该也可以

谢谢老师的帮忙，再次感谢，祝您生活愉快

洋务德雷

利用正则表达式可以避免教师出现空值的情况。看一下吧

jx928867128

洋务德雷 发表于 2023-3-18 12:40
利用正则表达式可以避免教师出现空值的情况。看一下吧

谢谢老师的帮忙，再次感谢，祝您生活愉快

准提部林

Sub TEST_A1()
Dim Arr, xD, i&, T$, N&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range(Sheet5.[b1], Sheet5.[a65536].End(3))
For i = 2 To UBound(Arr)
    T = Trim(Split(Arr(i, 1) & "|", "|")(0))
    If InStr("星上下晚", Left(T, 1)) Then GoTo i01
    If xD(T) = 0 Then N = N + 1: Arr(N, 1) = N: Arr(N, 2) = T
    xD(T) = 1
i01: Next i
Sheet2.[a2:b2000].ClearContents
Sheet2.[a2].Resize(N, 2) = Arr
End Sub

jx928867128

准提部林 发表于 2023-3-18 14:58
Sub TEST_A1()
Dim Arr, xD, i&, T$, N&
Set xD = CreateObject("Scripting.Dictionary")

再次感谢老师的多次帮忙，祝您生活愉快