Question

excel 如何用函数去掉空白行 ！！求救，郁闷一天了！！

A B
红塔山 陕北

红塔山 海南

红塔山 广东

红塔山 贵州

如何利用函数将sheet1中$A$1:$B$4数据区域中的数据，按照顺序提取到 $C$1:$D$4中 并且 去掉空白行 ？？？

Answer 1

用函数删除空白行，应该配合排序操作，才能完成。
方法如下：
1、在数据区域外，找到一列空白列做助列，假设：AA列。
2、选中该列对应数据列的第一行所在单元格，假设数据列由第二行开始，那就选中：AA2
3、在其中输入公式：=IF(COUNTA(A2:Z2),ROW(),"")
4、向下拖拽公式到数据区域的最后一行，所对应的单元格。假设到：AA100
5、同时选中数据包括AA列在内的整个区域，比如选中：A2:AA100
6、选择菜单”数据“—”排序“，在出现的对话框中，选择以AA列为”主要关键字“，再选择”升序“，确定。
7、删除辅助列，也就是AA列的数据。

Answer 2

只要在C1内输入 =A1向右向下拖动复制公式即可。

全选C列并输入一上字符，按 Ctrl+回车，让其列均填充内容。再点A列或B列，数据-自动筛选，选择空白，全选，右键，删除，点数据-筛选-自动筛选，删除C列，完成任务。

Answer 3

在c1中输入=INDEX(a:a,SMALL(IF(a$1:$a$100<>"",ROW($1:$100),4^8),ROW(A1)))然后按ctrl+shift+回车,往下拖就可以了，同样在d2中输入=INDEX(b:b,SMALL(IF(a$1:$a$100<>"",ROW($1:$100),4^8),ROW(A1)))

Answer 4

EXCEL中没有实现你这个要求的内部函数。不过，如果你对VBA有一些了解，但不妨自己写一个特殊功能的宏。
写一段代码供参考：
Sub x()
Dim row As Range
Dim cell As Range

Dim i As Boolean

Dim r1 As Range
Dim r2 As Range
Dim sh1 As Worksheet

Set sh1 = ActiveSheet
Set r1 = sh1.Range("A1:B4")
Set r2 = sh1.Range("C1:D4")

r1.Copy r2

i = False
For Each row In r2.Rows
For Each cell In row.Cells
If Not (IsNull(cell) Or IsEmpty(cell)) Then
i = True
Exit For
End If
Next

If i Then
i = False
Else
row.Delete
End If
Next
End Sub
将以上代码写入到模块中，就可以当作宏来使用。

Answer 5

选中数据区，然后排序，将空行移到最前或最后，删除