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

• #28891 bsh addikt rgqjx #28887

  Új Válasz 2015-10-06 16:12:53 #28891

  Ú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

  

  bsh

  addikt

  válasz rgqjx #28887 üzenetére

  makróval?
  Private Sub ize()
  i = 1
  c = 1
  While c <> Selection.Rows.Count - 1
  For s = c To Selection.Rows.Count - 1
  If (Abs(Selection.Cells(c, 2).Value - Selection.Cells(s + 1, 2).Value) < 50) And (Abs(Selection.Cells(c, 3).Value - Selection.Cells(s + 1, 3).Value) < 50) Then
  Cells(i, 4).Value = Selection.Cells(c, 1).Value
  Cells(i, 5).Value = Selection.Cells(s + 1, 1).Value
  i = i + 1
  End If
  Next s
  c = c + 1
  Wend
  End Sub
  (futtatás előtt ki kell jelölni az adatterületet, pl. A26, és a D és E oszlopba fogja gyűjteni a közel eső párokat)

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