[已解决]保留商品信息，按门店名称拆分成多个表格

新手求教__小绿 · 发表于 2017-2-8 16:04

请教版主，如何保留商品信息，按门店名称拆分成多个表格，感谢之至！

最佳答案

爱疯

2017-2-8 17:28

本帖最后由爱疯于 2017-2-8 17:30 编辑

Sub test()
Dim A, j
Application.ScreenUpdating = False
Call test2
A = Range("a1").CurrentRegion

For j = 5 To UBound(A, 2)
      Sheets.Add(after:=Sheets(Sheets.Count)).Name = A(2, j)
      Range("a1").Resize(UBound(A), 4) = A
      Range("e1").Resize(UBound(A)) = Application.Index(A, 0, j)
      Range("a:c").ColumnWidth = 30
Next j
Sheets(1).Select
End Sub

Sub test2()
Dim i
Application.DisplayAlerts = False
For i = 2 To Sheets.Count
      Sheets(i).Delete
Next i
Sheets(1).Select
End Sub

商品调配表2.rar (307.88 KB, 下载次数: 9)

爱疯 · 发表于 2017-2-8 17:28

本帖最后由爱疯于 2017-2-8 17:30 编辑

Sub test()
Dim A, j
Application.ScreenUpdating = False
Call test2
A = Range("a1").CurrentRegion

For j = 5 To UBound(A, 2)
      Sheets.Add(after:=Sheets(Sheets.Count)).Name = A(2, j)
      Range("a1").Resize(UBound(A), 4) = A
      Range("e1").Resize(UBound(A)) = Application.Index(A, 0, j)
      Range("a:c").ColumnWidth = 30
Next j
Sheets(1).Select
End Sub

Sub test2()
Dim i
Application.DisplayAlerts = False
For i = 2 To Sheets.Count
      Sheets(i).Delete
Next i
Sheets(1).Select
End Sub

商品调配表2.rar (307.88 KB, 下载次数: 9)

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

[已解决]保留商品信息，按门店名称拆分成多个表格

相关帖子