[已解决]请教表格生成问题

wml514166604 · 发表于 2011-1-10 21:21

请教表格生成问题

最佳答案

仔仔

2011-1-10 21:45

估计是这个意思
Sub shtadd()
On Error Resume Next
For Each addsht In Range("a1:a" & Range("A65536").End(xlUp).Row)
Sheets.Add.Name = addsht
Next
End Sub

wml514166604 · 发表于 2011-1-10 21:37

请教高手帮帮忙、急用谢谢

sunjing-zxl · 发表于 2011-1-10 21:43

题目思路不明确，至少给一个样本，要生成什么样的字表格啊？

仔仔 · 发表于 2011-1-10 21:45

估计是这个意思
Sub shtadd()
On Error Resume Next
For Each addsht In Range("a1:a" & Range("A65536").End(xlUp).Row)
Sheets.Add.Name = addsht
Next
End Sub

wml514166604 · 发表于 2011-1-10 21:47

就是说要在那一个工作薄中自动生成有A列的名称那么多个子表格，而且名字要用A列的名字

厦门行 · 发表于 2011-1-10 21:49

VBA我不大懂，期待高手吧

		自动登录	找回密码
密码			注册