Új hozzászólás Aktív témák

• #15842 poffsoft veterán akyyy #15839

  Új Válasz 2012-12-17 22:26:34 #15842

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  poffsoft

  veterán

  válasz akyyy #15839 üzenetére

  Option Explicit
  
  Sub kever()
  Dim sws, tws As Worksheet
  Dim i, endr, dest As Long
  Set sws = ActiveWorkbook.Sheets("Munka1")
  Set tws = ActiveWorkbook.Sheets("Munka2")
  endr = sws.Range("A65536").End(xlUp).Row
  sws.Range("V1:V" & Range("V65536").End(xlUp).Row).Clear
  tws.Range("A1:A" & Range("A65536").End(xlUp).Row).Clear
  sws.Range("A1:A" & endr).Copy Destination:=sws.Range("V1")
  Randomize
  For i = endr To 1 Step -1
  
  dest = Int((i) * Rnd() + 1)
  tws.Range("A" & (endr - i + 1)) = sws.Range("V" & dest)
  sws.Range("V" & (dest + 1) & ":V" & i).Copy Destination:=sws.Range("V" & (dest))
  sws.Range("V" & i).Clear
  Next i
  End Sub

  sws a forrás lap, tws a cél (ahová összekeveri)
  az "A" oszlopban kell lenni a kérdéseknek.

Új hozzászólás Aktív témák