Копирование данных на новый лист в зависимости от выбора строк или столбцов на основе выделенного

Question

Hy.

Этот вопрос может быть размещен и на других форумах, но я не могу найти свой ответ. пожалуйста, его срочно.

Я хочу макрос, который мог

• Скопируйте мои выбранные строки или столбцы или ячейки.
• делает новый файл.xlsx
• вставляет эти данные в этот лист.

ЭТО ВСЕ. Пожалуйста, срочно ждем макроса

Answer 1

Вы хотите вставить его в определенное место или просто в начало листа? Что будет определять, копируете ли вы строку или столбец?

Это скопирует строку выбранной ячейки, а затем вставит ее в первый ряд новой рабочей книги.

Sub CopyRow()
  Selection.EntireRow.Copy
  Workbooks.Add
  ActiveSheet.Paste
End Sub

------------------редактировать---------------------

добавьте этот код, чтобы спросить, хотите ли вы сохранить, затем у вас может возникнуть вопрос, чтобы скопировать строку или столбец, или отдельный макрос для копирования столбца.

Dim docname As String
If MsgBox("Would you like to save the doc?", vbYesNo, "Save?") = vbYes Then
 docname = InputBox("What would you like to call the doc?", "Title")
 ActiveWorkbook.SaveAs Filename:=docname, FileFormat:=xlOpenXMLWorkbook
End If