急！筛选匹配数据到另一张表中

叻咕仔

有人帮忙解决看看吗？

叻咕仔

自己写了开头，不知道下面怎么写了
顺便刷一下
Sub Macro1()
Dim n_row&, i&, j&
Dim Arr, d, k, t,d1
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
n_row = Sheets("FBL5N").Range("B65536").End(xlUp).Row
Sheets("OFOFF").Cells.Clear '??sheet2
Sheets("NONOFF").Rows(1).Copy Sheets("OFOFF").Rows(1)  
Sheets("NONOFF").Range("A1", "N" & n_row).Copy
Sheets("OFOFF").Range("A1", "N" & n_row).PasteSpecial Paste:=xlPasteFormats
Arr = Sheets("NONOFF").Range("a1:n" & n_row)   
Arr=sheets(“NONOFF”).[a2].currentregion
Redim brr(1 to ubound (arr), 1 to 250)
For i = 2 To UBound(Arr)                     
If not d.exists(“arr(I,1)”) then     
I=i+1
Ds(arr(I,1))=j
For i=2 to 250
End if
Next