提取EXCEL中一列字符串中的数字部分

来源：百度文库编辑：神马文学网时间：2024/05/04 02:18:57

其实是很简单的……高手就不用看了……主要是实用，菜鸟随手就能用上今天在做一个给客户优惠的录入项目，一年一度要受的苦同事给的是一列如“美元优惠结售汇中间价80个点”的数据，而我就要其中的“80”，近千个，一个个输与核对要60分钟。手工输入自非我EXCELHOME会员本色，但是貌似EXCEL无现成函数，如果要动用数组函数环环嵌套也十分麻烦，不过我眉头一皱，计上心来何不用无限强大的VBA呢，指导思想就是遍历每个非空单元格，逐个检查单元格内容的每个字符，如果是数字则抓出来。以下是代码你可以将它复制到VB编辑器里对应SHEET的代码栏位，然后启用宏，并将安全等级调至中，使用时直接双击你要转换的那列第一格即可…… Public k
Sub getnumber()
Dim i As Integer
Dim p As Integer
Dim j As Integer
Dim ggg As String
For i = 2 To [A65536].End(xlUp).Row
   p = Len(Cells(i, k))
   ggg = ""
   For j = 1 To p

   If IsNumeric(Mid(CStr(Cells(i, k)), j, 1)) = True Then                     '所以说关键时ISNUMERIC个函数省去不少麻烦，如果自己写估计要逐个判断ASCII码表咯。
   ggg = ggg & Mid(CStr(Cells(i, k)), j, 1)

   End If

   Next
   Cells(i, k) = ggg
Next
End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    '主要实现双击那列第一格才呼叫 GETNUMBER的过程
If Target.Row = 1 Then
k = Target.Column
Call getnumber
End If
End Sub

提取EXCEL中一列字符串中的数字部分 excel中如何在后一列中自动生成前一列的两月后的日期在文本字符串中提取数值 - Qzone日志在Excel中双击填充柄就可以填充一列Excel 在Excel中双击填充柄就可以填充一列Excel. 利用Excel从文件夹中提取所有文件名Excel 部分成语中的数字含义部分成语中的数字所指把Excel中数字变元角分 excel中从身份证中提取出生年月日_ 在WORD、EXCEL和PPT中插入和提取FLASH 在WORD、EXCEL和PPT中插入和提取FLASH 在WORD、EXCEL和PPT中插入和提取FLASH 让EXCEL自动从身份证号中提取出生日期和性别从Word和Excel文件中提取Flash 让EXCEL自动从身份证号中提取出生日期和性别利用Excel从文件夹中提取所有文件名 excel中如何为中文数字排序 EXCEL?身份证号提取信息如何将excel 两列变成一列？*** excel中如何设置使单元格中的数字不重复？ - 中国下载站 - 缔造综合实用型下载资源之... 漫谈.NET开发中的字符串编码 - bitfan（数字世界一凡人）的专栏 - CSDN博客数字转换成字符串库函数在WORD、EXCEL和PPT中插入和提取FLASH_轨迹