[已解决]VBA用数组循环把A列所有班级新建工作表

laoau138 · 发表于 2017-6-22 13:53

本帖最后由 laoau138 于 2017-6-22 16:00 编辑

VBA用数组循环把A列所有班级新建工作表

最佳答案

大灰狼1976

2017-6-22 15:36

Sub aaa()
Dim arr, arr1, i&
arr = [a1].CurrentRegion
arr1 = [b2].Resize(UBound(arr) - 1, UBound(arr, 2) - 1)
For i = 2 To UBound(arr)
Sheets.Add After:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = Sheets(1).Name & " " & arr(i, 1)
.[a1].Resize(UBound(arr1, 2)) = Application.Transpose(Application.Index(arr1, i - 1))
End With
Next i
End Sub

复制代码

大灰狼1976 · 发表于 2017-6-22 15:36

Sub aaa()
Dim arr, arr1, i&
arr = [a1].CurrentRegion
arr1 = [b2].Resize(UBound(arr) - 1, UBound(arr, 2) - 1)
For i = 2 To UBound(arr)
Sheets.Add After:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = Sheets(1).Name & " " & arr(i, 1)
.[a1].Resize(UBound(arr1, 2)) = Application.Transpose(Application.Index(arr1, i - 1))
End With
Next i
End Sub

复制代码

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