去除字符串最后一位是特定字符的代码

鄂龙蒙 · 发表于 2017-3-21 18:17

请教：去除字符串最后一位是特定字符的代码，怎么写？如：字符串最后一个字符是“x”则去除，否则保留原字符
abcdefx 则去掉“x” abcdef
abcdef123 则保留原字符 abcdef123
谢谢！

lr116529111 · 发表于 2017-3-21 18:32

abcdefxxx 则去掉“x” abcdef
abcxdef123 则保留原字符 abcxdef123
是这个意思吗？

鄂龙蒙 · 发表于 2017-3-21 18:43

lr116529111 发表于 2017-3-21 18:32
abcdefxxx 则去掉“x” abcdef
abcxdef123 则保留原字符 abcxdef123
是这个意思 ...

去除字符串最后一位是特定字符

zax010 · 发表于 2017-3-21 18:49

本帖最后由 zax010 于 2017-3-21 20:57 编辑

Sub zz()
For i = 1 To [a65536].End(3).Row
      If Right(Cells(i, 1), 1) = "x" Then
         Cells(i, 2) = Left(Cells(i, 1), Len(Cells(i, 1)) - 1)
      Else
         Cells(i, 2) =Cells(i, 1)
      End If
Next
End Sub

Book1.rar (6.52 KB, 下载次数: 3)

lsc900707 · 发表于 2017-3-21 19:20

Sub lsc()
arr = ActiveSheet.[a1].CurrentRegion
For i = 1 To UBound(arr)
      If Cells(i, 1) Like "*x" Then
         Cells(i, 2) = Left(Cells(i, 1), Len(Cells(i, 1)) - 1)
      Else
         Cells(i, 2) = Cells(i, 1)
      End If
Next
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 去除字符串最后一位是特定字符的代码

评分

评分

最新热点 /1