总表的同家门店的内容自动录入到分表中

Maisie815

有份总表，现在我想把总表里面的同一家门店的内容分别筛选在单独的一份表格，因为有好多家门店，我不想一个个的筛选，有没办法可以自动录入到分表中呢，已上传附件，麻烦各位大神帮忙

abc123281

Sub 拆分()
Dim arr
Dim ws As Worksheet
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
With Worksheets("8月维修登记")
  r = .Cells(.Rows.Count, 2).End(xlUp).Row
  arr = .Range("a1:t" & r)
  For i = 2 To UBound(arr)
    If arr(i, 3) <> "" Then
      If Not d.exists(arr(i, 3)) Then
        Set d(arr(i, 3)) = .Cells(1, 1).Resize(1, 20)
      End If
        Set d(arr(i, 3)) = Union(d(arr(i, 3)), .Cells(i, 1).Resize(1, 20))
    End If
  Next
End With
For Each ws In Worksheets
  aa = ws.Name
  If d.exists(aa) Then
     With ws
       d(aa).Copy .Range("a2")
     End With
  End If
Next
Worksheets("8月维修登记").Activate
Application.ScreenUpdating = True
MsgBox "数据拆分完毕！", vbInformation
End Sub

abc123281

180815设备维修登记表副本123.rar (46.26 KB, 下载次数: 19)

2018-9-8 13:50 上传

点击文件名下载附件

Maisie815

怎么运行不了的

Maisie815

abc123281 发表于 2018-9-8 13:50

怎么运行不了的

abc123281

我这儿运行正常   你的office 什么版本的

Maisie815

abc123281 发表于 2018-9-8 14:17
我这儿运行正常   你的office 什么版本的

WPS的，那我拿07的试下

abc123281

呵呵  wps不行的

Maisie815

abc123281 发表于 2018-9-8 14:22
呵呵  wps不行的

还是不行呢，说丢失

Maisie815

abc123281 发表于 2018-9-8 14:22
呵呵  wps不行的

我拿07版本的还是不行呢