面試的時候規定用什麼方法這個沒法改變，但是學習的話可以多學幾種，有備無患。

将字符串中的數字、漢字、字母分離在3個單元格。

1.快速填充

正常的快速填充，都是輸入第一行内容，然後按Ctrl E，但是這個方法不能保證100%正确。比如，字母在填充的時候出現異常。

其實還有特殊情況的快速填充，就是輸入前2-3行的内容，這樣可以更好的識别規律。這個小細節是以前無意間發現的。

2.Word的通配符替換

這個要借助Word，将内容複制到Word。

按Ctrl H，查找内容[!0-9]，勾選使用通配符，點全部替換。

這樣就隻剩下數字，再複制回Excel。

漢字的話，就用[!一-龜]。

字母的話，就用[!A-Za-z]。

Word的這種用法Excel查找和替換沒法直接用，但卻可以用在PQ或者VBA中。

财務工作中，你是否遇到焦頭爛額不知如何解決的問題呢？

3.PQ的Text.Select或Text.Remove()

裡面的标點符号都是英文狀态下輸入，注意大小寫必須一緻。以提取漢字為例，用法跟Word中一樣。

詳見文章，就不再說明。

高級替換真好用，一次替換多個不同内容無煩惱，讓替換變得随心所欲

4.VBA的自定義函數

插入模塊，在裡面輸入代碼。

Function RegExpTest(patrn, strng, Optional ByVal fgf As String = " ")

Dim regEx, Match, Matches ' 建立變量。

Set regEx = CreateObject("vbScript.regexp") 'New RegExp ' 建立正則表達式。

regEx.Pattern = patrn ' 設置模式。

regEx.IgnoreCase = True ' 設置是否區分大小寫。

regEx.Global = True ' 設置全局替換。

Set Matches = regEx.Execute(strng) ' 執行搜索。

For Each Match In Matches ' 遍曆 Matches 集合。

RetStr = RetStr & fgf & Match

Next

RegExpTest = Mid(RetStr, Len(fgf) 1)

End Function

這樣就可以調用自定義函數。

數字：

=RegExpTest("[0-9]",$A2,"")

漢字：

=RegExpTest("[一-龜]",$A2,"")

字母：

=RegExpTest("[a-zA-Z]",$A2,"")

最後，你會發現，其實後面的方法原理都一樣，都是利用正則表達式。

這裡相信有許多想要學習會計的同學，大家可以關注小編頭條号，

下方評論區留言：想要學習，并收藏本文；私信小編：學習

即可領取一整套系統的會計學習資料！還可以免費試學會計課程15天！

因領取人數太多，不能及時回複，請大家耐心等待。。。。

,

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!

查看全部