如何在多处加入空白行；如何定位非空白单元格

sophia_yang · 发表于 2014-1-16 13:13

我想在每个标题行前加入4行空白行，插入行以后，想像定位所选区域里面的空白单元格一样批量选择非空白单元格，请高手指点，附件在这里

招商档案.rar (14.65 KB, 下载次数: 12)

DZ潇潇 · 发表于 2014-1-19 22:18

方法笨了点，请别见笑。

sophia_yang · 发表于 2014-1-20 09:26

DZ潇潇发表于 2014-1-19 22:18
方法笨了点，请别见笑。

谢谢，公式设置的很棒，使用起来很方便。

我还要研究一下里面的思路。

sophia_yang · 发表于 2014-1-20 10:33

DZ潇潇发表于 2014-1-19 22:18
方法笨了点，请别见笑。

{=LARGE(($B$1:$B$115="序号")*ROW($B$1:$B$115),CEILING(ROW(3:3)/4,1))-1+ROW(3:3)/4*0.01}

麻烦问下：彩色字体部分什么意思？

sunya_0529 · 发表于 2014-1-20 11:36

DZ潇潇发表于 2014-1-19 22:18
方法笨了点，请别见笑。

公式的思路不错，不过涉及到单元格对象的位移操作，还是VBA来得更方便快捷。

下面提供两个问题的VBA解决思路——

Option Explicit
Sub 插入指定空行()
On Error Resume Next '错误处理
Dim i%, j%
i = 1 '定义计数器初始值，从第2行开始扫描
j = 4 '插入空行数
Application.ScreenUpdating = False '关闭屏幕刷新
With ActiveSheet
Do While Len(.Cells(i, 1)) <> 0 '循环处理条件，到最后一个不为空的单元格为止
i = i + 1 '循环计数器步长+1
If Not IsNumeric(.Cells(i, 1)) Then '判断是否为标题，是标题则插入空行
Range(.Cells(i, 1), .Cells(i + j - 1, 1)).EntireRow.Insert Shift:=xlDown '插入指定空行数
i = i + j '循环计数器增加空行数
End If
Loop
End With
Application.ScreenUpdating = True '打开屏幕刷新
End Sub
Sub 选择非空单元格()
On Error Resume Next '错误处理
With Selection
Union(.SpecialCells(xlCellTypeConstants), .SpecialCells(xlCellTypeFormulas)).Select
End With
End Sub

复制代码

sophia_yang · 发表于 2014-1-20 15:15

sunya_0529 发表于 2014-1-20 11:36
公式的思路不错，不过涉及到单元格对象的位移操作，还是VBA来得更方便快捷。

下面提供两个问题的VBA解 ...

汗颜呀，这么好的程序不知道如何使用。在vba方面一点点都不懂，~~~~

DZ潇潇 · 发表于 2014-1-20 19:03

sophia_yang 发表于 2014-1-20 15:15
汗颜呀，这么好的程序不知道如何使用。在vba方面一点点都不懂，~~~~

感情楼主和我一样，哈哈。

DZ潇潇 · 发表于 2014-1-20 19:04

sunya_0529 发表于 2014-1-20 11:36
公式的思路不错，不过涉及到单元格对象的位移操作，还是VBA来得更方便快捷。

下面提供两个问题的VBA解 ...

谢谢您的指点，其实我和楼主一样，不懂VBA呀，不过我现在已经把VBA纳入了我2014年的学习计划中，到时候多指教哦。
再次感谢！

DZ潇潇 · 发表于 2014-1-20 19:06

sophia_yang 发表于 2014-1-20 10:33
{=LARGE(($B$1:$B$115="序号")*ROW($B$1:$B$115),CEILING(ROW(3:3)/4,1))-1+ROW(3:3)/4*0.01}

麻烦问下 ...

就是提取$B$1:$B$115行序值，即{1,2,3…115}

sunya_0529 · 发表于 2014-1-21 09:46

sophia_yang 发表于 2014-1-20 15:15
汗颜呀，这么好的程序不知道如何使用。在vba方面一点点都不懂，~~~~

打开Excel后，按“Alt+F11”组合键，打开VBE窗口，在上面的菜单栏里点“插入”－》“模块”，

在右下的编辑窗口中复制上面的代码，然后回到Excel界面，按"Alt+F8"组合键，打开“启用宏”对话框，想运行哪个就运行哪个。

还有什么不清楚的么？

		自动登录	找回密码
密码			免费注册

[求助] 如何在多处加入空白行；如何定位非空白单元格