VBA代码，Sub 插入自定义多行表头到其他工作表！

Sub 插入自定义多行表头到其他工作表()
Dim ws As Worksheet
Dim sourceSheet As Worksheet
Dim headerRows As Range
Dim lastRow As Long

' 设置源工作表
Set sourceSheet = ThisWorkbook.ActiveSheet

' 设置自定义表头所在的行范围，这里假设表头在第1行到第3行
Set headerRows = sourceSheet.Rows("1:2")

' 获取表头最后一行的行号
lastRow = headerRows.Rows.Count

' 循环遍历所有工作表
For Each ws In ThisWorkbook.Worksheets
' 排除源工作表
If ws.Name <> sourceSheet.Name Then
' 删除目标工作表的第一行表头
ws.Rows(1).Delete

' 在目标工作表的第一行之前插入表头行
headerRows.Copy
ws.Range("A1").Insert xlShiftDown

' 调整目标工作表的行高与源工作表一致
ws.Rows("1:" & lastRow).RowHeight = sourceSheet.Rows("1:" & lastRow).RowHeight
End If
Next ws

MsgBox "表头插入完成！"
End Sub

学习资料见知识星球。

以上就是今天要分享的技巧，你学会了吗？若有什么问题，欢迎在下方留言。

快来试试吧，小琥 my21ke007。获取 1000个免费 Excel模板福利​​​​！

更多技巧， www.excelbook.cn

欢迎 加入 零售创新 知识星球，知识星球主要以数据分析、报告分享、数据工具讨论为主；