代码有条件地将信息从一个工作簿绘制到另一个工作簿

我有两个工作簿。 我想dynamic地从一个到另一个绘制信息。 我一直在研究几天,似乎唯一的方法是使用Visual Basic,但是我不知道如何使用VB。 我愿意学习,但有人需要给我一步一步的指示,最好是截图,如何做到这一点。

以下是具体细节。 我想要代码检查Workbook1,Sheet1,ColumnK的特定值,让我们说“西”。 如果ColumnK中有一行有“West”,我想将整行复制并粘贴到下一个可用行的Workbook2,Sheet2中。 我希望这是dynamic的,以便每当向Workbook1添加新信息时,代码都会检查并将相关信息提供给Workbook2。 如果无法将其绘制到Workbook2中,则反而将其绘制到Workbook1,Sheet2中。

我刚从另一个Stack Overflow线程复制了一个代码,在同一个Workbook1中工作。

Sub CopyRow() Application.ScreenUpdating = False Dim x As Long Dim MaxRowList As Long Dim S As String Dim wsSource As Worksheet Dim wsTarget As Worksheet Set wsSource = ThisWorkbook.Worksheets("ASK") Set wsTarget = ThisWorkbook.Worksheets("Petty Cash") iCol = 1 MaxRowList = wsSource.Cells(Rows.Count, iCol).End(xlUp).Row For x = 3 To MaxRowList If InStr(1, wsSource.Cells(x, 11), "West") Then wsTarget.Rows(x).Value = wsSource.Rows(x).Value End If Next Application.ScreenUpdating = True End Sub 

这将暂时适用于我,但如果有人能告诉我如何编辑代码,以便信息被绘制到一个单独的工作簿,这将是非常有用的。 我问你,请使用外行的条款(和截图),以便我能理解。