亚洲免费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
        亚洲一区二区三区四区五区黄| 日韩中文字幕久久久经典网| 综合图区亚洲另类偷窥| 国产精品天堂在线观看| 日本精品免费看99久久| 免费国产黄网站在线观看视频| 草草浮力地址线路①屁屁影院| 精品人妻VA出轨中文字幕| 国产精品nv在线观看| 91国产熟女自拍视频| 国内自拍情侣露脸高清在线| 北条麻妃国产九九九精品视频| 乱子伦视频在线看| 久久99久久99精品观看| 日本一区二区视频免费在线观看| 青青草国产在线视频自拍| 中国老熟女重囗味hdxx| 破了亲妺妺的处免费视频国产| 中国人妻沙发上喷白将av| 久久少妇高潮免费观看| 曰韩少妇内射免费播放| 东京热人妻一区二区三区| 在线播放国产女同闺蜜| 成人影院免费观看在线播放视频| 亚洲精品98中文字幕| 男人和女人做爽爽视频| 日本大片在线看黄a∨免费| 欧美日韩国产乱了伦| 91人妻无码成人精品一区91| 偷拍女厕尿尿在线免费看| 青青草原综合久久大伊人精品| 午夜不卡无码中文字幕影院| 精品一区二区三区免费播放| 亚洲国产欧美久久香综合| 91精品国产综合久久国产| 红桃av一区二区三区在线无码av| 少妇无码吹潮| 亚洲一区二区久久青草| 中文字幕精品人妻丝袜| 亚洲av色影在线| 伊人色综合视频一区二区三区|