点击这里查看首页

excel删除数字保留文本


来源:高中英语教学交流
发布时间:2013-02-04 18:05:00
查看次数:

内容提要:Excel工作表中删除数字只保留文本,是一个比较常见的例子。

excel删除数字方法一:

  Excel工作表中删除数字只保留文本,是一个比较常见的例子。

  如下图所示,A列的源数据有一些数字,而且这些数字在单元格中的位置是无序不固定的。如何删除数字,达到的效果如C列所示。

excel 删除数字

  在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删除数字方法二:WORD替换法


相关文章
·解决gmail不稳定的方法03-17
·一列数据轻松转换成多行多列02-05
·FinalData恢复在数码相机误删的相片08-07
·最安全的打开U盘的方法05-20
·内网穿透工具ngrok09-10
·使用光影魔术手修改相片格式教程10-29
·自动对一个文件夹下的N个word文件批量执行一个宏06-21
·快速创建以当前日期命名的文件夹05-15
·免魔法使用 New Bing 新方案03-18
·分类汇总后复制的问题05-27
最新文章
·一列数据轻松转换成多行多列02-05
·MPC-HC如何加速播放不变音调?01-06
·利用打印机迁移功能实现三个步骤快速批量安装所有网10-27
·视频号视频的四种下载方法07-07
·Win10系统开机启动文件夹在哪里?04-16
·十秒免工具激活windows 1002-25
·批量替换word文档中的第一行作为文件的文件名06-21
·自动对一个文件夹下的N个word文件批量执行一个宏06-21
·Win10电脑开机启动慢?教你只需三步,电脑开机速度快06-11
·连接打印机时需要输入用户名密码怎么办?05-15
阅读排行