VBA提取混合数据中的英文字母

imagicgyj

各位大神，以下代码可以帮忙看看还有啥办法可以优化下速度，现测试下来10000个用时4分30秒，感谢!


Sub ExtractEnglishLetters()
    Dim rng As Range
    Dim cell As Range
    Dim result As String
    Dim i As Integer
    Dim char As String
   
    ' 设置要处理的范围，例如从B2到B10000
    Set rng = Range("B2:B1000")
   
    ' 遍历范围中的每个单元格
    For Each cell In rng
        result = ""
        ' 遍历单元格中的每个字符
        For i = 1 To Len(cell.Value)
            char = Mid(cell.Value, i, 1)
            ' 判断字符是否为英文字母
            If char >= "A" And char <= "Z" Or char >= "a" And char <= "z" Then
                ' 如果是英文字母，添加到结果字符串中
                result = result & char
            End If
        Next i
        ' 将结果字符串写入到A列对应的单元格中
        cell.Offset(0, -1).Value = result
    Next cell
End Sub

65861954

上传附件。字符处理最好用正则表达式。

ykcbf1100

AI写的代码运行速度总是慢一些的，因为没有特别要求，总是直接对单元格操作。
还是说下需求，写个新的代码吧。

gwjkkkkk

用数组，速度应该能大大提高。

gwjkkkkk

Sub ExtractEnglishLetters()

    Dim char As String
    Dim result As String
    ar = Range("B2:B1000").Value
   
    For Each element In ar
        For i = 1 To Len(element)
            char = Mid(element, i, 1)
            If Asc(char) >= 65 And Asc(char) <= 122 Then
                result = result & char
            End If
        Next i
    Next
    MsgBox result
End Sub

imagicgyj

B列中数据还会不停的添加进取，看看还有啥好办法可以提速，或则第一次处理完后有新的数据添加后只处理新添加的。

imagicgyj

65861954 发表于 2024-4-2 19:21
上传附件。字符处理最好用正则表达式。

B列中数据还会不停的添加进取，看看还有啥好办法可以提速，或则第一次处理完后有新的数据添加后只处理新添加的。

1245752336

参与一下

Sub ExtractAlp()
    Dim i As Long, arr As Variant, mat, reg As Object
    Set reg = CreateObject("VBScript.Regexp")
    Range("A1") = "Result"
    With reg
        .Global = False
        .Pattern = "[A-Za-z]{1,}"
    End With
   
    arr = Range("B1").CurrentRegion
    For i = 2 To UBound(arr)
        Set mat = reg.Execute(arr(i, 2))
        If mat.Count > 0 Then arr(i, 1) = mat(0).Value
    Next i
    Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
   
End Sub

shiruiqiang

代码还加密，下次论坛老师写好了也加密算了

imagicgyj

1245752336 发表于 2024-4-2 21:32
参与一下

Sub ExtractAlp()

感谢，效果很好！