Sub？宏1()
設置原始數據表名稱。
sheetname1？=?"原始表格"
設置目標數據表名稱。
sheetname2？=?"目標表"
此工作簿。使活動
工作表(工作表名稱1)。挑選
獲取原始數據表中的最大行數。
vMax？=?ActiveSheet。UsedRange.Rows.Count
j？=?三
標題占據了2行，用於從第三行開始循環執行。
為了什麽？我？=?3?去哪？vMax
查找符合條件的記錄。
如果？範圍(" D "？& amp？我)？=?" B "還是？範圍(" E "？& amp？我)？=?" B "然後
為了什麽？n？=?1?去哪？六
符合要求，復制數據。
工作表(工作表名稱2)。細胞(j，n)？=?工作表(工作表名稱1)。細胞(我，？n)
下壹個？n
j？=?j？+?1
結束？如果
下壹個？我
MsgBox？(“所有數據都已執行”)
結束？子原始數據表截圖
執行後的目標數據截圖