复制excel行vba宏[关闭]

2 回答

• 2

  这应该对你有所帮助！

  下面的代码在每个其他工作表的第一行中粘贴名为“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
  

  回复于 2024-05-16T07:31:34+08:00
• 3

  ActiveCell.PasteSpecial xlColumnWidths ？

  详细说明：

  Sheets("Sheet1").Range("A1:BL50000").Copy
  
  With Sheets("Sheet2").Range("A1")
      .Cells.PasteSpecial xlPasteColumnWidths
  
  End With
  

  希望有所帮助！

  回复于 2024-05-16T07:31:34+08:00