如何定义在VBA中dynamic改变列号成公式？
我有一个VBA代码来计算一个公式（我知道它很长）：
Cells(i, mcol) = "=IF(RC[-1]=""C"",(RC[-3]/SUMIFS(C[-3],C66,RC66))*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C4,4,0)),SUM((RC[-3]/SUMIFS(C[-3],C66,RC66))*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C4,4,0)),(RC[-3]/SUMIFS(C[-3],C66,RC66,C[-1],""GA + C""))*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C3,3,0))))" 在Vlookup中，从C1:C4到C1:C3范围的第三列都需要第四列。
直到列号（4和3）固定为止。 现在它每次运行For循环都会改变。 例如，第二次运行的列号是5和4，第三次运行的是6和5，直到12为止。有没有办法将dynamic更改的列号整合到上面的公式中？
非常感谢！
我也提供了一个完整的代码。
Sub AutoCalcV2() Dim ws As Worksheet Dim LastRow As Long Dim i As Integer, n As Integer, x As Integer, j As Integer, mcol As Integer Set ws = ActiveWorkbook.Sheets("Sheet1") ws.Select LastRow = Sheets("Sheet1").Range("A" & Sheets("Sheet1").Rows.Count).End(xlUp).Row mcol = 71 For j = 1 To 11 mcol = mcol + 1 For i = 3 To LastRow On Error Resume Next Cells(i, mcol) = "=IF(RC[-1]=""C"",(RC[-3]/SUMIFS(C[-3],C66,RC66))*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C4,4,0)),SUM((RC[-3]/SUMIFS(C[-3],C66,RC66))*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C4,4,0)),(RC[-3]/SUMIFS(C[-3],C66,RC66,C[-1],""GA + C""))*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C3,3,0))))" Range("BT4").Select Next i Next j End Sub
Dim iColumn as Integer mcol = 71 For j = 1 To 11 iColumn = 4 mcol = mcol + 1 For i = 3 To LastRow On Error Resume Next Cells(i, mcol) = "=IF(RC[-1]=""C"",(RC[-3]/SUMIFS(C[-3],C66,RC66))*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C4," & str(iColumn) & ",0)),SUM((RC[-3]/SUMIFS(C[-3],C66,RC66))*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C4," & str(iColumn) & ",0)),(RC[-3]/SUMIFS(C[-3],C66,RC66,C[-1],""GA + C""))*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C3,3,0))))" Range("BT4").Select iColumn = iColumn + 1 Next i Next j
所以基于我的理解，你有3个vlookups，你想要使用4（1,5 + 1,6 + 1）为前两个vlookups和3（3 + 1,4 + 1,5 + 1）为第三个。
如果是这样的话，在这里如何增加你的4和3。
Sub AutoCalcV2() Dim ws As Worksheet Dim LastRow As Long Dim i, n, x, j, mcol, iCol As Integer '<-- Changed here Set ws = ActiveWorkbook.Sheets("Sheet1") ws.Select LastRow = Sheets("Sheet1").Range("A" & Sheets("Sheet1").Rows.Count).End(xlUp).Row mcol = 71 iCol = 4 '<-- Newly added For j = 1 To 11 mcol = mcol + 1 For i = 3 To LastRow On Error Resume Next 'Changed the formula Cells(i, mcol) = "=IF(RC[-1]=""C"",(RC[-3]/SUMIFS(C[-3],C66,RC66))" & _ "*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C4," & iCol & ",0)),SUM((RC[-3]/SUMIFS(C[-3],C66,RC66))" & _ "*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C4," & iCol & ",0)),(RC[-3]/SUMIFS(C[-3],C66,RC66,C[-1],""GA + C""))" & _ "*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C3," & i & ",0))))" Range("BT4").Select iCol = iCol + 1 Next i Next j End Sub
好，看一下 我可以给你一个build议。 不是整个公式，只是VLOOKUP的一部分。
我知道这是你的循环单元格的公式：
Cells(i, mcol) = "=IF(RC[-1]=""C"",(RC[-3]/SUMIFS(C[-3],C66,RC66))*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C4,4,0)),SUM((RC[-3]/SUMIFS(C[-3],C66,RC66))*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C4,4,0)),(RC[-3]/SUMIFS(C[-3],C66,RC66,C[-1],""GA + C""))*(VLOOKUP('Sheet1'!RC66,GA_C!C1:C3,3,0))))"
现在你要根据循环dynamic改变列。 我理解如下的列对：
C1:C4 & C1:C3 C1:C5 & C1:C4 C1:C6 & C1:C5 C1:C7 & C1:C6 C1:C8 & C1:C7 C1:C9 & C1:C8 C1:C10 & C1:C9 C1:C11 & C1:C10 C1:C12 & C1:C11
其实，你的循环不清楚，我不能使用它。 所以，我使用如下：
For column = 3 To 11 mcol = mcol + 1 For row = 1 To lastRow Cells(row , mcol) = "=IF(RC[-1]=""C"",(RC[-3]/SUMIFS(C[-3],C66,RC66))*" & _ "(VLOOKUP('Sheet1'!RC66,GA_C!C1:C" & column + 1 & "," & column + 1 & ",0))" & _ ",SUM((RC[-3]/SUMIFS(C[-3],C66,RC66))*" & _ "(VLOOKUP('Sheet1'!RC66,GA_C!C1:C" & column + 1 & "," & column + 1 & ",0))" & _ ",(RC[-3]/SUMIFS(C[-3],C66,RC66,C[-1],""GA + C""))*" & _ "(VLOOKUP('Sheet1'!RC66,GA_C!C1:C" & column & "," & column & ",0))))" Next row Next column
像上面一样试试，这对你有帮助。