如果我有一个单元格(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,"")