moduuliin...
Option Explicit
Sub Järjestä()
Dim vika As Long
Dim i As Long
vika = Range("A65536").End(xlUp).Row
For i = vika To 2 Step -2
Range("A" & i - 1) = Range("A" & i - 1) & " " & Range("A" & i)
Range("A" & i).Delete
Next
End Sub
tämä vaihtaa x ja y koordinaatit paikkaa sarakkeessa a ja b
Option Explicit
Sub Järjestä()
Dim vika As Long
Dim i As Long
vika = Range("A65536").End(xlUp).Row
For i = vika To 2 Step -2
Range("A" & i - 1) = Range("A" & i - 1) & " " & Range("A" & i)
Range("A" & i).Delete
Next
End Sub
tämä vaihtaa x ja y koordinaatit paikkaa sarakkeessa a ja b
Vastaukset 2
Vanhimmat
siis kaikki on sarakkeessa a. vaihto sarakkeen sisällä
Arvaisin, että työkirjan moduuliin. Jollei auta niin sitten kuumoduuliin.