用VBA删除Excel表中单元格中的空格

发布网友

我来回答

共3个回答

热心网友

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

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

热心网友

Sheets("sheet1").UsedRange.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp

热心网友

a= sheets("sheet1").usedrange.rows.count
for j=1 to 2676
For i = a To 1 Step -1
If Sheets("sheet1").Cells(i, j) = ""
ThenSheets("sheet1").cells(i,j).select Selection.Delete Shift:=xlUp
End If
Next i
next j