Database 宏从数据库重建收据

我需要一些关于我试图在excel上创建的数据库的帮助。目前，我设法建立了一个系统，在excel表格上粘贴一张收据，然后宏提取某些信息并将其存储在另一张表格中，类似这样

BUYER  SELLER  DATE  PRODUCTS  CURRENCY
A      B       123   abc        USD
D      E       456   def        GBP

现在，我可以使用简单的筛选来搜索这个数据库。我现在要做的是，一旦我过滤了，留下了，比方说，5个条目，我想在另一张表中重建这些条目，看起来就像收据最初做的那样，例如

123           456
A             D
B             E
USD           GBP
a             d
b             e
c             f

我知道我需要循环浏览每一行，每行一次，循环浏览每一列以提取所需的信息（例如日期、产品等）。 我环顾四周，什么也没找到。

---

非常感谢您的帮助。

我认为这可以帮助您开始：

Sub From_DB()
Dim i As Long
Dim col As Integer
Dim DB_Sheet, Rec_Sheet As Object

Set DB_Sheet = ThisWorkbook.Worksheets("Database")
Set Rec_Sheet = ThisWorkbook.Worksheets("Receipts")
col = 1
For i = 2 To DB_Sheet.Range("A" & Rows.Count).End(xlUp).Row
    If DB_Sheet.Rows(i).Hidden = False Then
        Rec_Sheet.Cells(1, col) = DB_Sheet.Cells(i, 3)
        Rec_Sheet.Cells(2, col) = DB_Sheet.Cells(i, 1)
        Rec_Sheet.Cells(3, col) = DB_Sheet.Cells(i, 2)
        Rec_Sheet.Cells(4, col) = DB_Sheet.Cells(i, 5)
        Rec_Sheet.Cells(5, col) = DB_Sheet.Cells(i, 4)
    col = col + 1
    End If
Next i
End Sub

---

你能分享一些你的“数据库”和收据的例子吗？很好，完成了！这是否意味着在你的产品栏中，你可以有更多的产品，你想切割它们？是的，但这对我来说不是问题，因为我制作了另一个宏来实现这一点