Question

任何人都可以为我推荐有关此Excel VBA问题的精彩视频

我有一本主工作簿，其中有几千行。根据第2列中的值，我需要将每一行复制到10个不同的工作簿之一。

到目前为止，我仅找到以下视频：http://www.familycomputerclub.com/copy-data-to-another-workbook-based-on-sales-date.html

它很有帮助，但并不能使我一路走到那里。

任何人都可以推荐一部精彩的视频，与我一起逐步学习。我正在寻找视频，以便了解自己在做什么，而不仅仅是复制和粘贴代码。

谢谢！

这是我到目前为止所拥有的。问题在于，使用下面的代码，对于需要复制和粘贴的每一行……新的复制到工作簿将打开，保存和关闭。因此，如果“主”工作簿中有30行符合要复制到“复制到工作簿”中的条件，则每一行都是

从主工作簿复制行
打开复制到工作簿
粘贴到复制到工作簿中
保存复制到工作簿
关闭复制到工作簿

代码：

Sub updateAllWorkbooks()

a = Worksheets("All").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To a

    If Worksheets("All").Cells(i, 2).Value = "DENVER" Then

        Worksheets("All").Rows(i).Copy
        Workbooks.Open Filename:="FILE NAME IS PASTED HERE"
        Worksheets("DENVER").Activate
        b = Worksheets("DENVER").Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets("DENVER").Cells(b + 1, 1).Select
        ActiveSheet.Paste
        ActiveWorkbook.Save
        ActiveWorkbook.Close
        Application.CutCopyMode = False
        Worksheets("All").Activate

    End If

Next

Application.CutCopyMode = False

ThisWorkbook.Worksheets("All").Cells(1, 1).Select

End Sub

根据条件复制行，然后根据条件将这些行粘贴到不同的工作簿中（EXCEL VBA）

0 个答案: