求助大神！删除单元格字符串最后一位。谢谢

zh1518

我有一个工作表，里面100行。单元格里都是字符串连接，但是最后都有一个“，”  。如何删除单元格里字符串最后一个“，”。谢谢

lsc900707

温馨提示：把附件传上来吧。

Yalishanda30

分列即可，选 , 作为分裂符

zh1518

大神帮忙，删除每个单元格字符串最后一个“，”

Yalishanda30

在B2输入公式=MID(A1,1,FIND("，",A1)-1)往下拖

zh1518

Yalishanda30 发表于 2018-9-30 14:26
在B2输入公式=MID(A1,1,FIND("，",A1)-1)往下拖

我要用vba代码实现。谢谢

719404338

1. Sub t()
   
2. Dim i%
   
3. For i = 1 To [a65536].End(3).Row
   
4. Range("b" & i) = Mid(Range("a" & i).Value, 1, Len(Range("a" & i)) - 1)
   
5. Next
   
6. End Sub

复制代码

liulang0808

1. Sub 按钮1_Click()
   
2.     arr = [a1].Resize(Cells(Rows.Count, 1).End(3).Row)
   
3.     Application.ScreenUpdating = False
   
4.     For j = 1 To UBound(arr)
   
5.         If Right(arr(j, 1), 1) = "，" Then
   
6.             arr(j, 1) = Left(arr(j, 1), Len(arr(j, 1)) - 1)
   
7.         End If
   
8.     Next j
   
9.     [b1].Resize(UBound(arr)) = arr
   
10.     Application.ScreenUpdating = True
    
11. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

Yalishanda30

试试看吧，，，