Astuces Excel
  1. Astuces Excel
  3. Passer à la nouvelle ligne chaque 4ème colonne
Intereting Posts
AppleScript – Si le file est répertorié dans la feuille excel, ajoutez une autre valeur de colonne comme préfixe Connectivité Excel et DB2 Excel: comment lier une cellule à un point d'alimentation pour une mise à jour dynamic sur Mac Utilisation de l'index avec MATCH Appel des fonctions de feuille de calcul de vba dans des versions de langue étrangère d'Excel Les menus déroulants Excel dans VBA: "Impossible d'get la propriété DropDowns de la class Worksheet" EXCEL Sélectionnez la valeur la plus basse dans une rangée, à l'exclusion de la cellule vide Tri de plusieurs colonnes dans excel via xlwt pour python Excel 2013 Max Column Remplissez un formulaire Web via VBA Convertir la date de calendar en Excel au même jour de la semaine dans les années à venir Comment afficher la valeur dans une cellule uniquement si le mois en cours Ecriture d'une macro pour modifier la police et la taille dans plus de 500 classurs dans un dossier Erreur d'interop interieur MS Office PIA Com Accès aux valeurs de cellule dans Excel Row en utilisant OpenXML – Référence d'object non définie sur une instance d'object

Passer à la nouvelle ligne chaque 4ème colonne

J'ai obtenu des données qui sont stockées dans une rangée de colonnes dans une feuille Excel. Existe-t-il un moyen de déplacer datatables vers la ligne suivante à la 4ème colonne? Y a-t-il une fonction embeddede pour cela? Par exemple:

Les données: 

Actinium | Ac | 89 | 227.0278* | Aluminum | Al | 13 | 26,981539 ...

Sortie: 

 Actinium |Ac | 89 | 227.0278* Aluminum |Al | 13 | 26,981539

J'ai fait une macro: 

 Sub dela_igen() Dim i As Integer, j As Integer, cur_column As Integer cur_column = 1 For i = 1 To 100 For j = 1 To 4 Cells(i, j).Value = Cells(1, cur_column).Value cur_column = cur_column + 1 Next j Next i End Sub

A travaillé comme un charme!