Question

我有一个包含许多工作表的Excel电子表格。

我想将第一行从“Sheet1”复制到第1行的所有其他工作表中，并保持从第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

希望有所帮助！

复制excel行vba宏

2 个答案: