Astuces Excel
  1. Astuces Excel
  3. Normiser datatables Excel concaténées
Intereting Posts
dddidence Marco Daea Da Marcodélégidence Marco Marcodélbe Tram Daea Da Marco Daño Dawoousse Marco illustrense Excel renforce-t-elle un nombre automatiquement? Comparer les colonnes de table avec la date actuelle dans excel VBA Nous n'avons pas pu actualiser une ou plusieurs connections de données dans ce classur Compteur multi-valeur Excel Pourquoi une ligne Excel ne peut-elle pas être "correctement" cachée à l'aide de POI d'Apache? comment get des données à partir du nom de colonne en utilisant le nom de la colonne Copier la ligne en fonction de la modification de la valeur de la cellule Importer des données depuis Excel vers SQL Server DB en utilisant LINQ vers Excel VBA Loop Through XML Nodes Utilisation de SelectSingleNode Comment calculer le montant total incrémental payé chaque fois qu'un montant est inscrit dans une autre colonne Erreur d'exécution '1004' Méthode 'Enregistrer' de l'object '_Workbook' échoué Utilisation de la gestion des erreurs dans VBA Exporter WPF Treeview vers Excel Le script VBA ne capture pas de graphique

Normiser datatables Excel concaténées

J'ai une feuille de calcul Excel qui a des données comme ceci: 

Task |TaskRepeat Task1 |M,W,F Task2 |T,Th

Je voudrais le transformer en ceci: 

 Task1 | M Task1 | W Task1 | F Task2 | T Task2 | Th

Je suis familier avec VBA, mais je l'utilise beaucoup plus dans Access que Excel. Existe-t-il une solution Excel à cette tâche (soit une formule soit une VBA)?

Voici le code, il suppose que votre list est dans Col A et B et placera la Liste en D et E et que datatables commencent à la rangée 2 

 Sub Normalize() Dim lngFirstRow As Long Dim lngLastRow As Long Dim cRow As Long Dim shSrc As Worksheet Dim lngNextDestRow As Long Dim varDay As Variant Dim arrDays() As Ssortingng Application.ScreenUpdating = False lngFirstRow = 2 lngNextDestRow = 2 Set shSrc = ActiveWorkbook.ActiveSheet With shSrc .Range("D1") = .Range("A1") .Range("E1") = .Range("B1") lngLastRow = .Cells.Find(What:="*", After:=.Cells.Cells(1), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row For cRow = lngFirstRow To lngLastRow Step 1 arrDays() = Split(.Range("B" & cRow), ",") For Each varDay In arrDays .Range("D" & lngNextDestRow) = .Range("A" & cRow) .Range("E" & lngNextDestRow) = varDay lngNextDestRow = lngNextDestRow + 1 Next varDay Next cRow End With Application.ScreenUpdating = True End Sub