曼城足球论坛技术论坛

找回密码
收费注册

QQ登录

只需一步,快速起头

EH寻求
EH技术汇-专业的职场才具充电站 妙哉!函数段子手意见意义讲函数 足球办事器-会足球,做管理系统 足球 Home精品图文教程库
足球不给力? 何不试试FoxTable! 足球 2016函数公式学习大典 Office知识技巧收费学 制造中央竞争力的职场宝典
Tableau-数据可视化工具 曼城足球论坛出品 - VBA代码宝收费下载
你的足球 2010实战技巧学习锦囊 不能自休, 过目难忘的 Office 新界面 足球 VBA典范代码施行指南
检察: 65 | 回复: 5
打印 上一主题 下一主题

提取excel表中两列数据中的手机号并到一列但要踢出座机

[复制链接]

TA的精华主题

TA的得分主题

跳转到指定楼层
1
颁发于 2020-10-7 15:31 | 只看该作者 回帖夸奖 | 倒序赏玩 | 阅读形式
如何提取excel表中两列数据中的手机号并到一列但要踢出座机

提取手机号并到一列.zip

15.51 KB, 下载次数: 6

TA的精华主题

TA的得分主题

2
颁发于 2020-10-7 17:01 | 只看该作者
Sub 按钮1_Click()
Dim ar As Variant
Dim br()
ar = Sheet1.[a1].CurrentRegion
ReDim br(1 To UBound(ar) * 20, 1 To 1)
For i = 2 To UBound(ar)
sl = Len(Trim(ar(i, 1)))
If sl = 11 Then
n = n + 1
br(n, 1) = ar(i, 1)
End If
If Trim(ar(i, 2)) <> "" Then,足球社区互动。
ar(i, 2) = Replace(ar(i, 2), " ", "")
If InStr(ar(i, 2),足球社区互动。 ";") = 0 Then
sl = Val(Left(Trim(ar(i, 2)),足球社区互动。 1))
If sl = 1 Then
n = n + 1
br(n, 1) = ar(i, 2)
End If
ElseIf InStr(ar(i, 2),足球直播论坛。 ";") > 0 Then
rr = Split(ar(i, 2),007足球论坛。 ";")
For s = 0 To UBound(rr)
sl = Val(Left(Trim(rr(s)), 1)),足球交流论坛。
If sl = 1 Then
n = n + 1
br(n, 1) = rr(s),球迷007足球论坛。
End If
Next s
End If
End If
Next i
With Sheet2
.[a1].CurrentRegion = Empty
.[a1].Resize(n, 1) = br
End With
MsgBox "ok!"
End Sub

TA的精华主题

TA的得分主题

3
颁发于 2020-10-7 17:02 | 只看该作者
原先问题很粗略,只能采取一个折中的措施来处置惩罚,最火的足彩论坛。影响代码的片段,但是由于B列有大宗空格。

TA的精华主题

TA的得分主题

4
颁发于 2020-10-7 17:03 | 只看该作者

TA的精华主题

TA的得分主题

5
楼主 | 颁发于 2020-10-8 00:05 | 只看该作者

TA的精华主题

TA的得分主题

6
楼主 | 颁发于 2020-10-8 00:08 | 只看该作者
您需要登录后才没关系回帖 登录 | 收费注册

本版积分规则

存眷官方微信,高效办公专列,每天发车

手机版|关于我们|接洽我们|曼城足球论坛

GMT+8, 2020-10-8 00:54, Processed in 0.0 second(s),足球论坛哪个火。 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

? 1999-2021 Wooffice Inc.

沪公网安备号 沪ICP备号

本论坛言论纯属颁发者私人意见,任何违反国度相关法律的言论。

快速回复 前往顶部 前往列表