Incolno = InputBox("Enter Number of Columns Desired")įor item = 1 To reference.Row Step incolnoĬells(data, "A").Resize(1, incolno).Value = _Īpplication.Transpose(Cells(item, "A").Resize(incolno, 1)) Set reference = Cells(Rows.Count, 1).End(xlUp)
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |