1Sub 抽离数字() 2Dim hang 3 Range("h1").Select 4 5 6 7 Columns("E:F").Select 8 Selection.Clear 9 10Range("c3:c190").Select 11 12Selection.Replace What:="(", Replacement:="（", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True 13Selection.Replace What:=")", Replacement:="）", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True 14 15 For ccc = 3 To 100 16 17aa = ActiveSheet.Cells(ccc, 3).Value 18 19bb = Split(aa, "（") 20For aai = 1 To UBound(bb) 21hang = ActiveSheet.Cells(1, 8).Value 22bb2 = Split(bb(aai), "）") 23If Asc(Mid(bb2(0), 1, 1)) > 0 Then 24 25If Int(bb2(0)) > 0 Then 26ActiveSheet.Cells(hang + 3, 6).Value = Int(bb2(0)) 27ActiveSheet.Cells(hang + 3, 5).Value = ActiveSheet.Cells(ccc, 2).Value 28End If 29End If 30 31Next 32For ff = 3 To 90 33If ActiveSheet.Cells(ff, 6).Value = 0 Or ActiveSheet.Cells(ff, 6).Value = "" Then 34 ActiveSheet.Cells(ff, 6).Select 35 Selection.Delete Shift:=xlShiftUp 36End If 37Next 38Next 39'跳到顶端 40 ActiveWindow.ScrollRow = 1 41 42 43End Sub 44 45Sub 替换() 46Range("c3:c190").Select 47 48Selection.Replace What:="(", Replacement:="（", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True 49Selection.Replace What:=")", Replacement:="）", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True 50 51End Sub
H1 输入公式 =COUNT(F:F)
B3 输入考勤负责人
C3 为该部门的人 ，名字（工号）
