Excel如何设置,按照第一列上下两行数据不相同时,批量插入一行空白 50
5个回答
展开全部
打开需要处理的Excel表格,在最左边“编号”列下面空格依次输入1.5,2.5。然后选定这两格,向下进行横拉,一直到23.5.如下图。
选定 “编号”列1到23号为止,点击填充色,比如黄颜色,效果如图。
点击“编号”列进行选定,单击升序排序选项,选定扩展选定区域选项后单击确定。
显示结果如下图,选定“编号”这一列,单击“数据”选项下面的“筛选”选项。
在编号单元格上会出现一个下拉菜单单击如图,点击按颜色筛选,再点击无填充选项。
筛选结果如下,选取左边的数字并删除,再次点击筛选键,进行恢复,如下图。
结果新鲜出炉啦。
选定 “编号”列1到23号为止,点击填充色,比如黄颜色,效果如图。
点击“编号”列进行选定,单击升序排序选项,选定扩展选定区域选项后单击确定。
显示结果如下图,选定“编号”这一列,单击“数据”选项下面的“筛选”选项。
在编号单元格上会出现一个下拉菜单单击如图,点击按颜色筛选,再点击无填充选项。
筛选结果如下,选取左边的数字并删除,再次点击筛选键,进行恢复,如下图。
结果新鲜出炉啦。
展开全部
'这个只能用宏:
Sub i()
For r = Cells(1, 1).End(xlDown).row To 2 Step -1
If Cells(r, 1) <> Cells(r - 1, 1) Then
Rows(r).Insert
End If
Next r
End Sub
'第一列的数据中不能有空。如在也可把
'Cells(1, 1).End(xlDown).row
'改为最后的行的行号。
Sub i()
For r = Cells(1, 1).End(xlDown).row To 2 Step -1
If Cells(r, 1) <> Cells(r - 1, 1) Then
Rows(r).Insert
End If
Next r
End Sub
'第一列的数据中不能有空。如在也可把
'Cells(1, 1).End(xlDown).row
'改为最后的行的行号。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
选择【数据】下面的【分类汇总】就可以。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可用编程vba解决:
Sub i()
For r = Cells(1, 1).End(xlDown).row To 2 Step -1
If Cells(r, 1) <> Cells(r - 1, 1) Then
Rows(r).Insert
End If
Next r
End Sub
Sub i()
For r = Cells(1, 1).End(xlDown).row To 2 Step -1
If Cells(r, 1) <> Cells(r - 1, 1) Then
Rows(r).Insert
End If
Next r
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你想插入多少,就在下面选定多少后右键插入就行了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询