(Excel) Convertir et compter beetwean 2 valeurs

Question

je besoin d'aide pour Excel convertir beetween 2 valeurs, par exemple:

Je numéro de valeur « 27-30 » je veux convertir en « 27,28,29, 30"

et valeur char "S-XL" je veux convertir en "S, M, L, XL"

Answer 1

Les numéros 28,29 and so on peuvent être bouclées facilement, mais pour les tailles comme S, M and L, vous avez besoin d'une table de consultation .

Column A contient vos tailles et Column E, la recherche pour non-numeric tailles,

Le code est ici, le résultat sur Column B,

Sub sizes() 
Dim i As Long, j As Long, str As String, rownum As Long 
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row 
    If IsNumeric(Left(Cells(i, 1), InStr(Cells(i, 1), "-") - 1)) Then 
     str = Left(Cells(i, 1), InStr(Cells(i, 1), "-") - 1) 
     For j = Left(Cells(i, 1), InStr(Cells(i, 1), "-") - 1) + 1 To _ 
       Mid(Cells(i, 1), InStr(Cells(i, 1), "-") + 1, 999) 
      str = str & " , " & j 
     Next j 
     Cells(i, 2) = str 
    Else 
     rownum = Application.WorksheetFunction.Match(Left(Cells(i, 1), InStr(Cells(i, 1), "-") - 1), Range("E:E"), 0) 
     str = Cells(rownum, 5) 
     rownum = rownum + 1 
     Do Until (Cells(rownum, 5) = Mid(Cells(i, 1), InStr(Cells(i, 1), "-") + 1, 999)) 
      str = str & " , " & Cells(rownum, 5) 
      rownum = rownum + 1 
     Loop 
     str = str & " , " & Cells(rownum, 5) 
     Cells(i, 2) = str 
    End If 
Next i 
End Sub