VisualBasic (ou Applescript) Excel feuille de tri avec des noms

Question

J'ai un gros problème dans le moment. Je dois trier une feuille Excel avec des noms. Il y a toujours un prénom et un nom qui se suivent dans le même ordre. Chaque nom remplit une cellule. Ces cellules sont alignées en une ligne. Exemple

Bill | Cospy | James | Bond | George | Clony | Michael | Jacksson

Maintenant, je veux que chaque prénom et deuxième nom sont résumées dans une cellule, puis le prochain prénom et deuxième nom sont pris pour la même procédure. Le résultat devrait être ceci:

Bill Cospy
James Bond
George Clony
Michael Jackson

Quelqu'un peut-il me écrire le script qui fait cela?

(je prends Visual Basic ou AppleScript, il n'a pas d'importance) quelqu'un

Answer 1

Dans Excel VBA

Dim curRow As Integer 
Dim curCol As Integer 

curRow = 1 
curCol = 1 

For Each c In Range("1:1") 'target row number' 

    If c.Value = "" Then 'we have hit a blank cell in target row' 
     Exit Sub 
    End If 

    Cells(curRow, curCol).Value = c.Value 

    curCol = curCol + 1 
    If curCol = 3 Then 
     curRow = curRow + 1 
     curCol = 1 
    End If 

Next c