(excel,vba) 如果某一行中有的单元格的值为0,则在下面插入一行?怎么用vba实现?谢谢!

怎么查找具有某一特征的行,比如说,某一行中某个单元格的数值为0.,通过运行宏,在这行的下面插入一行,谢谢!

编辑---查找---选项----勾选单元格匹配----输入0----查找。对话框中会显所有0的格,按住CTRL键,点中找到的数据,关闭对话框,表格中所有0格被选中,在某个0的位置右键---插入---整行---确定。全部0格的“上”方插入一空行。(插入到0的下方不行)必要时可以在输入数据前,把空行拖拽到0的下边。
温馨提示:内容为网友见解,仅供参考
第1个回答  推荐于2018-05-13
代码如下:
'A列单元格的值为0,则在下面插入一行
'
Sub Insertrow()
Dim n As Integer
Dim i As Integer
n = [a65536].End(xlUp).Row 'A列最后一行非空单元格行号
i = 1
Do While i <= n '如果当前单元格行号不大于最后一行则执行循环
If Cells(i, "a") = 0 Then '单元格如果是0
Cells(i + 1, "a").EntireRow.Insert '在其下一行插入空行
n = n + 1 '最后一行的行号增加1行
i = i + 1 '跳过新插入的空行
End If
i = i + 1 '行号+1,准备下一个循环
Loop
End Sub本回答被网友采纳
第2个回答  推荐于2018-04-23
1、某一特征的行(至少有一个单元格为0)
对第x行计算
可以用连乘函数product(x:x)

值为0则满足特征条件
2、如果是在上面的基础上进行加一行操作
VBA中是
rows(x+1).insert
+1表示该行之后
如果是某个单元格(假设为C5)值为0时才加一行,
则用以下语句
if [c5]=0 then
rows(6).insert
end if本回答被网友采纳

(excel,vba) 如果某一行中有的单元格的值为0,则在下面插入一行?怎么...
编辑---查找---选项---勾选单元格匹配---输入0---查找。对话框中会显所有0的格,按住CTRL键,点中找到的数据,关闭对话框,表格中所有0格被选中,在某个0的位置右键---插入---整行---确定。全部0格的“上”方插入一空行。(插入到0的下方不行)必要时可以在输入数据前,把空行拖拽到0的...

如果(excel,vba)某一行有的单元格的值为0,则如何用vba在下面插入一行...
1、某一特征的行(至少有一个单元格为0)\\x0d\\x0a对第x行计算\\x0d\\x0a可以用连乘函数product(x:x)\\x0d\\x0a\\x0d\\x0a值为0则满足特征条件\\x0d\\x0a2、如果是在上面的基础上进行加一行操作\\x0d\\x0aVBA中是\\x0d\\x0arows(x+1).insert\\x0d\\x0a+1表示该行之后\\x0d\\x0a...

excel 上怎样VBA实现到达某列自动换行到下一行
If Len(Cells(r, 5)) > 0 And Target.Column < 5 Then Application.EnableEvents = False If Len(Cells(r + 1, 1)) = 0 Then Cells(r + 1, 1) = Cells(r, 5)Cells(r, 5) = ""Application.EnableEvents = True Else If Len(Cells(r + 1, 4)) = 0 Then Range("A" & r...

EXCEL 如果一列中只要含有某字符则某一单元格?
使用如下公式:=IFERROR(IFERROR(IF(MATCH("*D*",A:A,),"ABC"),IF(MATCH("*FOC*",A:A,),"ABC")),"")

excel 中某一单元格为0隐藏这一行或列的数据
excel中如何根据前一单元格的数据设置后面一单元格数据的字体颜色 选中A2 选择菜单【格式】->【条件格式设置】 下拉列表选择【公式】 在后面的条件填上=$A$1<0 点击格式按钮,在弹出的窗口将文字设置为绿色 OK即可 EXCEL中如何编写VBA代码,使某一行中值为零的单元格所在的列隐藏 如果你的...

Excel VBA 如果该条件发生错误,则运行下一条件
error goto 0 SheetExists = not st is nothingEnd Function主程序可以使用while一直循环,例如:Dim i, nmi=0do nm = Worksheets(3).Cells(1, 9).Value if i>0 then nm = nm & "("& i &")" i=i+1loop until not SheetExists(nm)Worksheets(3).Name = nm ...

在EXCEL中 如何用VBA查找某特定单元格并返回该单元格的行和列值?
第6到第13行代码在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值。应用于Range对象的Find方法在区域中查找特定信息,并返回Range对象,该对象代表用于查找信息的第一个单元格。如果未发现匹配单元格,就返回Nothing,语法如下:expression.Find(What, After, LookIn, LookAt, SearchOrder, Search...

excel 把某一列中满足条件的项对应的数据,在另一个表格中降序自动列出...
1、打开所需表格,首先来操作一下一个条件的。2、首先选中表格整个区域,在这里要注意的一个问题就是要选中以行为单位的整个表格,而不是单个选中供应商一列,因为要标记的是一整行。3、接下来在样式选项卡下找到,条件格式选项,在条件格式下拉菜单中选择新建规则,并打开新建规则对话框。4、在新建...

EXCEL VBA调整单元格位置?
如果单元格区域不连续,则使用第1个区域。如果单元格区域超过1行高,那么使用单元格区域的顶部行(最低编号的行)。3.在如下图所示的工作表中,列A中的内容超出了单元格的边界。此时,我们将光标移至列A与列B之间,当光标变成如图所示的形状时双击,Excel会自动调整列宽至合适尺寸。

excel如何让某一行其中一个值小于0则整行都不显示?有点深度,一般人解决...
截图请截出行号和列标,以方便书写公式。假设红字圈的是G列,那么选择所有列,在“条件格式”中,选择以公式建立规则,并输入=$G1>0 格式选择字体颜色为无色,即可。

相似回答