EXCEL VBA删除单元格部分内容

发布网友 发布时间：2022-04-19 23:04

我来回答

共4个回答

热心网友 时间：2022-05-27 12:45

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

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

热心网友 时间：2022-05-27 12:46

'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)

热心网友 时间：2022-05-27 12:46

先选中需要替换的单元格，然后运行下面的代码。
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
给出删除区域（不要手动选取），先删除“#”，再保留结果

热心网友 时间：2022-05-27 12:47

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