엑셀 행 vba 매크로

Question

엑셀 스프레드 시트가 많은 워크 시트가 있습니다.

"Sheet1"의 첫 번째 행을 1 행의 다른 모든 시트로 복사하고 row1 시트에서 지정된 열 너비를 유지하려고합니다.

어떻게 할 수 있습니까?

미리 감사드립니다.

Answer 1

도움이 될 것입니다.

다음 코드는 다른 시트의 첫 번째 행에서 "Sheet1"이라는 시트의 첫 번째 행을 붙여 넣습니다. 원본 시트의 이름이 다른 경우 HeaderRow의 시트 참조를 적절하게 변경하십시오.

Dim ws As Worksheet, HeaderRow As Range 
Set HeaderRow = Worksheets("sheet1").Range("1:1") 
HeaderRow.Copy 

For Each ws In ActiveWorkbook.Worksheets 
     ws.Range(HeaderRow.Address).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ 
     SkipBlanks:=False, Transpose:=False 
     ws.Paste 
Next ws 
Application.CutCopyMode = False 

Answer 2

ActiveCell.PasteSpecial xlColumnWidths?

는 정교하게하려면 :

Sheets("Sheet1").Range("A1:BL50000").Copy 

With Sheets("Sheet2").Range("A1") 
    .Cells.PasteSpecial xlPasteColumnWidths 

End With 

희망이 도움이!