Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Rearranging numbers
Here is some demo code, it will run as is:
Sub ashw() ' gsnu For i = 1 To 100 Cells(i, "A") = "=rand()" Cells(i, "B") = i Next n = Application.InputBox("enter the number of additional columns (<254) ", Type:=1) For i = 1 To n Columns("A:B").Sort Key1:=Range("A1") For j = 1 To 100 Cells(j, i + 2) = Cells(j, "B") Next Next End Sub 1. put the real data in column B 2. comment out Cells(i, "B") = i 3. change 100 to the number of items -- Gary's Student "ashw1984" wrote: hi there could anybody help Using visual basic i need to rearrange a column of numbers in a random order and paste them into the next column. then repeated 'x' amount of time's. along the spread sheet using an inputbox to ask for 'x' thanks guys |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Completely baffled on what should be simple | Excel Discussion (Misc queries) | |||
conditional formatting | Excel Worksheet Functions | |||
How to generate sets of random numbers without having duplicates | Excel Worksheet Functions | |||
Why are 1/2 my numbers imported as text and the rest as numbers? | Excel Discussion (Misc queries) | |||
Count comma separated numbers, numbers in a range with dash, not t | Excel Discussion (Misc queries) |