Excel VBA-自动填充无法按记录工作(列参考)

时间:2018-11-21 17:12:35

标签: excel vba excel-vba

嗨,我正在尝试在A1单元格中自动填充公式。

enter code here ' Create  table in formatting sheet
Sheets("Formatting sheet").Select
Range("A1").Select
Range("A1").Formula = "=SUMIF(Table11[[Auditor]:[Auditor]],Timeline!$C7,Table11[19.W01. 1/01 - 5/01])>Timeline!$C$3"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1", Cells(1, lastcolumn - startCell.Column + 1)), Type:=xlFillDefault
Range("A1", Cells(1, lastcolumn - startCell.Column + 1)).Select
Selection.AutoFill Destination:=Range("A1", Cells(lastRowTable - startCell.Row + 1, lastcolumn - startCell.Column + 1)), Type:=xlFillDefault

问题出在我要自动填充的公式中。如果我自动填充各列,则我的代码部分应如下更改:

 Table11[19.W01. 1/01 - 5/01]
 Table11[19.W02. 7/01 - 11/01] 
 Table11[19.W02. 7/01 - 11/01]

当我录制它时,它可以工作。当我实现它时,它仍然是Table11 [19.W01。 1/01-5/01]

请帮助

0 个答案:

没有答案