excel新建工作表并重命名
已经有3个默认工作表，其中sheet1里面已经有数据
现在，我要增加15个工作表，（共18个）。
全部重命名为 引号里的那些 Array( "桃花河大桥","新房子中桥", "新城坝中桥", "新城坝1#大桥", "新城坝2#大桥", "大河沟大桥", "沙田河大桥", "洞明村大桥", "磨湾山右线中桥", "磨湾山大桥", "麻柳井大桥", "黄泥田大桥", "刘家湾大桥", "石牛坝大桥", "华头嘴大桥", "陈深沟大桥", "梓江大桥", "金华互通匝道桥"）
请问代码是什么
Sub test()
Dim i As Variant
Dim j As Integer
Dim sht As Worksheet
i = Array("桃花河大桥", "新房子中桥", "新城坝中桥", "新城坝1#大桥", "新城坝2#大桥", "大河沟大桥", "沙田河大桥", "洞明村大桥", "磨湾山右线中桥", "磨湾山大桥", "麻柳井大桥", "黄泥田大桥", "刘家湾大桥", "石牛坝大桥", "华头嘴大桥", "陈深沟大桥", "梓江大桥", "金华互通匝道桥")
For j = 1 To 3
Worksheets(j).Name = i(j - 1)
Next
For j = 4 To 18
Set sht = Worksheets.Add(after:=Worksheets(j - 1))
sht.Name = i(j - 1)
Next
End Sub
Dim i As Variant
Dim j As Integer
Dim sht As Worksheet
i = Array("桃花河大桥", "新房子中桥", "新城坝中桥", "新城坝1#大桥", "新城坝2#大桥", "大河沟大桥", "沙田河大桥", "洞明村大桥", "磨湾山右线中桥", "磨湾山大桥", "麻柳井大桥", "黄泥田大桥", "刘家湾大桥", "石牛坝大桥", "华头嘴大桥", "陈深沟大桥", "梓江大桥", "金华互通匝道桥")
For j = 1 To 3
Worksheets(j).Name = i(j - 1)
Next
For j = 4 To 18
Set sht = Worksheets.Add(after:=Worksheets(j - 1))
sht.Name = i(j - 1)
Next
End Sub
温馨提示：内容为网友见解，仅供参考
第1个回答 2010-10-07
Sub aa()
Dim i: i = Array("桃花河大桥", "新房子中桥", "新城坝中桥", "新城坝1#大桥", "新城坝2#大桥", "大河沟大桥", "沙田河大桥", "洞明村大桥", "磨湾山右线中桥", "磨湾山大桥", "麻柳井大桥", "黄泥田大桥", "刘家湾大桥", "石牛坝大桥", "华头嘴大桥", "陈深沟大桥", "梓江大桥", "金华互通匝道桥")
Dim j%
For j = LBound(i) To UBound(i)
With Worksheets.Add(after:=Worksheets(Worksheets.Count))
.Name = i(j)
End With
Next
End Sub
Dim i: i = Array("桃花河大桥", "新房子中桥", "新城坝中桥", "新城坝1#大桥", "新城坝2#大桥", "大河沟大桥", "沙田河大桥", "洞明村大桥", "磨湾山右线中桥", "磨湾山大桥", "麻柳井大桥", "黄泥田大桥", "刘家湾大桥", "石牛坝大桥", "华头嘴大桥", "陈深沟大桥", "梓江大桥", "金华互通匝道桥")
Dim j%
For j = LBound(i) To UBound(i)
With Worksheets.Add(after:=Worksheets(Worksheets.Count))
.Name = i(j)
End With
Next
End Sub
第2个回答 2010-10-08
在sheet1处右键点击增加工作表即可，双击sheet1可以更改名称。
相似回答
