亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

        利用VBA代碼批量填充職位升降信息

        2015-04-29 00:44:03王志軍
        電腦迷 2015年2期
        關(guān)鍵詞:王志軍組合鍵單元格

        王志軍

        人事部的同事前來求助(如圖1),E列是職位升降及留用情況的信息,現(xiàn)在需要對現(xiàn)職位和原崗位進行比較,如果發(fā)現(xiàn)現(xiàn)職位和原崗位出現(xiàn)不一致,那么需要在F列填充職位的升降時間,并在G列填充升降明細(xì)。除了手工操作之外,有沒有簡單一些的方法呢?

        經(jīng)過考慮,由于單元格中的職位升降及留用信息并不規(guī)范,因此無法直接使用分列功能,建議同事使用VBA代碼解決這一問題:按下“Alt+F11”組合鍵,打開Microsoft Visual Basic for Applications編輯器窗口,依次選擇“插入/模塊”,在右側(cè)窗格插入一個空白模塊(如圖2),在這里手工輸入或粘貼如下代碼:

        Sub test()

        Set reg = CreateObject("vbscript.regexp")

        With reg

        .Global = True

        .Pattern = "(\d{1,2}\-\d{1,2})(由.*)"

        End With

        With Sheet1

        For Each Rng In .Range("e2:e" & .Cells(Rows.Count, "e").End(xlUp).Row)

        Set mat = reg.Execute(Rng.Value)

        For Each m In mat

        Rng.Offset(, 1) = m.submatches(0)

        Rng.Offset(, 2) = m

        Next

        Next

        End With

        End Sub

        上述代碼運用了正則表達式,例如“(\d{1,2}\-\d{1,2})(由.*)”,同時以“由”為關(guān)鍵字進行提取。檢查無誤之后,選擇“文件→關(guān)閉并返回到Microsoft Excel”命令,返回Excel主界面,按下“Alt+F8”組合鍵,打開“宏”對話框,選擇并運行test宏,很快就可以得到結(jié)果(如圖3)。

        Ps:相關(guān)VBA代碼可以關(guān)注電腦迷微信(微信號:cpcfan),回復(fù)1502VBA2獲得下載鏈接。

        猜你喜歡
        王志軍組合鍵單元格
        TSCL-SQL:Two-Stage Curriculum Learning Framework for Text-to-SQL
        王志軍 油畫作品
        在同一程序的不同窗口間快速切換
        電腦愛好者(2020年8期)2020-07-04 12:37:02
        玩轉(zhuǎn)方格
        玩轉(zhuǎn)方格
        淺談Excel中常見統(tǒng)計個數(shù)函數(shù)的用法
        西部皮革(2018年6期)2018-05-07 06:41:07
        巧用Windows鍵,讓操作更具活力
        簡單便捷Win8系統(tǒng)metro應(yīng)用切換技巧
        Numerical Simulation on New Perforator
        Research on the Fracture Mechanism of Scored Liner Under Explosive Loading
        久久夜色精品国产三级| 精品国产一区二区三区亚洲人| 亚洲国产一区二区三区在线观看| 国产精品自拍首页在线观看| 少妇bbwbbw高潮| 欧美片欧美日韩国产综合片| av网站韩日在线观看免费| 中文字幕乱码日本亚洲一区二区 | 2019最新国产不卡a| 亚洲欧美综合在线天堂| 人妻少妇不满足中文字幕| av狼人婷婷久久亚洲综合| 精品蜜桃一区二区三区| 黄色大片国产精品久久| 亚洲另类丰满熟妇乱xxxx| 亚洲av无码成人精品国产| 久久狠狠爱亚洲综合影院| 国精产品推荐视频| 国产在线精品一区二区| 亚洲AV永久无码精品导航| av网站入口在线免费观看| 日韩精品资源在线观看免费| 白白色视频这里只有精品| 精品人妻中文av一区二区三区| 国产高潮流白浆视频在线观看| 国产久色在线拍揄自揄拍| 亚洲大尺度无码无码专区| 无码人妻丰满熟妇区bbbbxxxx| 人人做人人爽人人爱| 帮老师解开蕾丝奶罩吸乳网站| 亚洲中文字幕无码一久久区| 色欲人妻综合网| 中文在线а√天堂官网| 2020久久精品亚洲热综合一本| 99国产精品无码专区| 国产av一区麻豆精品久久| 亚洲一区二区免费在线观看视频| 精品+无码+在线观看| 无码精品人妻一区二区三区av| 色屁屁www影院免费观看入口| 放荡的闷骚娇妻h|