如何在 Excel 中僅從包含數字和文字的單元格中刪除文字?


如果您曾經需要處理 Excel 中的一些單元格混合文字和數字的資料,您就會知道區分這兩者有多麼困難。無論您是在處理調查資料、財務資料還是任何其他資料集,正確清理和整理資料都至關重要。在本教程結束時,您將全面瞭解可以用來成功完成此資料清理操作的多種策略。

僅從包含數字和文字的單元格中刪除文字

在這裡,我們將建立一個 VBA 模組,然後選擇單元格範圍來完成任務。因此,讓我們看看一個簡單的過程,瞭解如何在 Excel 中僅從包含數字和文字的單元格中刪除文字。

步驟 1

考慮一個 Excel 表格,其中您有一系列包含文字和數字的字串,類似於下圖。

首先,右鍵單擊工作表名稱並選擇“檢視程式碼”以開啟 VBA 應用程式。

右鍵單擊 > 檢視程式碼。

步驟 2

然後單擊“插入”並選擇“模組”,然後將以下程式碼複製到文字框中。

插入 > 模組 > 複製。

程式碼

Function OnlyNums(strWord As String)
   Dim strChar As String
   Dim x As Integer
   Dim strTemp As String

   strTemp = ""
   Application.ScreenUpdating = False
   For x = 1 To Len(strWord)
      strChar = Mid(strWord, x, 1)
      If Asc(strChar) >= 48 And _
         Asc(strChar) <= 57 Then
            strTemp = strTemp & strChar
      End If
   Next
   Application.ScreenUpdating = True
   OnlyNums = Val(strTemp)
End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target, Range("A1:B10")) Is Nothing Then Cancel = True
End Sub

步驟 3

然後使用 Alt + Q 關閉 VBA。然後單擊一個空單元格並輸入公式 =OnlyNums(A2),單擊回車,然後使用自動填充柄向下拖動。

結論

在本教程中,我們使用了一個簡單的示例來演示如何在 Excel 中僅從包含數字和文字的單元格中刪除文字,以突出顯示特定資料集。

更新於: 2023-09-08

274 次瀏覽

啟動你的 職業生涯

透過完成課程獲得認證

開始
廣告

© . All rights reserved.