Я пытаюсь сохранить значение ячейки, затем скопировать определенные строки, затем открыть другую рабочую книгу, перейти на конкретный лист, найти значение, которое я хранил в переменной, и вставить туда скопированные ячейки (и заменить все, что было там). ). После этого удалите 1 файл в той же папке, в которой находится макрос.
Как это сделать?
PS1: я ищу значение в «A: A», и я уверен, что оно существует там. Он всегда будет существовать.
PS2: я не знаю, как очень хорошо работать с макросами ... Так что не так много функций, Dims и т. Д. Просто нажмите на запись, сделайте то, что мне нужно, и измените маленькийвещи.
Вот что я делаю сейчас, вставляя строки в нужную мне рабочую книгу и рабочую таблицу, но в самой первой ячейке («А1»). Таким образом, поиск и выбор находки не работают. И для удаления файла (я на Windows) попробовал Kill
, но это как-то не работает! Есть идеи?
Range("A6").Select
Dim dateWhereInsertData
dateWhereInsertData = ActiveCell.Value
Rows("6:11").Select
Selection.Copy
Workbooks.Open Filename:= "workbook_to_be_copied_into.xlsx", UpdateLinks:=0
Sheets("worksheet_to_be_copied_into").Select
Dim Cell As Range
Columns("A:A").Select
Set Cell = Selection.Find(What:=dateWhereInsertData, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Cell Is Nothing Then
'do it something
Else
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If