宏每隔2行和第3行插入公式。

Question

我有一个工作表，我试图用它来自动生成Google文件名

https://docs.google.com/spreadsheets/d/1PS3OXt4b1FO8RT6t3pRTjkiTUrt_tD7AAjpM-QEnqzc/edit?usp=sharing

在这个示例中，行2、5、8是修复的，(但最初是行2、3、4)，我想使用宏来添加下面的两行，就像在示例中一样。

到目前为止，我有这段代码，但是这只创建了一行，并且没有在C列中正确地采用公式：

Sub inserttexteveryonerow()
Dim Last As Integer
Dim emptyRow As Integer
Last = Range("A" & Rows.Count).End(xlUp).Row
For emptyRow = Last To 2 Step -1
If Not Cells(emptyRow, 2).Value = "" Then
Rows(emptyRow).Resize(1).Insert
Range(Cells(emptyRow, "A"), Cells(emptyRow, "C")).Value = Array("+", "NO-BAG", "=C2&A3&B3")
End If
Next emptyRow
End Sub

我还需要第二行，这不是它创建的，理想情况下，这需要在Google中工作。任何帮助都是非常感谢的。

Answer 1

不是宏，但在此期间它可能会有所帮助：

={"arrayformula"; ARRAYFORMULA(IF(B2:B="",,VLOOKUP(ROW(C2:C), 
 IF(B2:B="add", {ROW(C2:C), C2:C}), 2, 1)&
 IF(B2:B="add",,"+"&B2:B)))}

​

​