Excel 如何将筛选代码添加到现有VBA代码？

我在这里使用了VBA：

我想在导入之前过滤列

I

中的数据源（

I

是第1-2-3或4周）

好的，一个过滤器，其中单元格中的一个变量（比如表

HEJ

中的

K2

）根据列

i

中（比如）2的值决定返回/导入哪些行

正确使用的代码是什么，以及在代码中的位置

Public子GetRange（）
“Dim变量
Dim文件选择为变量
将wb设置为工作簿
Dim Addme As Range_
CopyData作为范围_
Bk作为射程_
作为射程_
圣阿斯山脉_
Fn作为范围_
Tb作为范围_
c As范围
'关于错误语句
错误转到错误处理程序时：
'在内存中保存值
Application.ScreenUpdating=False
'检查必要单元格是否有值
对于活页1.范围中的每个c（“C4，F4:I4”）
如果c.Value=”“，则
MsgBox“您遗漏了“&c.地址”中所需的值
出口接头
如果结束
下一个c
'设置范围引用变量
设置要从中导入的书籍的Bk=Sheet1.Range（“C4”）文件路径
设置要导入的Sh=Sheet1.范围（“F4”）图纸
设置St=Sheet1.范围（“G4”）'起始单元格参考
设置Fn=Sheet1.范围（“H4”）精整单元参考
在此工作簿中设置Tb=Sheet1.Range（“I4”）工作表以将其发送到
'设置目的地
Set Addme=Worksheets（Tb.Value）.Range（“K”和Rows.Count）.End（xlUp）.Offset（1,0）
'打开工作簿
设置wb=工作簿。打开（Bk）
'设置复制范围
Set CopyData=工作表（Sh.Value）.Range（St&“：”&Fn）
'复制并粘贴数据
复制数据，复制
Addme.paste特殊XLPaste值
'清除剪贴板
Application.CutCopyMode=False
'关闭工作簿
wb.关闭错误
'返回到接口页
表1.选择
Application.ScreenUpdating=True
出口接头
'错误块
错误处理程序：
MsgBox“发生错误”&vbCrLf&“错误号为：”_
&错误编号、vbCrLf和错误描述、vbCrLf和_
“请通知管理员”
端接头