自动填充配方VBA

Question

寻求VBA功能的一些帮助

我有两张表上需要执行索引匹配的数据。

每次运行比较时，数据大小都会有所不同。

我已经对VBA进行编码以调用数据并填充两张表，但运行比较会导致问题。

我创建了以下函数，它运行时没有错误，但没有填充从单元格开始J2到J范围结束的公式。

Sub FormulaFill()

Dim strFormulas(1 To 1) As Variant

With ThisWorkbook.Sheets("Export Worksheet")
    strFormulas(1) = "=INDEX('sheet1'!E:E,MATCH('Export Worksheet'!A2,'sheet1'!A:A,0))"

    .Range("J:J").FillDown
End With

End Sub

非常感谢任何帮助。

w ^

应用更新代码后的图像

Answer 1

您正在将公式写入数组变量，而不是单元格，然后您尝试使用HttpWebRequest填充整个列。这意味着它尝试使用单元格J:J（顶部单元格，而不是J1）的内容填充整个列。

以下是带有更正的代码。

J2

Sub FormulaFill() With ThisWorkbook.Sheets("Export Worksheet") .Cells(2, 10).Formula = "=INDEX('sheet1'!E:E,MATCH('Export Worksheet'!A2,'sheet1'!A:A,0))" .Range(.Cells(2, 10), .Cells(.Cells(.Rows.Count, 9).End(xlUp).Row, 10)).FillDown End With End Sub 确定第9列（I）的最后一行，代码使用该范围内的数字用于第10列（J）的自动填充

Answer 2

这是因为你没有用公式填充单元格。

string filepath = picturesource.Tables[0].Rows[0][0].ToString();

pbTile.Image = Image.FromFile(filepath);
pbTile.Invalidate();