Macro per contare il numero di stringhe di testo nel foglio in Excel 2003

Ho un foglio di lavoro per il punteggio.

Ho una lista nel primo foglio che sarà per l'immissione dei dati a partire da a2 e andando giù per il foglio, questo è per i nomi dei giocatori.

Ho un foglio di riepilogo chiamato "Luogo" che ha una formula per estrarre i dati.

Vorrei che una macro contasse il numero di stringhe di testo nel foglio "Setup" da A2 a qualsiasi cosa e poi riempi il foglio "Place" il numero corretto di volte.

Potresti usare qualcosa del genere

StringCount = 0

For i = 2 to range("A2").end(xldown).row 'assuming no breaks in data

If Typename(cells(i, 1).value) = "String" Then StringCount = StringCount + 1

Next i

Questo essenzialmente ti dà il numero di stringhe nella colonna A