Question

我有一个SpreadSheet我想弄清楚。我不确定代码是否是最好的方式去，但我不能得到它没有透视表，所以我编码宏而不是。

以下是我的spreadSheet

(Cooks can be waiters)
Sheet1
CooksName | Waiter | DishServed
Bob, Joe, Fish
Joe, Bob, Chicken
Amy, Dan, Beef
Amy, Dan, Beef


**This is just a list i keep in sheet two for a picklist in Sheet1
Sheet2
Staff|Inventory
Bob, Fish
Joe, Chicken
Amy, Beef
Dan

这就是我想要sheet3的样子

Sheet3
Staff, Fish, Chicken, Beef
Joe, 1, 1, 0
Bob, 1, 1, 0
Amy, 0, 0, 2
Dan, 0, 0,2

我认为这很复杂，但我试图创建一个宏来处理这个问题。

Public Sub test()

Dim rng1Sheet3 As Range
Dim rng2Sheet1 As Range
Dim rngName As Range
Dim i As Integer
Dim j As Integer
Dim x As Integer
 x = 20

 'Loop through Sheet3 Column A - 20 - This assignment comes from sheet 2
For i = 1 To Sheets("Sheet3").Range("A" & Rows.Count - 20).End(xlUp).Row

'Set The value for the static list produced in Sheet 2
    Set rng1Sheet3 = Sheets("Sheet3").Range("A" & i)
    'Get Car Type

    For j = 1 To Sheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row
    'Set the value for each for Comparision
        Set rng2Sheet1 = Sheets("Sheet1").Range("C" & j)

        If rng2Sheet1.Value = rng1Sheet3.Value Then



            End If

           ' rng2Sheet1.Copy Destination:=Worksheets("Sheet3").Range("E" & x)

        End If

    Set rng2 = Nothing
Next j

Set rng1 = Nothing

 Next i

End Sub

Excel VBA宏或其他什么？

0 个答案: