Note: The other languages of the website are Google-translated. Back to English

如何在Excel中將數字分解或拆分為單個數字?

假設您需要將數字分解或分解為單個數字,如下面的屏幕截圖所示,您可以怎麼做? 本文將為您提供兩種方法。

用公式將數字分解或拆分為單個數字
使用Kutools for Excel將數字分解或拆分為單個數字


用公式將數字分解或拆分為單個數字

本節將顯示一個公式,用於將選定的數字單元格拆分為Excel中的單個數字。

1.選擇一個空白單元格(例如單元格C1)以查找單元格A1中數字的第一個拆分數字,然後輸入公式 = MID($ A1,COLUMN()-(COLUMN($ C1)-1),1) 進入編輯欄,然後按 Enter 鍵。

備註:在公式中,A1是您需要拆分為數字的單元格,而C1是用於查找第一個拆分數字的單元格。 請根據需要更改它們。

2.繼續選擇單元格C1,然後將“填充手柄”拖動到右邊的單元格,直到單元格A1的所有數字都被拆分出來。

3.保持選中這些拆分數字單元格,然後將“填充手柄”向下拖動到這些單元格,直到將所有數字拆分為單獨的數字。 看截圖:


使用Kutools for Excel將數字分解或拆分為單個數字

分裂細胞 的效用 Excel的Kutools 幫助您輕鬆地一次將所有選定的數字單元格拆分成單個數字。 請執行以下操作。

申請前 Excel的Kutools首先下載並安裝.

1.選擇您需要拆分為數字的單元格,然後單擊 庫工具 > 合併與拆分 > 分裂細胞。 看截圖:

2。 在裡面 分裂細胞 對話框,請選擇 拆分為列 在選項 類別 部分,然後在“指定分隔符”部分中,選擇“指定寬度”,然後在文本框中輸入數字1。 點擊 OK 按鈕。

3.在接下來彈出 分裂細胞 對話框中,請指定一個空白單元格以查找第一個拆分數字,然後單擊 OK 按鈕。

點擊後 OK 按鈕,所選單元格中的所有數字將立即拆分為單獨的數字,如下圖所示。

  如果您想免費試用(30-day) 這個實用程序, 請點擊下載,然後按照上述步驟進行操作。


使用Kutools for Excel將數字分解或拆分為單個數字


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (12)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
嗨,請告訴我將多位數字組合為單個數字 exp 的公式:12345(在一個單元格內)自動計算為 1+2+3+4+5 = 6
網站主持人對此評論進行了最小化
Option Explicit
'主功能
函數 NumberToText(ByVal MyNumber)
暗計數
暗淡的結果
昏暗N長度
計數= 1
NLength = Len(MyNumber) + 1
Do While Count < NLength
結果 = Result & GetDigit(Mid(MyNumber, Count, Count)) & Space(1)
計數 = 計數 + 1
循環
NumberToText = 結果
函數結束

函數GetDigit(數字)
選擇案例值(數字)
案例 1:GetDigit = "One"
案例 2:GetDigit = “二”
案例 3:GetDigit = "三"
案例 4:GetDigit = "四"
案例 5:GetDigit = "五"
案例 6:GetDigit = "六"
案例 7:GetDigit = "七"
案例 8:GetDigit = "八"
案例 9:GetDigit = "九"
其他情況:GetDigit = "零"
最終選擇
函數結束


我正在嘗試將數字轉換為單詞以準備標記表。 例如:63 => 六三,但這不適用於 3 位數字 例如:798 => 七零八錯誤。 請幫忙
網站主持人對此評論進行了最小化
親愛的普里亞,
以下用戶定義的函數可以幫助您。

函數 NumberToText(ByVal xNum)
暗淡我只要
調暗 xTemp 只要
將 xStr 調暗為字符串
將結果暗淡為字符串
對於 I = 1 到 Len(xNum)
xTemp = 中 (xNum, I, 1)
選擇案例 xTemp
案例 1:xStr = "一"
案例 2:xStr = “二”
案例 3:xStr = "三"
案例 4:xStr = "四"
案例 5:xStr = "五"
案例 6:xStr = "六"
案例 7:xStr = "七"
案例 8:xStr = "八"
案例 9:xStr = "九"
其他情況:xStr = "零"
最終選擇
結果 = 結果 & xStr & 空格 (1)
下一頁
NumberToText = 結果
函數結束
網站主持人對此評論進行了最小化
如果數據採用以下格式怎麼辦?
DDD 1 2 3 4 5 6 7 8 9 10 11 12 13 14
1,2,3,5,15,12,11
12,10,13,11,5,2,4
1,5,7,4


需要從第一個單元格到標題編號下方的數字(即,如果我們有 1、1,5,11、1,5,11,則將答案放在 XNUMX、XNUMX、XNUMX 下方的單元格中)
網站主持人對此評論進行了最小化
最終文本:軸承,球; 類型:深槽,保持架材料:鋼,行數:單,內徑:30 MM,外徑:72 MM,寬度:19 MM,閉合類型:單屏蔽,承載能力:動態:29.6,靜態:16 KN,速度:13000 轉; 製造商零件編號 63 63 6306 Z SKF

我想在最終文本中找到“63 6306 Z SKF”,誰能指導我
網站主持人對此評論進行了最小化
嗨,賈根,
您上面顯示的最終文本位於一個單元格中? 或者您能否提供一個示例的屏幕截圖,顯示您到底想要做什麼?
網站主持人對此評論進行了最小化
親愛的主席先生,


bill no bill 日期 當事人名稱 項目名稱 實際數量
01 01-04-2019 abc 移動 20


ISKO XNUMX ROW ME LANA HAI



請 MADAD KIJIYE 非常非常重要
網站主持人對此評論進行了最小化
9310B82214332A 這不想以這種格式溢出到下一列 82214332A 怎麼辦
網站主持人對此評論進行了最小化
拆分數字公式是否可以在接收更改數據的單元格上工作,以便在源單元格更改時拆分數字自動更新?
網站主持人對此評論進行了最小化
Hi

我想獲得以下方面的幫助:

一個單元格的數字是 [1,1,1,2,2,3,4,1]

我想讓這個數字只導致另一個單元格來說明 [1,2,3,4]

這也意味著如果有一個 0,例如 [1,1,0,1,4,2]
然後我希望它看起來像 = [1,2,4]

親切的問候
SS
網站主持人對此評論進行了最小化
嗨,Stefan S,
請應用以下用戶定義函數來解決此問題。
1.將以下代碼添加到模塊(代碼)窗口後。
2.回到工作表,選擇一個單元格,輸入這個公式 =刪除複製品2(A1) 並按下 Enter 獲得結果的關鍵。
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/digits.png
Function RemoveDupes2(txt As String, Optional delim As String = ",") As String
    Dim x
    Dim arr()
    'Updateby Extendoffice 20221128
    Application.Volatile
    On Error Resume Next
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .Exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Exists("0") Then .Remove ("0")
        If .Count > 0 Then
            xCount = .Count
            ReDim arr(1 To xCount)
            i = 1
            For Each Key In .Keys
                arr(i) = Key
                i = i + 1
            Next

            For i = 1 To xCount - 1
                For j = i + 1 To xCount
                If arr(i) > arr(j) Then
                        temp = arr(i)
                        arr(i) = arr(j)
                        arr(j) = temp
                    End If
                Next j
            Next i

            RemoveDupes2 = Join(arr, delim)
        End If
    End With
End Function
網站主持人對此評論進行了最小化
親愛的水晶

感謝您的評論。 效果很好! 你是明星!

親切的問候
SS
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護