Onnistuuko
tämä?
1240
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Turvaa tilisi vahvistamalla puhelinnumerosi. Voit silloin palauttaa unohtuneen salasanan tekstiviestillä.
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 1
Vanhimmat
valitse kaikki laskettavat alueet ja nimeä ne esim. "alue". Lisää koodi moduuliin ja muokkaile sopivaksi
kirjoittaa nyt tulokset sarakkeisiin A ja B
Sub Koe()
Dim hakualue As Range
Dim luku(270) As Variant
Dim i As Integer
Set hakualue = Range("alue")
For Each cell In hakualue
luku(cell) = luku(cell) 1
Next
Range("A1") = "luku"
Range("B1") = "esiintymiskerrat"
Range("A2").Select
For i = 2 To 170
ActiveCell = i
ActiveCell.Offset(0, 1) = luku(i)
ActiveCell.Offset(1, 0).Select
Next
End Sub