根据另一个单元格的值将值返回到多个单元格的公式。

根据另一个单元格的值将值返回到多个单元格的公式。

如果我有一个单元格(A1)的值为“2”(设置值)
并且另一个单元格(A2)的值为“4”(我希望设置值出现在 1 列中的单元格数)

如何使 B1:B4 中的值全部返回为“2”?

答案1

已更新,VBA 答案

在“开发人员”选项卡下(如果没有,请转到“选项”、“自定义功能区”并检查它)从 ActiveX 部分插入一个命令按钮。

放置按钮,右键单击,查看代码。输入以下内容:

Private Sub CommandButton1_Click()
  Call Rawr
End Sub

然后,仍然在 VB 环境中,单击“插入”、“模块”。在新模块中:

Sub Rawr()

Dim i, x, cap As Integer

cap = [A2]
x = [A1]

[B1].Select

For i = 0 To cap - 1
 ActiveCell.Offset(i, 0).Value = x
Next i

End Sub

当您有新参数时,您可能需要一些额外的代码来清除 B 列。使用以下代码添加另一个按钮:

Columns("B:B").Select
Selection.ClearContents

原始答案

听起来你问的是怎么做第一个XB 列中的行等于, 在哪里X是 A2 并且是 A1-对吗?

没有办法用公式用这样的值填充空单元格 - 您可能需要使用 VBA 方法。

如果您习惯在 B 列中使用公式,只需留空直到需要时,将其放在 B1 中,然后填写:

=IF(ROW()<=$A$2,$A$1,"")

相关内容