EXCEL VBA删除单元格部分内容答: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...