Как сохранить значение ячейки, найти его в другой книге и вставить скопированные туда строки в Excel? - PullRequest
0 голосов
/ 11 октября 2019

Я пытаюсь сохранить значение ячейки, затем скопировать определенные строки, затем открыть другую рабочую книгу, перейти на конкретный лист, найти значение, которое я хранил в переменной, и вставить туда скопированные ячейки (и заменить все, что было там). ). После этого удалите 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...