VBA Excel在不同工作表

Question

我有两个工作表，接收和订单存档，两者都有相同标题的表格：sku，qty，患者姓名，产品信息，供应商，L / R，临床医师，订购日期，采购订单编号，已收到，成本 。

我试图编写一个从接收页面表开始的宏，并拉出在名为＆＃34; OrderArchive＆＃34;的订单存档工作表上找到的所有行，将该行信息复制到＆＃34 ;接收＆＃34;表。但是我只希望它将在Received列中指定的那些拉为＆＃34; [待定]＆＃34;。

Answer 1

通常不喜欢在没有任何努力的情况下手动编写代码，但请尝试一下，让我知道这是否是您正在寻找的内容：

'I named the Receiving tab's table "receivingTable"
'I named the Order Archive tab's table "orderArchiveTable"

Dim cnt As Integer
Dim x As Integer
Dim y As Integer
Dim cntPending As Integer
Dim myArray() As Variant

'count number of rows that are in orderArchiveTable
cnt = Range("orderArchiveTable").Rows.Count

'Scan orderArchiveTable for 'Pending' Orders in the 'Received' column
cntPending = 0
For x = 1 To cnt

    'count number of row that are Pending to use for array size
    If Range("orderArchiveTable[Received]")(x).Value = "Pending" Then
        cntPending = cntPending + 1
    End If

Next x


If cntPending = 0 Then Exit Sub  'no pending orders


'ReDim array for correct size... remember that it starts at zero! NOT 1
ReDim myArray(cntPending - 1, 9)

'Fill array with values
y = 0
For x = 1 To cnt
    If Range("orderArchiveTable[Received]")(x).Value = "Pending" Then
        myArray(y, 0) = Range("orderArchiveTable[sku]")(x).Value
        myArray(y, 1) = Range("orderArchiveTable[qty]")(x).Value
        myArray(y, 2) = Range("orderArchiveTable[Patient Name]")(x).Value
        myArray(y, 3) = Range("orderArchiveTable[Vendor]")(x).Value
        myArray(y, 4) = Range("orderArchiveTable[L/R]")(x).Value
        myArray(y, 5) = Range("orderArchiveTable[Clinician]")(x).Value
        myArray(y, 6) = Range("orderArchiveTable[Date Ordered]")(x).Value
        myArray(y, 7) = Range("orderArchiveTable[PO Number]")(x).Value
        myArray(y, 8) = Range("orderArchiveTable[Received]")(x).Value
        myArray(y, 9) = Range("orderArchiveTable[Cost]")(x).Value

        'Not sure if you want to delete the rows taken, but you would do this here and subtract 1 from x and cnt
        Selection.ListObject.ListRows(x).Delete
        x = x - 1
        cnt = cnt - 1

        'go to next row in array
        y = y + 1
    End If
Next x

'count number of rows that are in receivingTable
cnt = Range("receivingTable").Rows.Count + 1

'Dump array into receivingTable
For x = 0 To UBound(myArray)
    Set NewRow = Range("receivingTable").ListObject.ListRows.Add(AlwaysInsert:=True)
    Range("receivingTable[sku]")(cnt + x).Value = myArray(x, 0)
    Range("receivingTable[qty]")(cnt + x).Value = myArray(x, 1)
    Range("receivingTable[Patient Name]")(cnt + x).Value = myArray(x, 2)
    Range("receivingTable[Vendor]")(cnt + x).Value = myArray(x, 3)
    Range("receivingTable[L/R]")(cnt + x).Value = myArray(x, 4)
    Range("receivingTable[Clinician]")(cnt + x).Value = myArray(x, 5)
    Range("receivingTable[Date Ordered]")(cnt + x).Value = myArray(x, 6)
    Range("receivingTable[PO Number]")(cnt + x).Value = myArray(x, 7)
    Range("receivingTable[Received]")(cnt + x).Value = myArray(x, 8)
    Range("receivingTable[Cost]")(cnt + x).Value = myArray(x, 9)
Next x