如何基于另一个工作表中的表在Excel中创建自动填充宏

时间:2019-02-08 14:57:22

标签: excel vba tracker

我的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个条目以供参考。

我在编程方面有点菜鸟。我试图用唯一的编辑器名称创建一个新表,希望从那里开始,但很难在下一步工作上花很多时间。我需要逻辑,但不需要编程知识。

第1张跟踪器主表单(目标) enter image description here

第2页原始数据(源) enter image description here

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

0 个答案:

没有答案