如何提取指定单元格信息内容

xslxslxsl · 发表于 2023-5-13 10:38

本帖最后由 xslxslxsl 于 2023-5-13 10:55 编辑

有一批数据，打算提取手机号码及指定信息内容，该如何处理，请大家指教，谢谢！

静听溪流 · 发表于 2023-5-13 10:54

=IF(COLUMN(A1)=1,INDIRECT("a"&5*ROW()-8)&"",TRIM(RIGHT(SUBSTITUTE(INDIRECT("a"&ROW()*5-5)," ",REPT(" ",99)),99)))

准提部林 · 发表于 2023-5-13 12:11

兩個要求一起//
Sub TEST_A1()
Dim Arr, Brr, A, i&, K%, N&
Arr = Range([a1], [a65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 3)
For i = 1 To UBound(Arr)
If IsNumeric(Arr(i, 1) & "") Then
   N = N + 1: K = 1
   Brr(N, 1) = Arr(i - 1, 1)
   Brr(N, 2) = Arr(i, 1)
End If
For Each A In Split(Arr(i, 1), " ")
      If K = 1 And A Like "信息4：*" Then Brr(N, 3) = A: K = 0
Next
Next i
[f2].Resize(N, 3) = Brr
End Sub

准提部林 · 发表于 2023-5-13 12:12

審核中...看圖

taller · 发表于 2023-5-13 12:14

xslxslxsl · 发表于 2023-5-13 14:09

静听溪流发表于 2023-5-13 10:54
=IF(COLUMN(A1)=1,INDIRECT("a"&5*ROW()-8)&"",TRIM(RIGHT(SUBSTITUTE(INDIRECT("a"&ROW()*5-5)," ",REPT(" ...

谢谢，非常感谢！

xslxslxsl · 发表于 2023-5-13 14:10

准提部林发表于 2023-5-13 12:12
審核中...看圖

非常感谢！感谢指教。

xslxslxsl · 发表于 2023-5-13 14:10

taller 发表于 2023-5-13 12:14

非常感谢。学习学习！

cyq4896 · 发表于 2023-5-13 14:19

看看可以吗

xslxslxsl · 发表于 2023-5-13 15:29

cyq4896 发表于 2023-5-13 14:19
看看可以吗

可以的，谢谢啦

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

[求助] 如何提取指定单元格信息内容