用宏查找含有特定文字的单元格，并读取特定内容之后的文本到新的区组成表格

yxz5473

用宏查找含有特定文字的单元格，并读取特定内容之后的文本到新的区组成表格

A1233515

附件供参考

3190496160

Sub tiqu()
Dim ar As Variant
Dim br()
m = 4
With Sheet1
    .Columns("e:f") = Empty
    For j = 1 To 3
        If j <> 2 Then
            m = m + 1
            n = 0
            If j = 1 Then
                tj = "电话："
            ElseIf j = 3 Then
                tj = "姓名："
            End If
                r = .Cells(Rows.Count, j).End(xlUp).Row
                ar = .Range(.Cells(2, j), .Cells(r, j))
                For i = 2 To UBound(ar)
                    If InStr(ar(i, 1), tj) > 0 Then
                        n = n + 1
                        ReDim Preserve br(1 To n)
                        dh = Split(ar(i, 1), tj)(1)
                        br(n) = dh
                    End If
                Next i
                .Cells(1, m).Resize(n, 1) = Application.Transpose(br)
        End If
    Next j
End With
MsgBox "ok!"
End Sub

3190496160

yxz5473

3190496160 发表于 2021-2-10 09:57

3190496160您好：感谢！非常感谢，过年好！