[已解决][求助]请问如何删除一列中任意字符

bpao

大家好，刚开始学习VBA，有些函数不知道，特来请教，如何实现删除单元格中的任意字符，而不是用替换。

比如：第一行一列是12345 二行一列是987654321 这一列的中数字长度不同（相同也可以），如何实现删除每个单元格的前2个数字和删除第3，4个数字。

谢谢！

最佳答案

月排行榜 / 总排行榜

雨狐

2009-11-2 10:00

删除前两位：

Sub a()
Dim i%
For i = 1 To [a65536].End(3).Row
    Cells(i, 1) = Mid(Cells(i, 1).Value, 3, Len(Cells(i, 1)) - 2)
Next
End Sub

跳转到最佳答案楼层

雨狐

删除前两位：

Sub a()
Dim i%
For i = 1 To [a65536].End(3).Row
    Cells(i, 1) = Mid(Cells(i, 1).Value, 3, Len(Cells(i, 1)) - 2)
Next
End Sub

雨狐

替换第3位：（依此类推）

Sub a()
Dim i%
For i = 1 To [a65536].End(3).Row
    Cells(i, 1) = Replace(Cells(i, 1), Mid(Cells(i, 1), 3, 1), "", 1)
Next
End Sub

bpao

QUOTE:

以下是引用雨狐在2009-11-2 10:00:00的发言：

删除前两位：

Sub a()
Dim i%
For i = 1 To [a65536].End(3).Row
    Cells(i, 1) = Mid(Cells(i, 1).Value, 3, Len(Cells(i, 1)) - 2)
Next
End Sub

您好！谢谢！实验了一下，完全可以。追问个问题，现在VBA的框架可以构建，就是好多函数不知道怎么学习，从什么地方学习。就比如这个小程序的mid.