[已解决]用vba 怎样能把 B5:B最后一个不为空的所有数的最前面的 8 变成9

qhllqhll

用vba 怎样能把 B5:B最后一个不为空的所有数的最前面的 8 变成9
例如：原来的
      b5=820000001
      b6=820000002
让其：b5=920000001
          b6=920000002
谢谢各位老师
888888.rar (8.61 KB, 下载次数: 10)

2012-11-12 10:15 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

lisachen

2012-11-12 10:47

1. Sub test()
   
2.     Dim arr, brr
   
3.     arr = Range("b5:b" & Range("b" & Rows.Count).End(3).Row)
   
4.     ReDim brr(1 To UBound(arr), 1 To 1)
   
5.     For x = 1 To UBound(arr)
   
6.         If Left(arr(x, 1), 1) = "8" Then
   
7.             brr(x, 1) = CDbl("9" & Right(arr(x, 1), 8))
   
8.         End If
   
9.     Next x
   
10.     Range("c5:c" & x + 3) = brr
    
11. End Sub

复制代码

跳转到最佳答案楼层

rebornxldeng

没必要用VBA,使用SUBSTITUTE的基本用法就可以解决了.

lisachen

1. Sub test()
   
2.     Dim arr, brr
   
3.     arr = Range("b5:b" & Range("b" & Rows.Count).End(3).Row)
   
4.     ReDim brr(1 To UBound(arr), 1 To 1)
   
5.     For x = 1 To UBound(arr)
   
6.         If Left(arr(x, 1), 1) = "8" Then
   
7.             brr(x, 1) = CDbl("9" & Right(arr(x, 1), 8))
   
8.         End If
   
9.     Next x
   
10.     Range("c5:c" & x + 3) = brr
    
11. End Sub

复制代码

qhllqhll

lisachen 发表于 2012-11-12 10:47

非常感谢帮我解决了一个大难题