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

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

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

本文介紹excel刪除數字保留文本的兩種方法,通過使用VBA代碼和word替換法來刪除數字。

excel刪除數字方法一:

  Excel工作表中刪除數字只保留文本,是一個比較常見的例子。

  如下圖所示,A列的源數據有一些數字,而且這些數字在單元格中的位置是無序不固定的。如何刪除數字,達到的效果如C列所示。

  在excel中數字與文字共存的情況下,如果有規律,可以使用公式來分離字母、漢字、數字;如果沒有規律,比較理想的還是是用VBA來解決。

  下面是具體的excel刪除數字操作步驟:

  按ALT+F11,打開VBE編輯器,單擊插入——模塊,復制下面的代碼,然后按F5鍵運行,excel會自動將A列所有的內容刪除數字之后的結果提取放在C列。

Sub excel刪除數字()
Dim reg As Object ‘定義reg為一個對象
Dim arr ‘定義一個動態數組
Dim i As Long, j As Long ‘分別定義i,j為長整型
i = Range("A65536").End(xlUp).Row ‘把A列非空的最后行數賦予給i
Columns("C").ClearContents ‘清空C列
arr = Range("A1:A" & i) ‘把A列的數據賦予給數組arr
Set reg = CreateObject("VBscript.RegExp") ‘調用正則表達式
With reg ‘定義表達式
.Global = True ‘匹配所有搜索項
.ignorecase = True ‘不區分大小寫
.Pattern = "[0-9]" ‘數字的表達式
End With
For j = 1 To i ‘循環該區域
Range("C" & j) = reg.Replace(arr(j, 1), "") ‘進行根據模板替換字符串為空值
Next
End Sub

excel刪除數字方法二:WORD替換法

  將excel所有需要刪除數字的單元格區域內容復制到word文檔中,在查找替換框中輸入:^#,替換框保留空,不輸入任何內容,單擊“全部替換”。替換完畢,將數據再次復制到excel中。

分享到:
標簽:刪除 定義 數字 替換 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

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