将公式复制到整个列表答案

【问题标题】：Copy the formula to the whole list将公式复制到整个列表
【发布时间】：2021-11-20 14:18:36
【问题描述】：

我有一段代码可以将特定公式从一个工作表复制到另一个工作表。我无法将此公式应用于特定列中的所有行。有没有办法向下复制公式？我使用的公式是： =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

【问题讨论】：

标签： excel vba

【解决方案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

【讨论】：

完美运行。谢谢@Darrell H