日日操夜夜添-日日操影院-日日草夜夜操-日日干干-精品一区二区三区波多野结衣-精品一区二区三区高清免费不卡

公告:魔扣目錄網為廣大站長提供免費收錄網站服務,提交前請做好本站友鏈:【 網站目錄:http://www.ylptlb.cn 】, 免友鏈快審服務(50元/站),

點擊這里在線咨詢客服
新站提交
  • 網站:51998
  • 待審:31
  • 小程序:12
  • 文章:1030137
  • 會員:747

有時我們需要在Excel中將單元格中所包含的英文和中文分離出來,讓分離出的中文和英文分別放到其他單元格中。如圖:

假如A2單元格中包含中英文混合內容,可以用下面的方法來進行分離:

1.使用用公式:

在B2單元格中輸入數組公式:

=MID(A2,MATCH(2,LENB(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)),0),LENB(A2)-LEN(A2))

公式輸入完畢后按Ctrl+Shift+Enter結束。

在C2單元格中輸入公式:

=TRIM(SUBSTITUTE(A2,B2,""))

2.使用自定義函數:

還可以在VBA中自定義一個函數,然后在Excel表格中使用該函數進行分離。方法是:按Alt+F11,打開VBA編輯器,單擊菜單“插入→模塊”,在右側的代碼窗口中輸入下列代碼:

Function SplitStringChs(TheString)
Dim n, Chs
For n = 1 To Len(TheString)
If Asc(Mid(TheString, n, 1)) < 0 Then
Chs = Chs & Mid(TheString, n, 1)
End If
Next
SplitStringChs = Chs
End Function

Function SplitStringEng(TheString)
Dim n, Eng
For n = 1 To Len(TheString)
If Asc(Mid(TheString, n, 1)) >= 0 Then
Eng = Eng & Mid(TheString, n, 1)
End If
Next
SplitStringEng = Trim(Eng)
End Function

關閉VBA編輯器,在B2單元格中輸入公式:

=SplitStringChs(A2)

在C2單元格中輸入公式:

=SplitStringeng(A2)

分享到:
標簽:公式 分離 單元格 輸入 Excel函數
用戶無頭像

網友整理

注冊時間:

網站:5 個   小程序:0 個  文章:12 篇

  • 51998

    網站

  • 12

    小程序

  • 1030137

    文章

  • 747

    會員

趕快注冊賬號,推廣您的網站吧!
最新入駐小程序

數獨大挑戰2018-06-03

數獨一種數學游戲,玩家需要根據9

答題星2018-06-03

您可以通過答題星輕松地創建試卷

全階人生考試2018-06-03

各種考試題,題庫,初中,高中,大學四六

運動步數有氧達人2018-06-03

記錄運動步數,積累氧氣值。還可偷

每日養生app2018-06-03

每日養生,天天健康

體育訓練成績評定2018-06-03

通用課目體育訓練成績評定