去除开头指定字符

cz_jie · 发表于 2021-5-12 23:35

r = Cells(Rows.Count, "DD").End(3).Row
Arr = Range("DD1:DD" & r)
For i = 1 To UBound(Arr)
s = Arr(i, 1)
If Right(s, 1) = "+" Then s = Left(s, Len(s) - 1)
Arr(i, 1) = s
Next
[DD1].Resize(UBound(Arr)) = Arr

上面代码是去除尾端+号的，想修改成开头是+号去除+号

麻烦老师们帮帮忙修改一下，在此感谢

lmgz007 · 发表于 2021-5-13 00:06

Right、Left对调
If Right(s, 1) = "+" Then s = Left(s, Len(s) - 1)
修改为 If Left(s, 1) = "+" Then s = Right(s, Len(s) - 1)

microyip · 发表于 2021-5-13 02:06

Sub 去除首尾加号()
Dim nRow As Long, vData As Variant, oRegExp As Object, nRegExp As Long
With [DD1].Resize(Cells(Rows.Count, "DD").End(xlUp).Row)
vData = .Value
With CreateObject("Vbscript.RegExp")
.Global = True
.IgnoreCase = True
.Pattern = "(\++)?([^+]+)?"
For nRow = 1 To UBound(vData)
Set oRegExp = .Execute(vData(nRow, 1))
If oRegExp.Count > 0 Then
vData(nRow, 1) = Empty
For nRegExp = 0 To oRegExp.Count - 1
If nRegExp = 0 And oRegExp(nRegExp).submatches(0) Like "+*" Then
vData(nRow, 1) = oRegExp(0).submatches(1)
ElseIf oRegExp(nRegExp) Like "*+" Then
Exit For
Else
vData(nRow, 1) = vData(nRow, 1) & oRegExp(nRegExp).Value
End If
Next
End If
Next
End With
.Offset(, 1).Formula = vData
End With
End Sub

复制代码

microyip · 发表于 2021-5-13 02:12

方法二

Sub 去除首尾加号()
Dim nRow As Long, vData As Variant, oRegExp As Object, nRegExp As Long
With [DD1].Resize(Cells(Rows.Count, "DD").End(xlUp).Row)
vData = .Value
With CreateObject("Vbscript.RegExp")
.Global = True
.IgnoreCase = True
.Pattern = "(\++)?[^+]+"
For nRow = 1 To UBound(vData)
Set oRegExp = .Execute(vData(nRow, 1))
If oRegExp.Count > 0 Then
vData(nRow, 1) = Empty
For nRegExp = 0 To oRegExp.Count - 1
If nRegExp = 0 Then
vData(nRow, 1) = Replace(oRegExp(0), "+", "")
Else
vData(nRow, 1) = vData(nRow, 1) & oRegExp(nRegExp).Value
End If
Next
End If
Next
End With
.Offset(, 2).Formula = vData
End With
End Sub

复制代码

cjjhpc · 发表于 2021-5-13 05:47

Right改成left. Left改成right

shiruiqiang · 发表于 2021-5-13 06:21

If left(s, 1) = "+" Then s = right(s, Len(s) - 1)
照葫芦画瓢，将值的第一位减去

ggmmlol · 发表于 2021-5-13 14:57

r = Cells(Rows.Count, "DD").End(3).Row
Arr = Range("DD1:DD" & r)
For i = 1 To UBound(Arr)
If Arr(i, 1) Like "+*" Then Arr(i, 1) = Mid(Arr(i, 1), 2)
Next
[DD1].Resize(UBound(Arr)) = Arr

tspliu · 发表于 2021-5-13 16:15

Sub aa()
r = Cells(Rows.Count, "DD").End(3).Row
arr = Range("DD1:DD" & r)
For i = 1 To UBound(arr)
c = Split(arr(i, 1), "+", 2, 0)
If c(0) = "" Then arr(i, 1) = c(0) + c(1)
Next
[DD1].Resize(UBound(arr)) = arr
End Sub

yanjie · 发表于 2021-5-14 10:21

Sub yj23()
'基本操作：假设数据在A列，数据---分列---分隔符输入“+”......，把B列数据复制到A列---选择性粘贴---跳过空单元格---确定。
Dim rw As Long, rng As Range
Dim FirstStr As String
With Sheet1
.Activate
rw = .Cells(.Rows.Count, "DD").End(xlUp).Row
End With
Set rng = Range(Cells(1, "DD"), Cells(rw, "DD")).Find(what:="+*")
If Not rng Is Nothing Then
FirstStr = rng.Address
Do
rng.Value = Right(rng, Len(rng) - 1)
Set rng = Range(Cells(1, "DD"), Cells(rw, "DD")).Find(what:="+*", after:=rng)
If rng Is Nothing Then Exit Sub '如果找不到，退出。
Loop While Not rng Is Nothing And rng.Address <> FirstStr '如果rng不为nothing，地址为第1次的地址，就跳出循环。
End If
End Sub

复制代码

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

[求助] 去除开头指定字符

最新热点 /1