Total Fix!

[엑셀VBA] 워크북의 여러 시트중 특정 시트만 새로운 워크북으로 만들기

Sub ADD_Selected_Sheets() Dim ws As Worksheet Dim cs As Worksheet Dim arrSht '선택된 각 시트를 넣을 배열형 변수 arrSht = Array("PC현황", "프린터", "AXIS", "PC이력") '시트를 배열에 넣음 ActiveWorkbook.Sheets(arrSht).Copy '배열의 시트를 새로운 워크북에 넣음 Set cs = ActiveSheet '수식의 값만을 취한다. For Each ws In ActiveWorkbook.Worksheets ws.Activate With Cells .Copy .PasteSpecial Paste:=xlValues, operation:=xlNone, skipblanks:=False, Transpose:=F..

광고

[엑셀VBA] 시트의 특정부분을 복사후 다른 시트에 붙여 넣기

Sheets(1).Cells(1, 1).Resize(6, 12).Copy Sheets(2).Cells(1, 1).Resize(6, 12) 첫번째 시트의 첫번째 셀부터 6행(1,2,3,...) 12열(A,B,C,...)만큼 복사후 2번째시트의 첫번째 셀로부터 6행 12열만큼 붙여 넣는다. Worksheets("Sheet1").Cells(1, 1).Resize(6, 12).Copy Worksheets("참조").Cells(1, 1).Resize(6, 12) WorkSheets("셀이름") 으로 표현할 수 있다. Worksheets("Sheet1").Range("A1:L6").Copy Worksheets("참조").Range("A1") Range("시작행렬:끝행렬") 형식으로 사용가능하다. Range("A1"..

광고