應該用VLOOKUP 還是其他方式

向ching們請教一下
在inputpage輸入資料
有無方法把資料自動fill in去對應Biology, Physics, Chemistry 三個page

或者反轉嚟睇
Biology, Physics, Chemistry 三個工作頁會睇住inputpage自動顯示相關項目



input+sorting.jpg

TOP

Sub FillDataFromInputSheet()  
    Set wsInput = ThisWorkbook.Sheets("InputSheet")  
    lastRow = wsInput.Cells(wsInput.Rows.Count, "A").End(xlUp).Row
    dataToCopy = wsInput.Range("A2:B" & lastRow).Value  
    For i = LBound(dataToCopy, 1) To UBound(dataToCopy, 1)  
        Set wsTarget = ThisWorkbook.Sheets("Sheet1")  
        Dim nextRow As Long  
        nextRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1  
        wsTarget.Range("A" & nextRow & ":B" & nextRow).Value = Array(dataToCopy(i, 1), dataToCopy(i, 2))  
    Next i  
End Sub

TOP

本帖最後由 tragamer 於 2024-8-27 18:29 編輯

Vlookup()只可以顯示最高一個,
Filter() 比較適合.
樓上師兄嘅vba最好.

TOP

多謝樓上ching們指導
明天試吓先



我現在用呢個方法
在bio、phy、chem三個page
在A1用=inputpage!A1,在B1用=inputpage!B1
如此類推複製到所有cell
咁就顯示晒inputpage嘅資料
然後在bio、phy、chem三個page篩選想要嘅資料
不過當有新資料輸入後
就要做一次 Ctrl+Alt+F5更新

TOP

Use Userform.

TOP