Коли значення змінюється в комірці на excel, додайте нове значення до таблиці [закрито]

Я шукаю сценарій VBA. В основному ситуація така: у мене є аркуш, який автоматично отримує значення з API, тому щоразу, коли я оновлюю аркуш, значення змінюються. Що я хочу зробити - це додати нові значення з певних комірок до таблиці на іншому аркуші. Тому щоразу, коли значення змінюються, нове значення додається до першого порожнього рядка у певному стовпці. Я хотів би відслідковувати історичні дані, щоб слідкувати за тим, як ці значення розвиваються з часом. Приємним бонусом було б додавання точного часу цього конкретного оновлення до іншого стовпця в тому ж рядку, але я можу це зробити і вручну.

Ви можете використовувати ці макроси для відстеження змін у конкретному діапазоні даних.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B100")) Is Nothing Then
Call Master
End If
End Sub

Примітка:

• Цей код запустить макрос (головний), коли будь-яке значення комірки зміниться в діапазоні.

Введіть нижче написаний код VBA як стандартний модуль.

• Цей код буде копіювати кожне нове / змінене значення з діапазону A1:B100в Новий аркуш MasterSheetбез надмірного запису старих записів.

  Sub Master()
  
  Dim sourceSheet As Worksheet
  Dim sourceRange As Range
  Dim sourceRows As Integer
  
  Set sourceSheet = Worksheets("Sheet1")
  
  sourceRows = WorksheetFunction.CountA(sourceSheet.Range("A:A"))
  
  Set sourceRange = sourceSheet.Range("A1:B" & sourceRows)
  
  Dim targetSheet As Worksheet
  Dim targetRange As Range
  Dim targetRows As Integer
  
  Set targetSheet = Worksheets("MasterSheet")
  
  targetRows = WorksheetFunction.CountA(targetSheet.Range("A:A"))
  
  Set targetRange = targetSheet.Range("A" & targetRows + 1 & ":B" & targetRows + 1 + sourceRows)
  
  sourceRange.Copy Destination:=targetRange
  
  End Sub
  

Примітка:

• Для кращого управління даними та файлами я використав два MACRO.
• Макрос використовує, COUNTAщоб розробити, як можуть використовуватися рядки.
• Якщо у вас є заголовки стовпців на початковому аркуші та Master, то вони будуть дублюватися. Тож ви, можливо, захочете sourceRangeпочати на A2.

За необхідності відрегулюйте посилання на клітинку та назву аркуша.