با سلام
می خواهم یک ستون 500 سطری را به 10 ستون 50 ردیفی تبدیل کنم
می خواهم یک ستون 500 سطری را به 10 ستون 50 ردیفی تبدیل کنم
Sub SplitInto50CellsPerColumn() Dim X As Long, LastRow As Long, vArrIn As Variant, vArrOut As Variant LastRow = Cells(Rows.Count, "A").End(xlUp).Row vArrIn = Range("A1:A" & LastRow) ReDim vArrOut(1 To 50, 1 To Int(LastRow / 50) + 1) For X = 0 To LastRow - 1 vArrOut(1 + (X Mod 50), 1 + Int(X / 50)) = vArrIn(X + 1, 1) Next Range("B1").Resize(50, UBound(vArrOut, 2)) = vArrOut End Sub
=index($a$1:$a$7000,row(b1)+(50*(columns($b$1:b$1)-1)))
کامنت