VBA怎样用FOR语句给每个工作表批量建立表头

For s = 1 To 4

   Sheets("Sheet" & s).Range("A1") = 姓名

   Sheets("Sheet" & s).Range("B1") = 学号

   Sheets("Sheet" & s).Range("C1") = 成绩

Next

或者

For Each s In Sheets

   s.Range("A1") = 姓名

   s.Range("B1") = 学号

   s.Range("C1") = 成绩

Next

不知道楼主的表头具体指什么，模拟了一个例子，楼主看看有没有启发。

Sub 复制表头()

Dim i%

i = Worksheets.Count

Do

    If i = 1 Then Exit Do

    Sheet1.[a1:e2].Copy Sheets(i).[a1] 'Sheet1中[a1:e2]的紫色区域为表头，复制到每个Sheet页里

    i = i - 1

Loop

End Sub

代码的效果如下图：

---