Может ли кто-нибудь порекомендовать мне хорошее видео об этой проблеме Excel VBA
У меня есть главная книга с несколькими тысячами строк. На основе значения в столбце 2 мне нужно скопировать каждую строку в одну из 10 разных книг.
Пока я нашел только это видео: https://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
