En familj av Microsoft-kalkylbladsprogram med verktyg för att analysera, kartlägga och kommunicera data.
Du kan välja helt fritt vilket område som gäller. Jag valde så Excel känner av sista raden, men har du annan data nedanför är det givetvis bra om du själv sätter området.
Ta bort raderna
Dim Antal As Long
och
Antal = ws.Range….
Sen gör du om raden
Set TabellOmr = ws.Range("A2:C" & Antal + 1)
så området omfattar din tabell, t ex
Set TabellOmr = ws.Range("A2:C109")
Slumpvärdet måste också korrigeras så antalet hamnar inom den mängd det finns namn
Slump = Int(Antal * Rnd() + 1)
Ta bort Antal och sätt in ett värde som matchar antalet, typ 108 om du har från 2 till 109.