字符串处理问题。。我脑子快秀逗了求助。。。

anyunti · 发表于 2020-1-9 20:42

给某个位置的字符后面插入*号
详见附件

求指教

字符串处理.zip (8.34 KB, 下载次数: 8)

anyunti · 发表于 2020-1-9 21:11

ivccav · 发表于 2020-1-9 21:45

字符串处理.zip (13.69 KB, 下载次数: 6)

anyunti · 发表于 2020-1-9 22:04

ivccav 发表于 2020-1-9 21:45

3333333QQQ
我一直纠结的是用循环添加*
可是字符数量会变就晕了
不知道Characters这个函数。
谢谢指教

excel海 · 发表于 2020-1-9 23:10

Sub test1()
Dim s, arr, i, r
ReDim ss(2 To 4)
Sheet1.Activate
For i = 2 To 4
      s = Cells(i, 1).Value
      arr = Split(Cells(i, 2).Value, ",")
      ss(i) = cst(s, arr)
Next
      For i = 0 To UBound(arr)
      r = arr(i)
      If r <= Len(s) Then
         s = Mid(s, 1, r + i) & "*" & Right(s, Len(s) - r - i)
      Else
         s = s & "*"
         Exit For
      End If
Next
Cells(2, 3).Resize(UBound(ss) - LBound(ss) + 1) = Application.Transpose(ss)
End Sub

micch · 发表于 2020-1-10 00:49

用循环要倒着插入，先插入右侧的位置，所以B列split为数组后，应该for i = ubound(split(b2)) to 0 step -1 循环插入就可以了，不会影响位置

anyunti · 发表于 2020-1-12 11:18

micch 发表于 2020-1-10 00:49
用循环要倒着插入，先插入右侧的位置，所以B列split为数组后，应该for i = ubound(split(b2)) to 0 step -1 ...

谢谢指导

anyunti · 发表于 2020-1-12 11:19

excel海发表于 2020-1-9 23:10
Sub test1()
Dim s, arr, i, r
ReDim ss(2 To 4)

谢谢哦

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

[求助] 字符串处理问题。。我脑子快秀逗了求助。。。

评分

最新热点 /1

[求助] 字符串处理问题。。我脑子快秀逗了 求助。。。

评分

最新热点 /1

[求助] 字符串处理问题。。我脑子快秀逗了求助。。。