求兄弟们帮忙，如何根据A列名称转置B列内容，如表所示，在线等

huahuofu

A列给定各种人名，B列给定各种人名对应的权限。如何转置成一个人名对应多个权限信息。如张三 权限1 权限2 权限3 权限N

heike2004

=INDEX($B:$B,SMALL(IF($A$2:$A$116=$D2,ROW($2:$116),9999),COLUMN(A:A)))&""

heike2004

Sub test()
Dim r As Integer, c As Integer, i As Integer, j As Byte, k As Byte
r = [a65536].End(3).Row
Range("e2:xfd" & r).ClearContents
k = Application.CountA(Range("d2:d" & r))
For j = 2 To k + 1
    For i = 2 To r
        If Cells(j, 4) = Cells(i, 1) Then
            c = Cells(j, 256).End(1).Column
            Cells(j, c + 1) = Cells(i, 2)
        End If
    Next i
Next j
End Sub

huahuofu

heike2004 发表于 2018-8-15 01:40
Sub test()
Dim r As Integer, c As Integer, i As Integer, j As Byte, k As Byte
r = [a65536].End(3). ...

谢谢大兄弟了，不过我试了下，因为我这数据有2000行，报错溢出了，应该怎么改下，刚接触VBA，对一些语句看的还不是太明白。

huahuofu

heike2004 发表于 2018-8-15 01:08
=INDEX($B:$B,SMALL(IF($A$2:$A$116=$D2,ROW($2:$116),9999),COLUMN(A:A)))&""

我试了这个公式了，报错是循环引用了数据，结果都是00000000

huahuofu

huahuofu 发表于 2018-8-15 09:18
谢谢大兄弟了，不过我试了下，因为我这数据有2000行，报错溢出了，应该怎么改下，刚接触VBA，对一些语句 ...

刚看书上说是定义的数据不够，定义个长一些的。

huahuofu

huahuofu 发表于 2018-8-15 09:21
刚看书上说是定义的数据不够，定义个长一些的。

我一次选256个人名就行了，谢谢老哥了

huahuofu

huahuofu 发表于 2018-8-15 09:52
我一次选256个人名就行了，谢谢老哥了

Sub test()
Dim r As Long, c As Long, i As Long, j As Integer, k As Integer
r = [a250000].End(3).Row
Range("e2:xfd" & r).ClearContents
k = Application.CountA(Range("d2:d" & r))
For j = 2 To k + 1
    For i = 2 To r
        If Cells(j, 4) = Cells(i, 1) Then
            c = Cells(j, 500).End(1).Column
            Cells(j, c + 1) = Cells(i, 2)
        End If
    Next i
Next j
End Sub
我比葫芦画瓢，把变量声明成long了，哈哈，竟然可以一次就直接算出来了。再次对回复我的朋友表示感谢！！感谢，好开心。

heike2004

huahuofu 发表于 2018-8-15 09:19
我试了这个公式了，报错是循环引用了数据，结果都是00000000

。。。。。。。。

heike2004

huahuofu 发表于 2018-8-15 09:18
谢谢大兄弟了，不过我试了下，因为我这数据有2000行，报错溢出了，应该怎么改下，刚接触VBA，对一些语句 ...

3楼附件测试没问题