这个功能需要VBA .按ALT+F11打开VBA编辑,插入——模块,将以下代码复制粘贴,按F5运行Sub test()

Dim j，k为整数

Dim na为字符串

j = Sheet1。范围(" a65535 ")。结束(xlUp)。第k行=工作表。对于i = k + 1到j + k

工作表，计数

。添加在:=工作表(工作表。Count)

na = Sheet1。单元格(i - k，1)。价值工作表(一)。Name = na

Next i

End Sub