1

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

这是具体情况。我希望代码检查 Workbook1、Sheet1、ColumnK 的特定值，比如说“West”。如果一行在 ColumnK 中有“West”，我希望将整行复制并粘贴到下一个可用行的 Workbook2、Sheet2 中。我希望这是动态的，以便每当我向 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

这将暂时对我有用，但如果有人可以向我展示如何编辑代码以便将信息绘制到单独的工作簿中，那将非常有帮助。我请您使用外行的术语（和屏幕截图），以便我理解。

4

0 回答 0