Question

帮我在下面的代码中添加循环。到目前为止，代码复制仅从单元格“ 26002354”中的文本开始首先匹配。我希望它从一个单元格复制所有匹配项，然后将其复制到下一个单元格。

让我们说-在文本中我有树匹配项（一个单元格中的所有文本）： 26002354 26008541 26009841

所有这些我都需要排在右边。

Sub extract()
    Dim r As Long, dashpos As Long, m As Long
    Dim ws As Worksheet

    Set ws = Worksheets("Sheet1")
    m = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    For r = 2 To m
        dashpos = InStr(1, Cells(r, 1), "2600")
        Cells(r, 2).Value = Mid(Cells(r, 1), dashpos, 14)
        Cells(r, 3).Value = Mid(Cells(r, 1), dashpos, 14)
        Cells(r, 4).Value = Mid(Cells(r, 1), dashpos, 14)
    Next
End Sub

Answer 1

您的预期结果有点不清楚，但要从A列中包含“ 26002354 26008541 26009841”的B：D中获得三个8位数字，请使用Split。

<a href="tel:+123456789" onclick="gtag('event', 'click', { 'event_category': 'Phone', 'event_label': 'Header phone link' });">+123456789</a>

vba在找到文字后复制文字

1 个答案: