У меня есть Sheet2 с необработанными данными, и мне нужно автоматически заполнить Sheet1 в зависимости от данных Sheet2.
Логика
1. проверить EditorName (Col A) с Sheet2 на Sheet1
2. Проверьте AUDIT TYPE (Col G) на Sheet2, чтобы узнать, какую таблицу заполнить
3. Проверьте Tier (Col B), чтобы узнать, какой столбец в таблице выше в Sheet2 заполнить
4. Получите очки (Col F) за строку и заполните столбец Sheet1 (в зависимости от логики 2 и 3)
У меня естьвручную добавил первые 2 записи для справки.
Я немного новичок в программировании.Я попытался создать новую таблицу с уникальными именами редакторов и надеюсь пойти дальше, но с трудом подумаю, что делать дальше.Я должен к логике, но не к знаниям программирования.
Sheet 1 Tracker Main Sheet (Destination) 
Sheet 2Необработанные данные (источник) 
Sub Fill_Tracker()
Dim WSS As Worksheet
Dim WSD As Worksheet
ActiveWorkbook.Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Temp"
Set WSS = Sheets("RAW")
Set WSD = Sheets("Temp")
WSS.Range("A1", WSS.Range("A1").End(xlDown)).Copy WSD.Range("A1")
With WSD
.Range("A1", .Range("A1").End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlNo
.Cells("B1").Value = "Tier"
.Cells("C1").Value = "AUDIT TYPE"
End With
MsgBox "Done", vbOKOnly, "Message"
End Sub