求助，关于拆分表格问题

q3041

如图，如图，TM表的D列是目标数据，想根据F列，把D列数据分配到后面sheet（即ZA1/ZA-1）的L列中去，采用公式法太慢，字典法看了不是很懂

约定的童话

目测可以实现，表格里面数据可以再细化一下吗？

q3041

约定的童话 发表于 2019-9-10 09:21
目测可以实现，表格里面数据可以再细化一下吗？

修改了一下，麻烦帮看下

a46578371

Sub 分表()
Application.ScreenUpdating = False
Dim a%, re%, xl%, b%
Dim arr
xl = [f65536].End(3).Row
For Each sh In Sheets
If sh.Name <> "TM" Then
a = Application.WorksheetFunction.CountIf(Range("F:F"), sh.Name)
ReDim arr(1 To a)
re = 0
For b = 1 To xl
If Cells(b, 6) = sh.Name Then
re = re + 1
arr(re) = Cells(b, 4)
End If
Next
sh.[l6].Resize(UBound(arr)) = Application.WorksheetFunction.Transpose(arr)
End If
Next
Application.ScreenUpdating = True
End Sub
是这样吗