Excel différenciant les chaînes et les nombres

Question

Dans un classeur Excel, j'ai besoin d'une macro Excel pour diviser l'Excel suivant en deux feuilles: avec une feuille ayant toutes les colonnes avec des chaînes et l'autre feuille avec toutes les colonnes comme nombres.

Dossier: Pays
- Colonne: Pays ([GOS.COUNTRY_MULTILINGUAL.COUNTRY], String)
- Colonne: Image Drapeau ([GOS.COUNTRY.FLAG_IMAGE], String)
- Colonne: CurrencyName ([ GOS.COUNTRY_MULTILINGUAL.CURRENCY_NAME], String)
- Colonne: Salescountrycode ([GOS.COUNTRY.COUNTRY_CODE], numéro)
- Colonne: Isotwolettercode ([GOS.COUNTRY.ISO_TWO_LETTER_CODE], String)
- Colonne: Isothreelettercode ([GOS.COUNTRY.ISO_THREE_LETTER_CODE], Chaîne)
- Colonne: Isothreedigitcode ([GO S.COUNTRY.ISO_THREE_DIGIT_CODE], String)
- Colonne: Euroinusesince ([GOS.COUNTRY.EURO_IN_USE_SINCE], date et heure)
Dossier: Taux de conversion
- Colonne: Conversionmonth ([GOS.CONVERSION_RATE.CONVERSION_MONTH], numéro)
- Colonne: Conversionyear ([GOS.CONVERSION_RATE.CONVERSION_YEAR], numéro)
- Colonne: Conversiontolocal ([GOS.CONVERSION_RATE.CONVERSION_TO_LOCAL], numéro)
dossier: Euro Conversion
- Colonne: Euromonth ([GOS .EURO_CONVERSION.EURO_MONTH], Numéro)
- Colonne: Euroyear ([GOS.EURO_CONVERSION.EURO_YEAR], Numbe r)
- Colonne: Eurotolocal ([GOS.EURO_CONVERSION.EURO_TO_LOCAL], numéro)
Dossier: Conditions
- Filtre: Asie ([GOS.COUNTRY_MULTILINGUAL.COUNTRY] dans ('Chine', 'Japon', Corée ',' Taiwan '), Booléen)
- Filtre: Europe ([GOS.COUNTRY_MULTILINGUAL.COUNTRY] dans (' Autriche ',' Belgique ',' Danemark ',' Angleterre ',' Finlande ',' France ',' Allemagne ',' Italie ',' Pays-Bas ',' Espagne ',' Suède ',' Suisse '), Booléen)
- Filtre: Amérique du Nord ([GOS.COUNTRY_MULTILINGUAL.COUNTRY] dans (' Canada ',' Mexique ') , 'United States'), Booléen)

Answer 1

Étant donné que vous avez d'autres types de colonnes en dehors de String et le numéro, je ne suis pas sûr de ce que vous voulez que votre défaut d'être, mais si vous vouliez tout le reste à être considéré comme une chaîne, puis il suffit d'utiliser:

Application.IsNumber(Range("A1").value)