转置问题

1872879008

哪位大哥大姐给看看

libo5563

pq 做一个，看看合适不

1872879008

楼上的大哥  意思是这个意思就是我没有看懂  不过还得谢谢你

1872879008

我这里有2W多条数据，一个个改真的改不起呀

刀羊

1872879008 发表于 2019-5-26 07:27
我这里有2W多条数据，一个个改真的改不起呀

加辅助列做透视表总可以做吧：

任飘渺

Sub kk()
    Dim i As Integer, irow As Long, n As Long, brr(), m As Integer
    With Sheet1
        irow = .Cells(Rows.Count, 4).End(3).Row
        arr = .Range("d1:d" & irow)
        k = Int(UBound(arr) / 5) + 1
        ReDim brr(1 To k, 1 To 5)
        n = 1
        For i = 1 To UBound(arr)
            m = i Mod 5
            If m = 0 Then
                brr(n, 5) = arr(i, 1)
                n = n + 1
            Else
                brr(n, m) = arr(i, 1)
            End If
        Next i
        .Range("m:q").ClearContents
        .Range("m2").Resize(n, 5) = brr
    End With
End Sub

1872879008

谢谢楼上的大哥哥

1872879008

最好有个操作步骤看一下

1872879008

会了，在一次感谢帮助我的大哥哥们！！！

刀羊

1872879008 发表于 2019-5-26 09:35
会了，在一次感谢帮助我的大哥哥们！！！

可以在他们的楼层右下角 点 那个 “评分”，送朵鲜花以示感谢。