Question

EXCEL VBA删除单元格部分内容

B4=ERTET#134#G
B5=FGFSD#13#4G
用VBA，先删除“#”
代码中输入1，表示保留第1个字符，结果是B4=E B5=F
代码中输入2，表示保留第2个字符，结果是B4=R B5=G

Answer 1

Sub Macro1()
'替换#为空
Cells.Replace What:="#", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
'替换#为空

a = InputBox("保留几位:")
Cells(4, 2) = Mid(Cells(4, 2), 1, a)
Cells(5, 2) = Mid(Cells(5, 2), 1, a)
End Sub

先删除#有意义吗，都保护一位数了，#就已经不包括在保留的范围内了。

追问

Cells(4, 2) = Mid(Cells(4, 2), 1, a)
Cells(5, 2) = Mid(Cells(5, 2), 1, a)
可不可以修改成（B4:B5）像这样的区域

追答

这不能改的，两个单元格的内容不一样，改了就乱了。

追问

"#"这样的符号整个表都被删除了，不是只删除B4和B5单元的吗？
a = InputBox("保留几位:")，这个对话框不要了，直接修改为默认值1。

追答

Sub Macro1()
Range("B4:B5").Replace What:="#", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells(4, 2) = Mid(Cells(4, 2), 1, 1)
Cells(5, 2) = Mid(Cells(5, 2), 1, 1)
End Sub

追问

代码中输入2，表示保留第2个字符，结果是B4=R B5=G

追答

Cells(4, 2) = Mid(Cells(4, 2), A, B)

A=从第几位开始保留
B=从A位开始保留几位数

Answer 2

'B1 填原始数据ERTET#134#G
'C1 用于存去#之后的数据
'F1 记录要保留字符的值，赋值给n
'D1是最终的结果
Range("C1") = Replace(Range("B1").Value, "#", "", 1)
n = Range("F1").Value
Range("D1").Value = Left(Range("C1").Value, n)

Answer 3

先选中需要替换的单元格，然后运行下面的代码。
Sub Macro1()
Dim ans As Integer
Dim rng As Range
Selection.Replace What:="#", Replacement:=""
ans = Application.InputBox("数字：", Default:=1, Type:=1)
If ans = False Then Exit Sub
For Each rng In Selection
rng = Left(rng, ans)
Next
End Sub

追问

代码中输入2，表示保留第2个字符，结果是B4=R B5=G
给出删除区域（不要手动选取），先删除“#”，再保留结果

Answer 4

我表示。。。函数不也可以解决么？