-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
bsh
őstag
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
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen