中文怎麼快速轉成拼音呢?Excel快速提取中文首字母

2020-12-12 微科技智生活

用Excel收集統計個人信息時，會遇見各種各樣的問題。例如：我們需要將中文姓名轉換成首字母拼音的形式，這時候該怎麼操作呢？

你還在一個一個的輸入嗎？這樣太麻煩了，接下來讓我們使用VBA，快速將中文轉換成拼音首字母的形式，簡單便捷，快來試試吧！

打開Microsoft Excel工作簿，如果Excel文件後綴名是「xlsx」，請先將Excel文檔另存為「xls」或者「xlsm」類型。

右鍵單擊Sheet1工作表，選中右鍵菜單中的查看代碼。

在Microsoft Visual Basic for Applications窗口中，右鍵單擊工程資源管理器窗口中的空白位置，將滑鼠指針移動至插入，選中模塊。

接著將以下代碼複製粘貼至模塊1的代碼窗口中，點擊保存後退出Visual Basic編輯器。

代碼區域

Function Getpychar(char)

temp = 65536 + Asc(char)

If (temp >= 45217 And temp <= 45252) Then

Getpychar = "A"

ElseIf (temp >= 45253 And temp <= 45760) Then

Getpychar = "B"

ElseIf (temp >= 45761 And temp <= 46317) Then

Getpychar = "C"

ElseIf (temp >= 46318 And temp <= 46825) Then

Getpychar = "D"

ElseIf (temp >= 46826 And temp <= 47009) Then

Getpychar = "E"

ElseIf (temp >= 47010 And temp <= 47296) Then

Getpychar = "F"

ElseIf (temp >= 47297 And temp <= 47613) Then

Getpychar = "G"

ElseIf (temp >= 47614 And temp <= 48118) Then

Getpychar = "H"

ElseIf (temp >= 48119 And temp <= 49061) Then

Getpychar = "J"

ElseIf (temp >= 49062 And temp <= 49323) Then

Getpychar = "K"

ElseIf (temp >= 49324 And temp <= 49895) Then

Getpychar = "L"

ElseIf (temp >= 49896 And temp <= 50370) Then

Getpychar = "M"

ElseIf (temp >= 50371 And temp <= 50613) Then

Getpychar = "N"

ElseIf (temp >= 50614 And temp <= 50621) Then

Getpychar = "O"

ElseIf (temp >= 50622 And temp <= 50905) Then

Getpychar = "P"

ElseIf (temp >= 50906 And temp <= 51386) Then

Getpychar = "Q"

ElseIf (temp >= 51387 And temp <= 51445) Then

Getpychar = "R"

ElseIf (temp >= 51446 And temp <= 52217) Then

Getpychar = "S"

ElseIf (temp >= 52218 And temp <= 52697) Then

Getpychar = "T"

ElseIf (temp >= 52698 And temp <= 52979) Then

Getpychar = "W"

ElseIf (temp >= 52980 And temp <= 53640) Then

Getpychar = "X"

ElseIf (temp >= 53689 And temp <= 54480) Then

Getpychar = "Y"

ElseIf (temp >= 54481 And temp <= 62289) Then

Getpychar = "Z"

Else

Getpychar = char

End If

End Function

Function Getpy(str)

For a = 1 To Len(str)

Getpy = Getpy & Getpychar(Mid(str, a, 1))

Next a

End Function

例如單元格區域C:C是中文姓名，需要在單元格區域D:D轉換成拼音首字母形式。只需在D2單元格中輸入函數「=Getpy(C2)」，然後進行單元格填充就可以啦。

是不是非常簡單便捷呢？抓緊時間把代碼收藏起來吧，有備無患。

點擊關注、轉發和收藏，有更多計算機小技巧等著您來發現。

