Как вставить значение в соседний диапазон ячеек на основе условия

Question

Я хочу, чтобы мой код вставлял «190» в ячейку B1 if A1 is equal to "1" и сразу после того, как курсор начал мигать, чтобы значение B1 можно было дополнить дополнительными цифрами.

Я сделалэта процедура.Однако он работает только для ячейки, а не для всего диапазона ()

Sub BULK()
 If range("A1").Value = 1 Then range("B1").Value = C190
End Sub

Я ожидаю, что на выходе будет "C190", а курсор будет мигать для ввода дополнительных цифр.

Answer 1

Я не слишком уверен, правильно ли я понимаю, но я попробую.Предполагая, что у вас есть диапазон, который вы хотите зациклить и вставить C190 в столбец B.

Option Explicit
Sub FillValues()
Dim WS As Worksheet
Dim LRow As Long, i As Long
Dim ExtraDigits as Long

Set WS = ActiveSheet

    With WS
          LRow = .Range("A" & .Rows.Count).End(xlUp).Row

          For i = 1 To LRow
              If Len(Trim(.Range("A" & i).value)) = 1 Then
                 ExtraDigits = Application.InputBox("Add value:", Type:=1) 'If needed to enter different values modify from 1 to 2
                   .Range("B" & i).value = "C190" & ExtraDigits
               End If
          Next i
    End With
End Sub