数据如何自动导出？召唤大神“江南月”

luzeners

求高手解放双手？

江南月

没太懂你的具体需求

江南月

试着写了一个
Sub test()
    Dim i As Integer, rng As Range, arr, sht1 As Worksheet, sht4 As Worksheet
    Set sht1 = Sheets("sheet1")
    Set sht4 = Sheets("Sheet4")
    Set rng = sht4.Range("A1048576").End(3)
    arr = sht1.Range("A8:B" & sht1.Range("A1048576").End(3).Row).Value
   
    For i = 1 To UBound(arr, 1)
        sht1.Cells(5, 1).Value = arr(i, 1)
        sht1.Cells(5, 2).Value = arr(i, 2)
        Set rng = sht4.Range("A1048576").End(3)
        If rng = "" Then
            rng.Value = sht1.Cells(7, 3).Value
            rng.Offset(1, 0).Value = sht1.Cells(7, 4).Value
        Else
           rng.Offset(1, 0).Value = sht1.Cells(7, 3).Value
           rng.Offset(2, 0).Value = sht1.Cells(7, 4).Value
        End If
    Next
   
   
End Sub

luzeners

江南月 发表于 2018-9-8 00:54
试着写了一个
Sub test()
    Dim i As Integer, rng As Range, arr, sht1 As Worksheet, sht4 As Worksh ...

你太牛B了，都不知道怎么说你。。。
只剩下膜拜。。。
感谢！
我再调试下完整的表格，遇到问题，希望再次得到你的帮忙！

luzeners

江南月 发表于 2018-9-8 00:54
试着写了一个
Sub test()
    Dim i As Integer, rng As Range, arr, sht1 As Worksheet, sht4 As Worksh ...

大神你好！能否再帮一下我，命令还需要实际情况调试下，能否给命令加个注释？

luzeners

江南月 发表于 2018-9-8 00:54
试着写了一个
Sub test()
    Dim i As Integer, rng As Range, arr, sht1 As Worksheet, sht4 As Worksh ...

大神能不能再帮看看？
命令哪部分是控制列数增加的？
新上传了附档

江南月

注释写在附件里了 副本111111.rar (27.26 KB, 下载次数: 17)

2018-9-8 15:40 上传

点击文件名下载附件

luzeners

附档好像不能解开

江南月

后面要继续往表格里添加数据吗?

luzeners

要根据实际情况，只是人员有变动
不是只处理这一次，后续会有新的表格处理
第二次上传的表格蓝色部分就变理,会有变动