亚洲免费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
        XXXXBBBB欧美| av成人资源在线观看 | 搞黄色很刺激的网站二区| 91九色中文视频在线观看| 日韩高清不卡一区二区三区| 亚洲精品国产精品乱码在线观看 | 欧美一区二区三区激情| 亚洲 都市 校园 激情 另类| 99精品成人片免费毛片无码| 18禁黄无遮挡免费网站| 中文亚洲一区二区三区| 91露脸半推半就老熟妇| 手机在线看片| 亚洲码国产精品高潮在线| 国产成人精品日本亚洲11| 日本女优中文字幕看片| 国产在线AⅤ精品性色| 丝袜美腿爆炒国产在线观看| 91国产自拍精品视频| 中国少妇×xxxx性裸交| 久久九九国产精品怡红院| 免费夜色污私人影院在线观看| 中文 国产 无码免费| 日韩国产有码精品一区二在线 | av网站国产主播在线| 性久久久久久| 女人和拘做受全程看视频 | 欧美v国产v亚洲v日韩九九| 极品新婚夜少妇真紧| 老色鬼永久精品网站| 69精品人妻一区二区| 国产精品一区二区三区在线蜜桃| 国产人妻丰满熟妇嗷嗷叫| 欧美在线日韩| 国产大学生自拍三级视频 | 国产精品入口蜜桃人妻| 中文无字幕一本码专区| 久久影院午夜理论片无码| 精品无码中文字幕在线| 国产一区二区欧美丝袜| 精品国产中文久久久免费|