VBA有关replace函数替换的问题，求高手解答。。。

抛锚贝壳

想把一列数组中2开头的数字都替换成数字21，但貌似replace这个函数只支持替换字符串，把数字改成文本格式后再运行也没有啥效果，请问如何做到？代码如下：
Sub tihuan()
Dim a%
  With Worksheets("Sheet1")
    a = .Cells(.Rows.Count, 1).End(xlUp).Row
  End With

  For Each cel In Range("A1:A" & a)
  If cel = "2*" Then
  cel.Value = Replace("2", "*", "1")
  End If
  Next cel

End Sub

replace是不是不认通配符。。。

1239793730

If Left(cel.Value, 1) = "2" Then
  cel.Value = "21" & Mid(cel.Value, 2, Len(cel.Value) - 1

..............................
If cel like "2*" Then

抛锚贝壳

谢啦~请问& Mid(cel.Value, 2, Len(cel.Value) - 1 啥意思，为什么－1

抛锚贝壳

奥，了改了。

crazy0qwer

抛锚贝壳 发表于 2015-12-1 15:49
奥，了改了。

去学习下 replace 的用法。
另外 % 表示的是整型变量，范围只有 -32,768 到 32,767 。 建议使用 long 长整型变量。

1. Sub tihuan()
   
2.     Dim A As Long
   
3.     With Worksheets("Sheet1")
   
4.         A = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.     End With
   
6.    
   
7.     For Each CEL In Range("A1:A" & A)
   
8.         If InStr(CEL, "2") = 1 Then
   
9.             CEL.Value = Replace(CEL.Value, "2", "21", , 1)
   
10.         End If
    
11.     Next CEL
    
12. End Sub

复制代码