正则表达式 – 从一系列单元格中删除非数字字符
发布时间:2020-12-14 06:02:54 所属栏目:百科 来源:网络整理
导读:我有1500行excel文件. 在第一列中,我将字符与数字混合在一起(每一行都不同). 我想只留下数字并删除字母字符. 例如在A1中我有 f90f5j49,35.48 在我删除字母字符后应该是 905493548 做这个的最好方式是什么? 我确实找到了这个youtube solution 谢谢! 解决方
>我有1500行excel文件.
>在第一列中,我将字符与数字混合在一起(每一行都不同). >我想只留下数字并删除字母字符. 例如在A1中我有
在我删除字母字符后应该是
做这个的最好方式是什么? 我确实找到了这个youtube solution 谢谢! 解决方法
你的方法是正确的方法.
实现这一点的最快方法是使用 > a regexp 使用基于我的文章Using Variant Arrays in Excel VBA for Large Scale Data Manipulation的代码 Sub KillNonNumbers() Dim rng1 As Range Dim rngArea As Range Dim lngRow As Long Dim lngCol As Long Dim lngCalc As Long Dim objReg As Object Dim X() On Error Resume Next Set rng1 = Application.InputBox("Select range for the replacement of non-number","User select",Selection.Address,8) If rng1 Is Nothing Then Exit Sub On Error GoTo 0 'See Patrick Matthews excellent article on using Regular Expressions with VBA Set objReg = CreateObject("vbscript.regexp") objReg.Pattern = "[^d]+" objReg.Global = True 'Speed up the code by turning off screenupdating and setting calculation to manual 'Disable any code events that may occur when writing to cells With Application lngCalc = .Calculation .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False End With 'Test each area in the user selected range 'Non contiguous range areas are common when using SpecialCells to define specific cell types to work on For Each rngArea In rng1.Areas 'The most common outcome is used for the True outcome to optimise code speed If rngArea.Cells.Count > 1 Then 'If there is more than once cell then set the variant array to the dimensions of the range area 'Using Value2 provides a useful speed improvement over Value. On my testing it was 2% on blank cells,up to 10% on non-blanks X = rngArea.Value2 For lngRow = 1 To rngArea.Rows.Count For lngCol = 1 To rngArea.Columns.Count 'replace the leading zeroes X(lngRow,lngCol) = objReg.Replace(X(lngRow,lngCol),vbNullString) Next lngCol Next lngRow 'Dump the updated array sans leading zeroes back over the initial range rngArea.Value2 = X Else 'caters for a single cell range area. No variant array required rngArea.Value = objReg.Replace(rngArea.Value,vbNullString) End If Next rngArea 'cleanup the Application settings With Application .ScreenUpdating = True .Calculation = lngCalc .EnableEvents = True End With Set objReg = Nothing End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |