excel - 复制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

希望有帮助！