vba - VBA - 使用按钮对列中的每个单元格调用函数

Question

通过单击一个按钮，我想将一个函数应用于一列中的每个单独的单元格，并将结果纯粹输出到另一列中。任何建议将不胜感激！

战略：

循环遍历 A 的整个列，从 A1 开始，直到遇到空行。这将是第一个循环，其中会有一个计数器告诉我该列中有多少条数据，

第二个循环将预先创建的函数应用于每条数据并将其输出到不同的列。

我上周才拿起 VBA，我不完全确定我会如何做到这一点。

Answer 1

我希望这至少可以让你开始。更多信息和更好的问题将使我为您提供更好的答案。

Sub Button1_Click()
Dim LastRow As Long

If Range("A1") <> vbNullString And Range("A2") <> vbNullString Then
    LastRow = Range("A1").End(xlDown).Row ' how many rows have data within the column
End If

With Range("B1:B" & LastRow) 'Last row in A so you know how many rows to use
    .FormulaR1C1 = "=yahooPage(RC[-1])"
    .Value = .Value 'Removes the formula and leaves only the values.
End With

End Sub