清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

Sub GenData()
With Sheet1
    .[A1].Value = "ssd"
    .[B1].Value = "sdfa"
    .[C1].Value = "sfa"
    .[A2].Value = "sdfas"
    .[B2].Value = "gdf"
    .[C2].Value = "thc"
    .[A3].Value = "dfdas"
    .[B3].Value = "dfgd"
    .[C3].Value = "fsdg"
    .[A4].Value = "dfa"
    .[B4].Value = "d45"
    .[C4].Value = "fds4"
End With
End Sub