亚洲免费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
        杨幂Av一区二区三区| 亚洲精品视频在线一区二区| 亚洲av综合av一区| 欧美日韩在线视频一区| 无码字幕av一区二区三区| 亚洲av高清在线一区二区三区| 熟女精品视频一区二区三区| 樱花草在线播放免费中文| 亚洲精品国精品久久99热一| 欧美韩日亚洲影视在线视频| 国产高清a| 中文字幕一区二区va| 91精品福利一区二区三区| 久久一区二区三区少妇人妻| 在线观看亚洲第一黄片| 国产熟妇疯狂4p交在线播放| 妇女bbbb插插插视频| 国产一区二区三精品久久久无广告| 亚洲视频一区| 高清高速无码一区二区| 丰满少妇一区二区三区专区| av大片网站在线观看| 国产成人高清视频在线观看免费| 99久久婷婷国产精品网| 色婷婷精品久久二区二区蜜臀av | 亚洲中文字幕av天堂自拍| 久久性爱视频| 野花社区视频www官网| 国偷自产av一区二区三区| 亚洲成aⅴ人片在线观看天堂无码| 日本女优一区二区在线免费观看 | 狠狠色噜噜狠狠狠狠米奇777| 丰满少妇在线观看网站| 美女污污网站| 精品专区一区二区三区| 日本一区二区高清精品| 亚洲精品粉嫩美女一区| 国产亚洲精品久久久闺蜜 | 亚洲亚洲网站三级片在线| 国语对白嫖老妇胖老太| 精品国产亚洲av麻豆|