Скопируйте различные ячейки из одного листа и вставьте в последнюю пустую ячейку в столбце. - PullRequest
0 голосов
/ 18 марта 2019

Это мой первый пост, и я абсолютно нуб, когда дело доходит до любого вида кодирования.Я пытаюсь сделать это самостоятельно в первый раз, и я уже столкнулся с моим первым блокпостом, и, потратив 2 часа на поиски аналогичного решения, я отказался.Извините за неудачу.

Так что я надеюсь, что кто-то может мне помочь.У меня есть форма Excel, которая будет заполнена, затем мне нужно перенести данные из этой формы в таблицу, я использовал функцию формы в Excel, но, учитывая, что у меня так много точек данных, мне нужно было бы создать много таблиц.Поэтому я подумал о написании кода, который будет копировать значения в форме и вставлять их в таблицы. Я не могу понять, как сказать VBA вставить значения в следующую пустую ячейку в данном столбце.

Sub CopyData()
    Worksheets("Form").Range("AE5").Copy
        Worksheets("Raw Data").Range("AB3").PasteSpecial Paste:=xlPasteValues
    Worksheets("Form").Range("AH5").Copy
        Worksheets("Raw Data").Range("AC3").PasteSpecial Paste:=xlPasteValues
    Worksheets("Form").Range("AL5").Copy
        Worksheets("Raw Data").Range("AD3").PasteSpecial Paste:=xlPasteValues
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...