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

VBA - 使用Button调用列中每个单元格的函数

1 个答案: