Question

有人可以在Excel宏中帮助我吗？

我需要在之前定义的2个单词之间进行选择并将其删除..

例如：
“http：/ ertwertw4r！％！+ 53445433333 / cat.jpg有一只狗”

我需要选择“http：”中的文字直到“.jpg”并将其删除或替换为“”，因为我只需要“有一只狗”字样......

Answer 1

试试这个：

Dim firstStr As String
Dim secondStr As String
Dim Str As String

Dim pos1 As Integer
Dim pos2 As Integer

firstStr = "http:"
secondStr = ".jpg"


For i = 1 To 500

    Str = Cells(i, 1) ' here i represents row, and 1 means first column

    pos1 = InStr(UCase(Str), UCase(firstStr))
    pos2 = InStr(UCase(Str), UCase(secondStr))

    If pos1 = 0 Or pos2 = 0 Then
        ' MsgBox "Something goes wrong"
    Else
        StringToDelete = Mid(Str, pos1, pos2 - pos1 + Len(secondStr))
        finalString = Replace(Str, StringToDelete, "")
        ' MsgBox finalString
        Cells(i, 1) = finalString
    End If

Next i

Excel宏选择2个特定单词

1 个答案: