121

zhuangjs2010

1212

idnoidno

嘿嘿，您需要麼樣的幫忙呢

zhuangjs2010

idnoidno 发表于 2017-9-10 08:22
嘿嘿，您需要麼樣的幫忙呢

Private Sub CommandButton1_Click()
    Dim r, k, zt, c, n, w
    r = Sheet1.Range("A5").End(xlDown).Row
    c = Sheet2.Range("A2").End(xlDown).Row
    w = Sheet2.Range("L2").End(xlUp).Row + 1
    arr2 = Sheet1.Range("A6:j" & r)
    arr = Sheet2.Range("A2:k" & c)
    For i = 2 To UBound(arr)
        For n = 2 To UBound(arr2)

                k = arr(i, 1)
                zt = arr2(n, 1)
                If k = zt Then
            Sheet2.Cells(w, 14) = arr2(n, 2)
            Sheet2.Cells(w, 15) = arr2(n, 3)
            Sheet2.Cells(w, 16) = arr2(n, 4)
            Sheet2.Cells(w, 17) = arr2(n, 5)
            Sheet2.Cells(w, 18) = arr2(n, 6)
            Sheet2.Cells(w, 19) = arr2(n, 7)
            Sheet2.Cells(w, 20) = arr2(n, 8)
            Sheet2.Cells(w, 21) = arr2(n, 9)

            End If
        Next n
    Next
End Sub

zhuangjs2010

zhuangjs2010 发表于 2017-9-10 18:21
Private Sub CommandButton1_Click()
    Dim r, k, zt, c, n, w
    r = Sheet1.Range("A5").End(xlDo ...

单据编号和日期循环到sheet2里面的L、M列所对应的订单编号所在行
还有B6:J14的数据也保存到sheet2里面N列所对应的订单编号所在行

可以麻烦帮忙改下代码吗？