excel vba中选中一个单位各然后每隔9列插入一个等式并且autofill往下,可...

发布网友发布时间：2024-10-13 18:15

共1个回答

热心网友时间：2024-10-13 19:12

主要问题是destination那里

改成这样就可以

Sub delete0()
c = [iv1].End(xlToLeft).Column
For i = 1 To 2 + (c - 2) * 3
    With ActiveCell.Offset(1, (i - 1) * 9)
        .FormulaR1C1 = "=IF(RC[-2]<>0,RC[-2],"""")"
        .AutoFill Destination:=.Range("A2:A801"), Type:=xlFillDefault
    End With
Next i
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com