Question

excel利用VBA自动填充公式

A表数据输入后通过VBA过入到B表，一次有N行，B表中C、E列有公式，公式太复杂，无法通过VBA直接输入，只能填充，如何通过VBA选中B表C-E列的M至M+N行，如何填充公式，因为目前无法确定会使用多少行数据，所以不想预先拉很多行公式。谢谢
Sheets("交易记录列表").Activate
Range(Cells(XE + 1, 9), Cells(XE + H + 1, 17)).Select
Selection.FillDown
在Range前加表格名称会导致错误，所以需先激活目标表格

Answer 1

A表数据输入后通过VBA过入到B表，一次有N行，B表中C、E列有公式，公式太复杂，无法通过VBA直接输入，只能填充，如何通过VBA选中B表C-E列的M至M+N行，如何填充公式，因为目前无法确定会使用多少行数据，所以不想预先拉很多行公式。谢谢
Sheets("交易记录列表").Activate
Range(Cells(XE + 1, 9), Cells(XE + H + 1, 17)).Select
Selection.FillDown
在Range前加表格名称会导致错误，所以需先激活目标表格

Answer 2

看了下你的公式运行方式，就是对比是否在C列里有B列的相同数据，有就在第9列写个"0"。写得也怪怪的。帮你改下这样
Private Sub Worksheet_Activate()
For n = 2 To [b65535].End(xlUp).Row
Cells(n, 2).Select
Cells(n, 9) = Evaluate("=IF(COUNTIF(C:C,INDEX(B:B,ROW()))>0,0,"""")")
Cells(n, 8) = Evaluate("你的excel公式")
Cells(n, 10) = Evaluate("你的excel公式")
Cells(n, 11) = Evaluate("你的excel公式")
NextEnd Sub
请采纳答案，支持我一下。

追问

公式会随着单元格的变化而变化，这种方法行不通，必须得用填充的方式

Answer 3

Private Sub Worksheet_Activate()
For n = 2 To [b65535].End(xlUp).Row
Cells(n, 2).Select
Cells(n, 9) = Evaluate("=IF(COUNTIF(C:C,INDEX(B:B,ROW()))>0,0,"""")")
Cells(n, 8) = Evaluate("你的excel公式")
Cells(n, 10) = Evaluate("你的excel公式")
Cells(n, 11) = Evaluate("你的excel公式")
NextEnd Sub

追问

公式会随着单元格的变化而变化，这种方法行不通，必须得用填充的方式

Answer 4

请附上你的具体问题。