如果（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如果是某个单元格（假设为C5）值为0时才加一行，\x0d\x0a则用以下语句\x0d\x0aif [c5]=0 then\x0d\x0arows(6).insert\x0d\x0aend if

首先在类别列查找"五金",如果找到,然后从从此行开始向下循环,(可以用for each 在找到的单元格到此列的最后一个单元格),在循环体中用if进行测试B列单元格的内容,如果是"五金",则继续向一行,如果不是,则表示已经到末尾了,现在可以在此插入下行.将你的内容分别输入到对应的单元格中即可.

如果没有找到"五金",那么你要么在最后追加,要么在第一行之前插入一行,这个就看你的个人意思了.

Sub 公式下拉()

Dim i, irow As Integer

irow = Range("d65536").End(xlUp).Row

'假设D列是用来参照公式下拉到什么位置的，假设D列最后一个单元格是D577，那么A列将填充到A577，而不管D1:D577中间是否有空白单元格的存在。

‘irow 你也可以换成你所谓的R5的值

For i = 1 To irow

'for i= 1 to range("r5").value

If i Mod 47 = 0 Then

Cells(i, 1) = 47

Else

Cells(i, 1) = i Mod 47

End If

Next

End Sub

---