-1

Если у меня есть ячейка (A1), значение равно "2" (заданное значение)
& значение другой ячейки (A2) равно "4" (количество ячеек в 1 столбце, в котором должно отображаться заданное значение)

Как мне вернуть значения в B1:B4, чтобы все были "2"?

1 ответ1

2

Обновлено, ответ VBA

На вкладке «Разработчик» (если у вас ее нет, перейдите в «Параметры», «Настройка ленты» и проверьте ее) вставьте кнопку «Command» из раздела 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

Оригинальный ответ

Похоже, вы спрашиваете, как сделать первые x строк в столбце B равными y, где x - это A2, а y - это A1 - это правильно?

Невозможно заполнить пустые ячейки значениями, подобными этой, формулой - вы, вероятно, захотите использовать подход VBA.

Если вам удобно иметь формулы в столбце B, которые просто выглядят пустыми до тех пор, пока они не понадобятся, поместите это в B1 и заполните его:

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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .