Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub SubbyWays() Dim sData As Variant Dim f_Data As Variant Dim iC As Integer Dim iR As Long Dim rCoun As Long Dim UCol As Integer rCoun = 1 sData = Range("A1").CurrentRegion.Value UCol = UBound(sData, 2) ReDim f_Data(1 To UBound(sData, 1) * UCol, 1 To 1) For iR = LBound(sData, 1) To UBound(sData, 1) For iC = LBound(sData, 2) To UBound(sData, 2) f_Data(rCoun, 1) = sData(Int((iC - 1) / UCol) + iR, 1 + ((iC - 1) Mod UCol)) rCoun = rCoun + 1 Next Next iR Range("J1").Resize(UBound(f_Data), 1) = f_Data End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Macro Modification to refresh non-contiguous Cells in a Worksheet||12||40|
|Formatting a Word Content Control||13||36|
|Create a list of Worksheets based on Cell Value||14||33|
|how to change this formula so that INDEX starts from C2 not C1||1||19|
Join the community of 500,000 technology professionals and ask your questions.