关于一个截取字符串的VBA，可以优化吗？

litso

各位大神好，
        我有一段关于截断字符串的VBA，但总感觉有什么不对，运行起来觉得有点慢，是代码那里不对吗？

Sub 截取字符串()
    Dim row As Integer
    Dim cloum As Integer
    Dim str As String
    Dim split_result As String
   
    '从第一行到有效的最后一行
    For row = 1 To ActiveSheet.UsedRange.Rows.Count
    '依次取第一列的每一个单元格，使用时修改为对应的列数
        str = ActiveSheet.Cells(row, 1).Value
        '判断单元格不为空且不为空字符串
        If Not (IsEmpty(str)) Then
            If str <> "" Then
                split_result = Split(str, "-")(0)
                ActiveSheet.Cells(row, 2).Value = split_result
               
            End If
        End If
    Next
End Sub

litso

顶起

chxw68

使用数组会快很多。

万事胜①

Sub bb()
    Dim arr, brr, i&
    arr = Me.UsedRange
    ReDim brr(1 To UBound(arr), 1 To 1)
    For i = 1 To UBound(arr)
        If Len(arr(i, 1)) > 0 Then
            brr(i, 1) = Split(arr(i, 1), "-")(0)
        End If
    Next
    [b1].Resize(UBound(brr)) = brr
End Sub

万事胜①

工作簿1.zip (15.61 KB, 下载次数: 6)

2023-3-3 16:02 上传

点击文件名下载附件

ykcbf1100

有”-“分隔符的，肯定是字串，不用判断。

litso

chxw68 发表于 2023-3-3 15:57
使用数组会快很多。

哗！~神速啊！~~~比我的快了不小倍

洋务德雷

这个用分列不就解决了吗？为啥要用vba？

tanglf188

字典+数组

sxbjzjf110