作者：乔山办公网日期：
返回目录：excel表格制作
Sub fencun()
Application.ScreenUpdating = False
a = Sheets(4).[B5]
Sheets(4).Copy
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xls"
.Close
End With
Application.ScreenUpdating = True
End Sub
shtn=range("a1")
sheets(shtn).select
要什么vba啊，直接公式就可以了
复制sheet1第1行到sheet2第1行
在a2输入：
=OFFSET(Sheet1!A$1,ROW(A3)/3,)
右拉
选择1到3行
下拉
Sub 输入道()
On Error GoTo 100
a = Application.InputBox("请输入工作表回名称答！")
Sheets(a).Select
Exit Sub
100:
MsgBox "工作表名称输入错误！"
End Sub
修正了一下无此工作表名称