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

• #27154 lappy őstag kangool #27152

  Új Válasz 2015-05-29 14:48:49 #27154

  Ú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

  

  lappy

  őstag

  válasz kangool #27152 üzenetére

  Ha meg van a szöveg akkor meg így lehet minden kombinációt legyártani

  Alt+F11 VBA mód,
  Insert ► Module (Alt+I,M). beilleszt Book1 - Module1 (Code),
  
  Sub name_by_name()
  Dim i As Long, j As Long, lr As Long
  With ActiveSheet
  lr = .Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To lr
  For j = i + 1 To lr
  .Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = _
  .Cells(i, 1).Value & ", " & .Cells(j, 1).Value
  Next j
  Next i
  End With
  End Sub

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