zoukankan      html  css  js  c++  java
  • vb,wps,excel 提取括号的数字

    Sub 抽离数字()
    Dim hang
     Range("h1").Select
    
    
      
     Columns("E:F").Select
        Selection.Clear
        
    Range("c3:c190").Select
        
    Selection.Replace What:="(", Replacement:="(", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
    Selection.Replace What:=")", Replacement:=")", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
    
     For ccc = 3 To 100
     
    aa = ActiveSheet.Cells(ccc, 3).Value
    
    bb = Split(aa, "(")
    For aai = 1 To UBound(bb)
    hang = ActiveSheet.Cells(1, 8).Value
    bb2 = Split(bb(aai), ")")
    If Asc(Mid(bb2(0), 1, 1)) > 0 Then
    
    If Int(bb2(0)) > 0 Then
    ActiveSheet.Cells(hang + 3, 6).Value = Int(bb2(0))
    ActiveSheet.Cells(hang + 3, 5).Value = ActiveSheet.Cells(ccc, 2).Value
    End If
    End If
    
    Next
    For ff = 3 To 90
    If ActiveSheet.Cells(ff, 6).Value = 0 Or ActiveSheet.Cells(ff, 6).Value = "" Then
     ActiveSheet.Cells(ff, 6).Select
        Selection.Delete Shift:=xlShiftUp
    End If
    Next
    Next
    '跳到顶端
     ActiveWindow.ScrollRow = 1
       
    
    End Sub
    
    Sub 替换()
    Range("c3:c190").Select
        
    Selection.Replace What:="(", Replacement:="(", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
    Selection.Replace What:=")", Replacement:=")", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
    
    End Sub
    

      H1 输入公式 =COUNT(F:F)

          B3 输入考勤负责人

          C3 为该部门的人 ,名字(工号)

    博客园:冷色008 百度:冷色008
  • 相关阅读:
    react setstate
    【css】长文本左侧显示省略号
    react 获取input标签的输入值
    【react 分页器】 基于react-virtualized组件的分页器
    type为number的<input>标签 type和size属性失效
    js 获取Array数组 最大值 最小值
    ubuntu 编辑pdf
    【react redux && flux】
    远程唤醒、WOL、Magic_Packet
    win10无法访问局域网共享文件?(因微软账户和本地账户登陆问题导致)
  • 原文地址:https://www.cnblogs.com/--3q/p/9135170.html
Copyright © 2011-2022 走看看