Premešajmo vrstice

Odprite Excelovo datoteko, v kateri imate podatke.

Priporočamo

Brezplačni tečaj Microsoft Excela

Spoznajte vse osnovne, napredne in ostale uporabne funkcije, s katerimi boste obvladali najbolj priljubljen program za obdelavo podatkov.

Kliknite Alt+F11, da odprete VBA. Sedaj kliknite na majhno črno puščico in nato na Module.

Prilepite spodnjo kodo:

Sub PremesajVrstice()
    Dim i, first, last, count, rnd, r1, r2
   
    first = Selection.Row
    last = Selection.Rows.count + Selection.Row - 1
    count = Selection.Rows.count
   
    For i = first To last
        Randomize
        rnd = Math.Round(Math.rnd * (count - 1), 0) + 1
      
        r1 = Range(i & ":" & i)
        r2 = Range(rnd & ":" & rnd)

        Range(rnd & ":" & rnd) = r1
        Range(i & ":" & i) = r2
    Next
End Sub

Sedaj pojdite nazaj v Excel in označite vaše vrstice.

Ponovno odprite VBA in pritisnite zeleno puščico na vrhu.

Vrstice so sedaj naključno premešane :)