请教各位老师，怎么用vba替换“-以后的字符”为空，达到右表效果，谢谢。目前是Exc...

falwssk

请教各位老师，怎么用vba替换“-以后的字符”为空，达到右表效果，谢谢。目前是Excel替换功能用替换“-*”为空这样

做

lsc900707

1. Sub gj23w98()
   
2.     arr = [a1].CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
4.     For i = 1 To UBound(arr)
   
5.         m = m + 1
   
6.         If InStr(arr(i, 1), "-") Then
   
7.             brr(m, 1) = Split(arr(i, 1), "-")(0)
   
8.             brr(m, 2) = arr(i, 2)
   
9.         Else
   
10.             brr(m, 1) = arr(i, 1): brr(m, 2) = arr(i, 2)
    
11.         End If
    
12.     Next
    
13.     [f1].Resize(m, UBound(brr, 2)) = brr
    
14. End Sub

复制代码

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim reg As New RegExp
   
5.   With reg
   
6.     .Global = True
   
7.     .Pattern = "-.*"
   
8.   End With
   
9.   With Worksheets("sheet1")
   
10.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
11.     arr = .Range("a2:a" & r)
    
12.     For i = 1 To UBound(arr)
    
13.       arr(i, 1) = reg.Replace(arr(i, 1), "")
    
14.     Next
    
15.     .Range("f2").Resize(UBound(arr), 1) = arr
    
16.   End With
    
17. End Sub
    

复制代码

chxw68

详见附件。