Question

Sub Repeat()
Range("F3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'ASLs total'!C[-5]:C[-4],2,0)"
Range("F3").Select
Selection.AutoFill Destination:=Range("F3:F1159")
Range("F3:F1159").Select
End Sub

我想将这个公式应用到D，F，H，....一直到500个列，每隔一列。

关于如何做到这一点的任何想法？

Answer 1

您可以使用步进功能通过for循环完成此操作。像这样：

Sub Repeat()
    For ColNum = 4 To 500 Step 2
        Range(Cells(3, ColNum), Cells(1159, ColNum)).FormulaR1C1 = "=VLOOKUP(RC[-1],'ASLs total'!C[-5]:C[-4],2,0)"
    Next ColNum
End Sub

希望这有帮助

将公式应用于excel中的每个其他列

1 个答案: