中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

Excel情報(bào)局

OFFICE知識文藝青年

用1%的Excel基礎(chǔ)搞定99%的日常工作

做一個(gè)有文藝范的Excel公眾號

Excel是門手藝 玩轉(zhuǎn)需要勇氣

表哥帶你玩轉(zhuǎn)辦公室

有溫度的公眾號

輕松閱讀

2020年7月18日

庚子年五月二十八

周六

圈子不同，觀念不同，經(jīng)歷不同，想法不同，眼光不同，不必強(qiáng)融，不必理解，互相尊重 。長大后懂得了一個(gè)道理：不貶低別人喜歡的東西，是一種素養(yǎng)。 

正文：

昨天推文講解到了如何從Excel單元格不規(guī)則混合數(shù)據(jù)中分別提取漢字、數(shù)字和字母的方法。

昨日推文鏈接：

Excel數(shù)據(jù)提取字母、數(shù)字、漢字，想怎么提取就怎么提取，果斷收藏公式！

評論中有熱心的小伙伴提出了，如果被提取的單元格中的漢字、數(shù)字、或者字母不是連續(xù)存在在單元格中，則不能被完全提取出來。

當(dāng)然之前的方法確實(shí)有一些局限性，但對于特定的情景確實(shí)很實(shí)用，也是一種公式法，復(fù)制粘貼套用很方便。要客觀辯證的去看待。

今天就向大家強(qiáng)力介紹一種從Excel單元格不規(guī)則混合數(shù)據(jù)中分別提取漢字、數(shù)字和字母，且不規(guī)則混合數(shù)據(jù)中的漢字、數(shù)字、或者字母可能不是連續(xù)存在的。如下圖所示的情景：

首先右擊工作表名稱，點(diǎn)擊查看代碼，打開VBA窗口（或者ALT+F11快捷鍵打開VBA窗口）。

在彈出的VBA界面中點(diǎn)擊“插入”-“模塊”。

將下列代碼復(fù)制到模塊中。

注：通用模板，無需修改，原文復(fù)制。

    Function MyGet(Srg As String, Optional n As Integer = False)

    Dim i As Integer

    Dim s, MyString As String

    Dim Bol As Boolean

    For i = 1 To Len(Srg)

    s = Mid(Srg, i, 1)

    If n = 1 Then

    Bol = Asc(s) < 0

    ElseIf n = 2 Then

    Bol = s Like "[a-z,A-Z, ,.,_,*,$,/,+,-]"

    ElseIf n = 0 Then

    Bol = s Like "[0-9,.,-,*,$,/,+,-]"

    End If

    If Bol Then MyString = MyString & s

    Next

    MyGet = MyString

    End Function

關(guān)閉VBA窗口返回Excel界面，然后在B2單元格中輸入公式：

=myget(A2,1)

提取所有漢字

在C2單元格中輸入公式：

=myget(A2)

提取所有的數(shù)字

在D2單元格中輸入公式：

=myget(A2,2)

提取所有字母

相互尊重，抱團(tuán)成長。

隔三差五學(xué)個(gè)Excel小知識，忘記一天工作的煩惱，只要堅(jiān)持，最后可能不會(huì)得到最好的結(jié)果，但一定不會(huì)收獲最壞的結(jié)果。賴床舒服，但可能遲到；熬夜很爽，但傷身體。自律或許并不容易，但你越懶惰越放縱自己，就越可能錯(cuò)過美好的人和事。如果生活注定充滿艱辛，那就學(xué)著做拯救自己的那個(gè)英雄。趁年輕不妥協(xié)，向前奔跑！從今天開始改變，對平庸生活?yuàn)^力回?fù)簟?/span>