Retenir les zéros de tête dans la sortie de la masortingce reformulée

J'essaie de conserver les zéros avancés dans une sortie de tableau qui utilise des types de données Variant et Long. Lorsque j'essaie de changer la variable D en Chaîne, j'obtiens une erreur de concordance de type. Un problème supplémentaire est que le nombre de zéros avancés doit être flexible car les valeurs varient de 4 à 9 numbers. Je collage tout le sous-dessous, ainsi qu'une capture d'écran des valeurs et des résultats d'input.

Merci d'avance pour toute suggestion!

Sub ExpandRanges() Dim ArrayData As Variant Dim ArrayOut As Variant Dim X As Long Dim D As Long Dim Index As Long ActiveSheet.Range("A1:B3").NumberFormat = "@" ArrayData = Range("A1:B3") ReDim ArrayOut(1 To Evaluate("Sum(B1:B3-A1:A3+1)"), 1 To 1) For X = 1 To UBound(ArrayData) For D = ArrayData(X, 1) To ArrayData(X, 2) Index = Index + 1 ArrayOut(Index, 1) = D Next Next With ActiveSheet.Range("D1").Resize(UBound(ArrayOut), 1) .Cells = ArrayOut End With End Sub 

• Définition du format de l'heure de la date pour l'éditeur de stream C # lors de l'écriture sur Excel
• Ouvrez les files Publisher dans un dossier et enregistrez-les en tant que documents Word
• Le filter automatique en excel échoue lorsque la sortie est vide (il apporte tout lorsque la sortie est vide)
• Raccourcir mon code
• Utilisation des styles de cellules fournis par le model ss dans Apache POI

• Importation d'Excel vers SQL Server: la conversion d'un type de données varchar en un type de date-date a donné lieu à une valeur hors-gamme
• Delphi – Excel. Comment annuler un sorting?
• Excel – Dates de return dans une list qui sont dans un timeout d'un an d'une autre date
• VBA sur excel – en utilisant le résultat d'un vlookup comme critère pour un match
• Comment créer un rapport TFS dans Excel montrant les tests passés et échoués par compilation à partir des résultats des tests publiés via mstest.exe