excel - 将公式复制到整个列表

Question

我有一段代码将特定公式从一个工作表复制到另一个工作表。我无法将此公式应用于特定列中的所有行。有没有办法向下复制公式？我使用的公式是: =IFERROR(IF(SEARCH("100",D2),"YES",""),"") 所以下一个单元格(A3)应该有这个公式 =IFERROR(IF(SEARCH("100",D3),"YES",""),"") 等等。

Dim x As Variant
Dim y As Variant

x = ThisWorkbook.Worksheets("Sample").Range("A2").formula 

ThisWorkbook.Sheets("Sample 1").Range("A2").Value = x

Dim numr As Integer
numr = Range("X2").End(xlDown).Row 'calculating all the rows

Answer 1

无需通过x大约。这假设当您计算 numr你在正确的工作表中。这将用公式填充范围。

ThisWorkbook.Sheets("Sample 1").Range("A2") = ThisWorkbook.Worksheets("Sample").Range("A2")

Dim numr As Long
numr = ThisWorkbook.Sheets("Sample 1").Cells(Rows.Count, "X").End(xlUp).Row 'calculating all the rows
ThisWorkbook.Sheets("Sample 1").Range("A2:A" & numr).FillDown