[已解决]求助如何将指定列的数字后的某个字符去掉

jian82372387

求助：如何用VBA将B列中的数字加楼后面的楼字去掉，所需结果如C列所示。所需结果放回B列即可，C列只作展示需求而已。

最佳答案

月排行榜 / 总排行榜

cutecpu

2023-2-15 09:05

Sub demo()
  [b1:b999] = [SUBSTITUTE(b1:b999,"楼",,1+ISERR(--LEFT(b1:b999)))]
End Sub

跳转到最佳答案楼层

cutecpu

Sub demo()
  [b1:b999] = [SUBSTITUTE(b1:b999,"楼",,1+ISERR(--LEFT(b1:b999)))]
End Sub

jian82372387

cutecpu 发表于 2023-2-15 09:05
Sub demo()
   = [SUBSTITUTE(b1:b999,"楼",,1+ISERR(--LEFT(b1:b999)))]
End Sub

想请问一下为什么我在家里的电脑测试代码是可以用的，但是为啥拿会单位就不行了，B列所有结果都变成B1的值。家里的excel是2021版的，单位的是2010版的，具体是啥原因啊？？

cutecpu

jian82372387 发表于 2023-2-22 09:37
想请问一下为什么我在家里的电脑测试代码是可以用的，但是为啥拿会单位就不行了，B列所有结果都变成B1的 ...

1. Sub demo()
   
2.    a = Range([b1], [b1].End(4))
   
3.    For i = 1 To UBound(a)
   
4.       If IsNumeric(Left(a(i, 1), 1)) Then
   
5.          a(i, 1) = Replace(a(i, 1), "楼", "")
   
6.       End If
   
7.    Next
   
8.    [b1].Resize(i - 1) = a
   
9. End Sub

复制代码

jian82372387

cutecpu 发表于 2023-2-22 09:56

感谢