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

• #29584 zone őstag Ipadipad #29578

  Új Válasz 2014-01-21 19:54:35 #29584

  Ú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

  

  zone

  őstag

  válasz Ipadipad #29578 üzenetére

  Találtam egy Excel makrót, ami majdnem ezt csinálja (A oszlopból generálja a párokat C és D oszlopba), hibája, hogy egy szót önmagával is párosít. Kiindulásnak hátha jó, egy hozzáértő talán tudja módosítani.

  Sub Combinations()
  Dim RNG As Range, cell As Range, cell2 As Range, NR As Long
  
  Set RNG = Range("A:A").SpecialCells(xlConstants)
  NR = 1
  Application.ScreenUpdating = False
  
  For Each cell In RNG
  For Each cell2 In RNG
  Range("C" & NR).Value = cell.Value
  Range("D" & NR).Value = cell2.Value
  NR = NR + 1
  Next cell2
  Next cell
  
  Application.ScreenUpdating = True
  End Sub

  (#29583) ben
  Ha fizetős program, biztosan van ügyfélszolgálata. Egyébként játékokból az MSI Afterburner-rel is tudsz felvenni videót, ami ingyenes. De ott van még az Xfire is.

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