Excel中,如何去掉空的单元格,把有内容的排在一起?

亲，你这实际上是合并两个（或多个）Sheet的数据，顺带着把空行去掉。

一般情况下，多个Sheet是需要用VBA处理的。否则你就按平阳虎的方法手工操作一下。

VBA代码如下：

Sub hb()
Dim sh, i, r, n As Long
n = 2
For sh = 1 To Sheets.Count
    If Sheets(sh).Name <> ActiveSheet.Name Then
        r = Sheets(sh).Range("A" & Rows.Count).End(xlUp).Row
        Sheets(sh).Range("A2:D" & r).Copy Range("A" & n)
        n = n + r
    End If
Next
r = Range("A" & Rows.Count).End(xlUp).Row
For i = r To 2 Step -1
    If Range("A" & i) = "" Then Rows(i).Delete Shift:=xlUp
Next
End Sub

如图片中，将【代表Sheet2】的G2:J9区域复制粘贴到【代表Sheet1】的B5，然后选定B:E四列中的任一列，按Ctrl+G，点击“定位条件——空值——确定”，在右键菜单中点击“删除——下方单元格上移——确定”。

不需要用公式，用数据排序就可。
但在正常情况下，中间整行出现空格，空格下面的内容就不会参与排序。
怎么办呢？如你发的图所示：在A列中添加内容，如1、2、3。。。。往下拉，然后选定纸条类型，或规格，单击数据--升序或降序即可，空行的内容就全部到下面去了

选中数据区域,按F5,定位条件>空值,确定,然后再右键删除

排序排一下，把空白的删除就行