在excel空白或某一行中插入新的一行，且只插入一次，不是空的时候自动往下一个插入，那VBA里面要怎么编写

Question

新手新手...求教导..就是创建个按钮，然后每次按得时候都会自动在非空白的行里插入新的一行

Answer 1

你的意思不是说如果上下两行之间如果没有一个空行隔开就插入一个空行,如果有空行就不插入空行?,按钮每按一次就自动在两个没有空行隔开的行插入一个空行.
如果我描述的是你的要求的话,操作步骤如下:
1.按ALT+ F11进入VBA编辑窗口.在窗口左边列表栏点击鼠标右键选插入模块.然后粘贴下面代码到右边窗口.然后关闭VBA编辑窗口返回工作表
代码如下:

Sub inst()
For Each rng In Range("A1:A" & [A65536].End(xlUp).Row)
If rng <> "" And rng.Offset(1, 0) <> "" Then
rng.Offset(1, 0).Insert
Exit For
End If
Next
End Sub
2.在工作表合适的位置插入一个窗体按钮(注意是菜单->视图->工具栏->窗体里的按钮,不是控件工具箱里的命令按钮),然后按钮的指定宏指定为inst 这个宏即可.追问

不是噢，可能我的表达能力太差吧.....
是这样的，我在做一个入库表格，如果有新的货品要进来的时候，我就点那个按钮，然后excel就自动在一个表格中插入一行，然后输入我的货物名称数量什么的，然后那个流水号要对应的1或者2或者3或者4....这样...

追答

你的问题果然比较不容易描述,把你的表格发我邮箱吧 我看看
[email protected]

Answer 2

range("1:1").insert
在第一行上面插入一行

Answer 3

按一次插入一行？讲清你要做什么用的可以吗？这样可以准确的理解你的用途，更能达到你的要求