Добавление значения в последнюю ячейку

Question

мне нужна помощь с чем-то, по крайней мере теоретически, простой:

Вы вводите какое-либо значение в одной ячейке (A1), то значение добавляется к B1. Вы добавляете другое значение (заменяя предыдущее значение) в A1, C1 создается с этим значением и продолжается.

Мне нужно сохранить сохраненную историю, но в то же время упростить метод ввода.

Я бы очень признателен за любую помощь. Благодарю.

Answer 1

Поместите следующий макрос событий в области рабочего листа Код:

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim A As Range, N As Long 
    Set A = Range("A1") 
    If Intersect(Target, A) Is Nothing Then Exit Sub 
    Application.EnableEvents = False 
     N = Cells(1, Columns.Count).End(xlToLeft).Column + 1 
     Cells(1, N).Value = A.Value 
    Application.EnableEvents = True 
End Sub 

Поскольку это таблица кода, очень проста в установке и автоматическое использование:

1. правой кнопкой мыши на вкладку имя в нижней части окна Excel
2. выбрать Просмотреть код - это вызывает окно VBE
3. вставьте материал и закройте окно VBE

Если у вас есть какие-либо проблемы, сначала попробуйте на пробном листе.

Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel позднее 2003 года, вы должны сохранить файл как .xlsm, а не формата XLSX

Чтобы удалить макрос:

1. довести до окна VBE, как указано выше
2. ясно код из
3. закрыть окно VBE

Чтобы узнать больше о макросах в целом, см:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

и

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Чтобы узнать больше о Event Macros (таблица кодов), см:

http://www.mvps.org/dmcritchie/excel/event.htm

Макросы должны быть разрешены для этой работы!

EDIT # 1

Удалите первую версию и заменить его:

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim A As Range, N As Long, WhichRow As Long 
    Set A = Range("A:A") 
    If Intersect(Target, A) Is Nothing Then Exit Sub 
    Application.EnableEvents = False 
     WhichRow = Target.Row 
     N = Cells(WhichRow, Columns.Count).End(xlToLeft).Column + 1 
     Cells(WhichRow, N).Value = Target.Value 
    Application.EnableEvents = True 
End Sub