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

Question

a= sheets("sheet1").usedrange.rows.countFor i = a To 1 Step -1 If Sheets("sheet1").Cells(i, 1) = "" ThenSheets("sheet1").cells(i,1).select Selection.Delete Shift:=xlUp ' 删除空格，下方单元格上移End IfNext i此VBA只适用于A列，我的表格为A列至CXX列，请教EXCEL 高手上述VBA怎么改，所有的列都能删除空格?

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

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

Answer 2

Sheets("sheet1").UsedRange.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp本回答被提问者采纳

Answer 3

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本回答被网友采纳