使用IF条件从工作表复制到不同工作簿中的工作表

Question

我正在尝试将一个范围从1个工作表连续复制到另一个工作表中，并使用＆＃34; IF＆＃34;栏中的条件＆＃34; A＆＃34;，例如

IF栏＆＃34; A＆＃34;等于＆＃34; H＆＃34;然后从范围复制：＆＃34; B＆＃34;到＆＃34; DJ＆＃34;从test.xls / worksheet1到＆＃34; A1＆＃34;在test1.xls / worksheet1中 否则IF栏＆＃34; A＆＃34;等于＆＃34; D＆＃34;然后从范围复制：＆＃34; B＆＃34;到＆＃34; C＆＃34;从test.xls / worksheet1到＆＃34; A1＆＃34;在test1.xls / worksheet1

中

我只设法将第一个范围复制到test1.xls / worksheet1，但尝试了几个条件方法来执行第二个范围。我似乎无法做到。

我的代码：

`Sub OpenAndCopy()
 Dim wbCopy As Workbook
 Dim wsCopy As Worksheet

 Dim rngCopy As Range
 Dim wbPaste As Workbook
 Dim wsPaste As Worksheet
 Dim rngPaste As Range
 Dim lRow As Long
 Dim lCol As Long 

 Set wbCopy = Workbooks.Open("C:\TEMP\TEST.XLS") 'change path
 Set wsCopy = wbCopy.Worksheets("Sheet1")
 lRow = Cells(Rows.Count, 1).End(xlUp).Row
 lCol = Cells(1, Columns.Count).End(xlToLeft).Column
 Set rngCopy = wsCopy.Range("BK")

 Set wbPaste = Workbooks("TEST1.XLS")
 Set wsPaste = wbPaste.Worksheets("Sheet1") 'paste to different sheet?
 Set rngPaste = wsPaste.Range("A1") 'change this if needed

 rngCopy.Copy
 rngPaste.PasteSpecial
 wbCopy.Close

 End Sub`

感谢任何评论和帮助/帮助我可以插入正确的VBA来做到没有错误。非常感谢。