如何判断手机号及邮箱，并将值剪切至同一行的其他列？

cws1123 · 发表于 2015-8-31 23:05

如何判断手机号及邮箱，并将值剪切至同一行的其他列？谢谢。

huang1314wei · 发表于 2015-9-1 07:13

Sub text()
Dim arr, i%
arr = Range("A1").CurrentRegion
For i = 2 To UBound(arr)
If Len(Trim(arr(i, 1))) = 11 And Left(Trim(arr(i, 1)), 1) = "1" Then arr(i, 2) = arr(i, 1)
If InStr(arr(i, 1), "@") Then arr(i, 3) = arr(i, 1)
Next
Range("A1").CurrentRegion = arr
End Sub

复制代码

huang1314wei · 发表于 2015-9-1 07:14

剪切.rar (14.9 KB, 下载次数: 10)

		自动登录	找回密码
密码			免费注册

最新热点 /1