|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Option Explicit
Sub TEST2()
Dim ar, br, i&, j&, n&, r&, iColSize&, strJoin$
Application.ScreenUpdating = False
r = Cells(Rows.Count, "B").End(xlUp).Row
ar = Range("B2:U" & r).Value
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For i = 2 To UBound(ar)
strJoin = "," & Join(Application.Index(ar, i - 1), ",") & ","
n = 0
For j = 1 To UBound(ar, 2)
If InStr(strJoin, "," & ar(i, j) & ",") Then
n = n + 1
br(i, n) = ar(i, j)
End If
Next j
If n > iColSize Then iColSize = n
Next i
[W2].Resize(UBound(br), iColSize) = br
Application.ScreenUpdating = True
Beep
End Sub
|
|