我的Sheet2包含原始数据,我需要根据Sheet2数据自动填充Sheet1。
逻辑
1.从Sheet2到Sheet1测试EditorName(Col A)
2.在Sheet2中检查AUDIT TYPE(Col G),以了解要填充哪个表
3.检查Tier(Col B)以了解要填充Sheet2上表中的哪一列
4.每行获取点数(Col F)并填充Sheet1列(取决于逻辑2和3)
我已经手动添加了前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