如何用vba代码去除IP地址中无意义的0？

作者：绿色风分类：时间：2022-08-17 浏览：89

楼主
kevinchengcw

Q: 如何用vba代码去除IP地址中无意义的0？
A: 代码如下：
方法1: 拆分成数组取实际值方法

Sub test()
Dim Arr, ArrT, N&, I%
Arr = Range("a2", Cells(Rows.Count, 1).End(3)).Value '源数据放入数组
For N = LBound(Arr) To UBound(Arr) '循环数组各项
ArrT = Split(Arr(N, 1), ".") '将当前ip地址拆分放入数组
For I = LBound(ArrT) To UBound(ArrT) '循环拆分后数组各项
ArrT(I) = Val(ArrT(I)) '去除当前项无意义的0(取实际值方法)
Next I
Arr(N, 1) = Join(ArrT, ".") '重新组合放回数组
Next N
[c2].Resize(UBound(Arr)) = Arr '写到目标区域中
End Sub

方法2: 正则去除无意义0

Sub test2()
Dim Arr, N&
Arr = Range("a2", Cells(Rows.Count, 1).End(3)).Value '将源数据装入数组中
With CreateObject("vbscript.regexp") '创建正则项目
.Global = True '全局有效
.Pattern = "(^|\.)0+(?=\d)" '规则为开关或.后面的一个或多个0,并且保留后面一位数字(此处考虑三个0的情况而设置)
For N = LBound(Arr) To UBound(Arr) '循环数组各项
Arr(N, 1) = .Replace(Arr(N, 1), "$1") '替换掉无意义的0
Next N
End With
[d2].Resize(UBound(Arr)) = Arr '数据写入目标区
End Sub

2楼
gouweicao78

今天在微博上被问到这个问题：
也可用公式法：如何去掉IP地址中多余的前导0？
http://www.exceltip.net/thread-28826-1-1.html

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表