excel怎么删除空白单元格，就是右边的数据往左移动，填补空白单元格

在新的一列使用条件合并公式，if(b="",b&c,b);然后在将合并后所得的值粘贴数值到B列，即可。

CTRL+G--定位条件--空值

Sub blank()
Dim I, J, K, L, M As Integer
For I = 1 To 10
K = 0
L = 0
M = 0
For J = 1 To 10
If Cells(I, J) = "" Then K = K + 1
If Cells(I, J) <> "" Then L = L + 1
If L > M Then
Cells(I, L).Value = Cells(I, K + L).Value
If K > 0 Then Cells(I, K + L).Value = ""
M = L
End If
Next J
Next I
End Sub

I 的循环次数是你数据范围的总行数，
J的循环次数是你数据范围的总列数。