하이라이트 된 행 또는 열의 선택에 따라 새로운 시트로 데이터 복사

Question

Hy.

이 질문은 다른 포럼에도 게시 될 수 있지만 내 답변을 찾을 수 없습니다. 긴급히 제발.

나는

• 내 선택 행 또는 열 또는 셀을 복사 할 수있는 매크로를 원한다.
• 은 새 파일을 만듭니다 ..xlsx
• 그 시트에 해당 데이터를 붙여 넣습니다.

모두입니다. 매크로를 기다리는 것이 시급합니다.

Answer 1

특정 위치 또는 시트의 시작 부분에 붙여 넣으려고하십니까? 행 또는 열을 복사하는지 여부는 무엇입니까?

이 현재 선택된 셀의 행을 복사 한 다음 새 통합 문서의 첫 번째 행에 붙여 넣기합니다

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

----------------- -edit ---------------------

저장할 것인지 묻는이 코드를 추가하면 행 또는 열을 복사 할 수 있습니다. 또는 열을 복사하는 별도의 매크로가 있어야합니다.

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