复制excel行vba宏

Question

我有一个有很多工作表的excel电子表格。

我想将第一行从“Sheet1”复制到第1行的所有其他工作表中，并维护从第1行第一个表中指定的列宽。

任何想法如何做到这一点？

在此先感谢。

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 

希望帮助！