亚洲免费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
        午夜无码片在线观看影院y| 中国妇女做爰视频| 少妇熟女天堂网av| 在线精品一区二区三区| 久久国产亚洲精品超碰热| 国产av大片在线观看| 免费观看在线视频播放| 亚洲精品国产av成人精品| 日本肥老妇色xxxxx日本老妇| 亚洲欧美一区二区三区| 精品福利一区| 色视频日本一区二区三区 | 亚洲国产日韩a在线乱码| 色噜噜狠狠狠综合曰曰曰| 中国亚洲女人69内射少妇| 亚洲乱码一区AV春药高潮| 亚洲中文字幕第一页免费| 国内精品免费一区二区三区| 婷婷色婷婷开心五月四房播播| 精品成人乱色一区二区| 亚洲香蕉毛片久久网站老妇人 | 精品无码久久久久久久久水蜜桃| 免费a级作爱片免费观看美国| 精品乱码卡1卡2卡3免费开放 | 亚洲av成人av三上悠亚| 人人人妻人人澡人人爽欧美一区| 337人体做爰大胆视频| 亚洲网站免费看| 一区二区三区国产天堂| 天天干天天日夜夜操| 久久综合狠狠色综合伊人| 加勒比无码专区中文字幕| 亚洲人妻有码中文字幕| 一区二区三区中文字幕脱狱者| 男人的天堂免费a级毛片无码| 亚洲国产综合精品 在线 一区 | 91精品国产乱码久久中文| 国产永久免费高清在线| 亚洲人成网站免费播放| 日韩av在线不卡观看| 99在线视频这里只有精品伊人|