Astuces Excel
  1. Astuces Excel
  3. Copiez dans différentes colonnes ce qui est pair et impair séparant par ":"
Intereting Posts
Trier deux colonnes Excel Existe-t-il un raccourci pour éditer des milliers de formules Excel? J'ai besoin d'écrire la list des loggings de la list Row_Items dans une feuille excel dans la colonne F (sous Incident coumn) Excel vba counturs et leur durée de vie (ish) Comment convertir des valeurs dans une colonne spécifique dans un csv en python? Comment puis-je lire plusieurs colonnes à partir d'une database Access? Message global pour différents boîtes de message Obtenir la valeur sélectionnée d'une stack combinée activex à l'aide de vba Comment appliquer une formule bit à une gamme à l'aide de VBA Exporter depuis Excel vers html Création d'un graphique en tant que GIF et chargement sur UserForm Création d'un classur Excel dans un stockage isolé Extraire une valeur de colonne d'un onglet de la touche et l'affecter à une autre valeur d'onglet en utilisant une formule Copier / Coller n fois basé sur d'autres valeurs cellulaires Erreur 1004 avec nom de file ouvert, hyperlink vers CSV, problème de longueur de string? – Excel VBA

Copiez dans différentes colonnes ce qui est pair et impair séparant par ":"

J'ai le code suivant: A106: A107: A110: A111: A112: A113: A118: A119

J'aimerais get une réponse dans deux colonnes différentes: pair et impair .

Exemple: A106: A110: A112: A118 et A107: A111: A113: A119 .

Quelqu'un pourrait-il me donner une idée de ce qu'il faut faire automatiquement?

Essayez cette fonction VBA: 

 Public Function ExtractOdds(Data As Ssortingng, Delimiter As Ssortingng, IsOdd As Boolean) As Ssortingng Dim Elements() As Ssortingng Dim Result As Ssortingng Elements = Split(Data, Delimiter) For Each Item In Elements If Right(Item, 1) Mod 2 = -IsOdd Then If Len(Result) > 0 Then Result = Result & Delimiter End If Result = Result & Item End If Next Item ExtractOdds = Result End Function

Utilisation pour extraire des valeurs impaires 

 =ExtractOdds(A1,":",TRUE)

Utilisation pour extraire des valeurs égales: 

 =ExtractOdds(A1,":",FALSE)

Cela le ferait: 

 Sub Test() Dim sPart, sFull As Ssortingng Dim WS1, WS2 As Worksheet Dim i As Long Set WS1 = ActiveSheet sFull = "A106:A107:A110:A111:A112:A113:A118:A119" Sheets.Add After:=Sheets(Sheets.Count) Set WS2 = ActiveSheet WS2.Range("A1").Value = "Odd" WS2.Range("B1").Value = "Even" Do While InStr(sFull, ":") sPart = Left(sFull, InStr(sFull, ":")) i = Mid(sPart, 2, Len(sPart) - 2) If i Mod 2 <> 0 Then WS2.Range("A" & WS2.Rows.Count).End(xlUp).Offset(1).Value = Left(sPart, Len(sPart) - 1) Else WS2.Range("B" & WS2.Rows.Count).End(xlUp).Offset(1).Value = Left(sPart, Len(sPart) - 1) End If sFull = Right(sFull, Len(sFull) - Len(sPart)) Loop sPart = sFull i = Mid(sPart, 2, Len(sPart) - 1) If i Mod 2 <> 0 Then WS2.Range("A" & WS2.Rows.Count).End(xlUp).Offset(1).Value = Left(sPart, Len(sPart) - 1) Else WS2.Range("B" & WS2.Rows.Count).End(xlUp).Offset(1).Value = Left(sPart, Len(sPart) - 1) End If End Sub