相關焦點

  • 大部分人都不知道的excel小技巧,快速將中文漢字轉換成拼音
    我們在日常工作中，經常會使用到excel處理和分析各種各樣的數據，不過excel表裡有時候也有中文漢字，這次我們就一起來學習一下中文漢字轉換成拼音的技巧。快速將中文漢字轉換成拼音我們以實例來講解，第一列是中文漢字，第二列是帶有拼音的中文漢字，第三列是只有拼音，這是怎麼做到的呢？
  • Excel表格快速提取單元格信息中的數字、字母、文字
    在Excel表格中提取單元格信息中的數字、字母、文字是我們經常會遇到的問題，今天為朋友們分享兩種方法解決快速提取信息。一.使用Excel最強大的數據拆分快捷鍵Ctrl+E提取數字。手動複製好一個數據之後在下方單元格按住Ctrl+E就可以快速拆分。1.實例要求：根據B列的信息提取所有人的身份證號、聯繫方式和年齡。
  • Excel中如何利用len、lenb函數,快速提取需要的姓名信息?
    打開excel表格後我們可以看到，在員工姓名列除了有中文還有英文，而現在我們需要的僅僅是中文而已。就好比姓名後面跟著電話號碼，那我們應該怎麼來快速提取我們想要的信息呢？如果分離的話又不確定英文到底有多長，提取函數的話也是有相同困擾的。
  • 「中文拼音」英語應該怎麼表達?
    (￣△￣)每天晚上一篇英語知識普及英語罐頭本文是我的第115篇英語知識文章之前就有小夥伴在在罐頭菌的後臺問我，中國漢字究竟應該怎麼翻譯？Chinese word對嗎？一.Chinese word對嗎？可能大家從小學習英語都是接觸單詞比較多，英語書後面的單詞表也更加多地喜歡用Vocabulary或者Word來表示，很多小夥伴就會以為中文的漢字也能翻譯成這樣，其實「漢字」的翻譯應該是：1.Chinese character 中文漢字I've been studying Chinese character for a few months.
  • EXCEL快速提取中英文、數字的4個方法,總有一個適合你!
    應用場景：工作中，常常需要從單元格數據中截取一部分進行統計、計算，或者從不同系統導出的數據中提取中文、數字和英文等，如何快速提取需要的數據呢？介紹4種常用方法。公式解析：LEN(A2)*2得出的結果是：12 （效果相當於：love愛love愛）LENB(A2)得出的結果是：8 （效果相當於： love愛愛）LEN(A2)*2-LENB(A2)得出的結果是：12-8=4（效果相當於：love愛love愛- love愛愛=love）最後用LEFT函數從左取相對應的英文字母數即可提取英文單詞。
  • 快速高效釋放手指的中文輸入法:FIT寫字板
    ，FIT（新點科技）是很有名氣的一個團隊，從Mac平臺的FIT輸入法，到現在iOS平臺的FIT寫字板，他們致力於解決中文輸入法，讓我們的手指得到釋放、效率更為高效。 在中文輸入法領域，FIT（新點科技）是很有名氣的一個團隊，從Mac平臺的FIT輸入法，到現在iOS平臺的FIT寫字板，他們致力於解決中文輸入法，讓我們的手指得到釋放、效率更為高效
  • 辦公軟體操作技巧98:如何在excel表格中按姓名的拼音或筆劃排序
    在日常工作中，我們經常需要對編輯的excel表格數據進行排序操作，而對於一般的數值數據，可以直接進行升序或降序排列，如下圖中的序號列，但對于姓名列該怎麼進行排序呢？數字排序中文姓名列的排序方式有兩種，分別是按拼音排序和按筆劃排序。今天就來和大家分享在excel表格中，如何分別按姓名的拼音和筆劃排序。
  • 圖示三階魔方公式轉換助手來了,新增字母公式轉中文單字公式助手
    圖示三階魔方公式轉換助手 是一款可以將三階魔方公式轉換成圖示顯示的小程序。它不僅能將魔方公式轉換成圖示顯示，而且能在公式轉圖示顯示的同時生成鏡像公式、逆向公式及其相應的圖示。可以這麼說，有了圖示三階魔方公式轉換助手，你學起三階魔方來會方便很多。那麼問題來了，究竟有多方便呢？
  • 快速分離數據中的單位,怎麼能少了函數LEN和LENB的幫助?
    身份證號碼信息的提取和郵箱地址中的重要信息提取都是現實中頗為常見的問題，所以用excel函數來解決這類問題還是十分實用。今天我們的內容還是以三大文本處理函數（mid、right、left）為基礎，介紹引入新的函數，將新函數的運用方法和三大文本處理函數的用法充分結合起來，然後通過實例的方式進行充分的展示。
  • Excel單元格英文大小寫和句首字母大小寫怎麼轉換?
    在工作中，我們有時需要將一些英文數據轉換為大寫或者小寫，一個一個修改可就太費事兒了，那有什麼辦法能快速進行轉換嗎？其實很簡單，一個公式就能輕鬆搞定！單詞首字母轉換為大寫將每個英文單詞的首字母轉換為大寫，Excel非常公平地為大家準備了一個函數—PROPER，公式同上。
  • Excel表格中的數字如何快速變成中文大寫數字?
    如果碰到需要將表格中的數字變成中文大寫數字的時候，應該如何操作才能快速實現呢？這個功能較常見用會計，如果您對該功能感興趣的話，不妨看看下文。打開Excel表格，選擇表格中的需要處理的數字區域，如圖所示，然後右鍵單擊選區，在彈出的菜單中選擇設置單元格格式命令。
  • 圖片轉文字識別軟體推薦?快速識別文字軟體哪款好
    圖片轉文字識別軟體推薦？生活中，我們有太多的時候需要對圖片進行文字識別、轉換操作了。迅捷文字識別軟體是一款圖片轉文字、ocr拍照取字與翻譯軟體，通過它使用手機就可以實現拍圖識字、照片掃描等操作。下面，我們一起來看看這款快速識別文字軟體好用在哪幾個方面吧。
  • Excel怎麼提取大小括號或符號內的數字
    在下圖中就寫了三種方法，其中CTRL+E智能填充是最快捷的，但低版本的excel並沒有智能填充這個功能，因此我們可以使用後面兩個方法。    如下圖所示，在E1單元格輸入了公式：=MID(A1,FIND("[",A1,1)+1,FIND("]",A1,1)-2)，它的含義是提取單元格裡指定位數的字符串，這就是mid函數的作用，而find函數的作用是返回查找字符在字符串中的位置，如」[「位於單元格字符串的第1
  • Excel怎麼快速製作拼音田字格?快速製作,批量列印
    練字是學校教學一直強調的重點之一，怎麼製作拼音田字格供學生使用呢？用我們最熟悉的Excel就可以輕鬆製作拼音田字格並快速列印。第一步全選單元格後，右鍵單擊任意一列，點擊右鍵菜單中的列寬。重點是單元格的縱向填充需要注意，否則拼音單元格的高度無法複製。點擊關注、轉發和收藏，有更多計算機小技巧等著您來發現。
  • PDF文檔翻譯神器,英文文獻一鍵翻譯成中文!
    那麼，怎麼把英文pdf翻譯成中文？英文文獻翻譯軟體哪個更好用呢？下面我們就來分享一下英文pdf翻譯成中文的方法。在自身英語水平不足的情況下，我們還是藉助翻譯工具來實現快速將英文pdf翻譯成中文，節約時間。當然啦，由於是學術性的文獻，對翻譯的準確度和專業性要求會比較高，而我們今天使用的這個翻譯工具——翻譯狗，就可以滿足需求。
  • 怎麼把中文轉英文?中文轉換成英文的超簡單方法
    對於會說英語的小夥伴來說，將中文轉換成英文非常簡單，但是如果你英語不好又需要將中文翻譯成英文該怎麼辦呢？別著急，中文轉英文實用又簡單的方法就在下面。今日主題：中文轉英文簡單方法使用工具：語音翻譯器（手機APP）操作方法：①打開軟體；②選擇翻譯模式；③設置翻譯語言；④開始翻譯操作方法雖然很簡單，但我們還是來看一遍具體的操作的流程吧：1、打開手機中已經安裝好語音翻譯器工具；2、在【語音翻譯】與【文本翻譯】功能中選擇一個翻譯模式，如「語音翻譯」；3、設置好翻譯的源語言及目標語言（軟體默認的翻譯就是為中文翻譯英文
  • 5個函數公式加一個Excel技巧,完美提取數字,一鍵提取更牛
    日常工作中，我們經常會收到一些這樣的Excel文件：文本其中包含了中文、字母、數字，而且都堆積到一個單元格內。但是，我們想要的只有數字。那麼，我們應該如何快速將數字提取出來呢？今天小編就分享5個函數公式和1個快捷鍵來完成提取數字。小編覺得最後一個快捷鍵提取更牛、更方便。　　一、提取文本左側數據
  • 中文拉丁化的嘗試——威陀瑪拼音、郵政式拼音、拉丁化新文字
    拉丁化又稱羅馬化，就是把一個語言音譯或轉錄成羅馬字母的過程。在大家初學日語歌的時候，都搜到過日語的羅馬字吧，它就是日語的羅馬化。你可以百分之百地憑藉羅馬字去重組成日語的假名音節。大家遇到在英語課本上都見過Kim這個人吧，長著一幅亞洲面孔，翻譯成「金」，這就是佔韓國人口20%的金姓。你猜得沒錯，Kim就是韓語的羅馬化。
  • 李亞濤:python中文如何轉換成拼音?
    大家好，今天給大家分享一個我之前寫程序遇到的一個問題，就是我在採集某房產信息的時候，由於欄位非常多，有將近100多個，而且很多欄位是相互關聯的我採集是直接導入到資料庫，為了防止重複，以及設置一個唯一的索引，需要把中文轉換為拼音再進行拼接才比較方便
  • 英語如何翻譯成中文?語音翻譯器幫你快速翻譯
    可如果除了中文其它語言都不會，該如何實現語言翻譯呢？不要著急不要慌，超簡單的方法這就送上，以英語翻譯成中文為例，教你一招快速搞定多國語言相互翻譯，還不快看！使用工具：語音翻譯器（手機APP）軟體功能：可完成多國語言相互翻譯，支持語音翻譯及文本翻譯，並有語音朗讀功能。