Как добавить новую информацию в ту же ячейку?

Question

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

По сути, у меня есть поле для галочки для каждой строки и кнопка, которая мгновенно нажимает только на положительные результаты.после этого он запрашивает у пользователя серийный номер, который будет записан в ячейке.число уникально для каждого человека, и я хочу вести учет более 1 числа, чтобы я знал всех, кто достиг определенного результата.Например, человек номер 44 берет результат, на клетке написано «44».тогда человек номер 55 также получает тот же результат: вместо уже написанного 44 пишется «55» вместо

VarNUMCB = InputBox("Insert User ID Number")

If Range("h3").Value >= 0 Then
   Range("j3").Value = VarNUMCB
Else
End If

.

Answer 1

Убедитесь, что вы объявили переменную "VarNUMCB".Вы можете попробовать:

Option Explicit

Sub trst()

    With ThisWorkbook.Worksheets("Sheet1") '<- Refer to sheet you are coding. Change sheet name if needed

        VarNUMCB = InputBox("Insert User ID Number")

        If .Range("H3").Value >= 0 Then '<- Use "." before range to make sure that your are targeting the sheet used in  the "With statement"
            .Range("J3").Value = .Range("J3").Value & " " & VarNUMCB '<- J3 value with a following by a space and the value VarNUMCB
        Else
        End If

    End With

End Sub

Answer 2

Если вы хотите изменить строку для содержимого в ячейке, просто сделайте это с символом "&".Кроме того, вы можете определить разделитель, разделяющий две записи (какой-то определенный символ или новую строку).В приведенном ниже примере я использую ";" в качестве разделителя

VarNUMCB = InputBox("Insert User ID Number")

If Range("h3").Value >= 0 Then    
    Range("j3").Value = Range("j3").Value & ";" & VarNUMCB 
Else
    ...
End If