Выбор строк и копирование значений в другой диапазон

Question

Итак, сегодня я попытался выбрать строку из файла Excel, а затем вставить ее в другую строку (в другой файл Excel)

Я искал в Интернете и переполнении стека, и ничего не помогло мне. Я ничего не знаю о VB, и у меня нет времени, потому что мне нужно это к субботе, и почти все для меня неопределенно, но это мой код:

Sub main()

Dim rangeSrc As range, range As range

Set rangeSrc = Application.InputBox("Select src Range", "select src range")
Set range = Application.InputBox("select des range", "select des range")
rangeSrc.Select
Selection.Copy

range.Select
ActiveSheet.Paste

End Sub 

В Интернете есть то, что я собрал.

Первая проблема заключается в том, что он продолжает выдавать ошибку OBJECT REQUIRED.

Вторая проблема заключается в том, что если (в будущем) я хочу добавить условие для выбора строк, что мне делать?

Спасибо

Answer 1

Попробуй это. Я бы использовал range1 или что-то отличное от range для имени переменной. Также прочитайте как избежать выбора . Возможно, вам придется проверить размер диапазонов, range1 должен быть одной ячейкой или иметь тот же размер, что и rangerc.

Sub main()

Dim rangeSrc As range, range1 As range

Set rangeSrc = Application.InputBox("Select src Range", "select src range", Type:=8) 'type 8 = range
Set range1 = Application.InputBox("select des range", "select des range", Type:=8)

If Not rangeSrc Is Nothing And Not range1 Is Nothing Then
    rangeSrc.Copy range1
End If

End Sub