Excel怎样让送货单自动生成对账单

helen1984

EXCEL表格送货单的数据如何自动保存到另一张表格中,哪位高手能帮忙，感激不尽。

zyouong

对账单？跟什么对账？

zyouong

如果把每张单据保存到明细表中，用VBA，函数解决不了。

爱疯

Sub test()
    Dim A, B(1 To 6, 1 To 9), i, j, s, r
    A = Sheets(1).Range("a5").CurrentRegion
    r = Sheets(2).Cells(Rows.Count, 2).End(3).Row

    For i = 6 To 11
        For j = 2 To 6
            If A(i, j) = "" Then Exit For
        Next j
        '如果数据齐全，则添加
        If j = 7 Then
            s = s + 1
            B(s, 1) = r - 1 + s
            B(s, 2) = A(3, 7)
            B(s, 3) = A(4, 7)
            For j = 4 To UBound(B, 2)
                B(s, j) = A(i, j - 2)
            Next j
        End If
    Next i
    Sheets(2).Rows(r + 1 & ":" & Rows.Count).ClearContents
    Sheets(2).Cells(r + 1, 1).Resize(UBound(B), UBound(B, 2)) = B
End Sub
送货单2.rar (11.38 KB, 下载次数: 156)

2015-1-26 16:48 上传

点击文件名下载附件

金刚刚刚

爱疯 发表于 2015-1-26 16:48
Sub test()
    Dim A, B(1 To 6, 1 To 9), i, j, s, r
    A = Sheets(1).Range("a5").CurrentRegion

在这个基础上如何确认应付，如果供应商很多送货单很多怎么办

empbyf

爱疯 发表于 2015-1-26 16:48
Sub test()
    Dim A, B(1 To 6, 1 To 9), i, j, s, r
    A = Sheets(1).Range("a5").CurrentRegion

谢谢朋友刚好用到