复制excel行vba宏

我有一个excel电子表格和许多工作表

我想将“Sheet1”中的第一行复制到第1行的所有其他图纸中，并保持第1行图纸1中指定的列宽

你知道怎么做吗

---

提前感谢。

ActiveCell.paste特殊xlColumnWidths

详细说明：

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

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

End With

---

希望有帮助

ActiveCell.paste特殊列宽

详细说明：

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

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

End With

希望有帮助

这应该对你有帮助

以下代码将名为“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

这应该对你有帮助

以下代码将名为“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

---

+1：“列宽”？哇，我真的每天都能在这里学到新东西。+1:“xlPasteColumnWidths”？哇，我真的每天都在这里学到新东西。如果你觉得这是你的解决方案，请打答案旁边的绿色勾号。如果你觉得这是你的解决方案，请打答案旁边的绿色勾号。。。