клик

Добрый день! Только учусь макросить, не могу понять, почему в крайней позиции объекты дублируются. Что-то связано со значением "1000", при значении "10" дублируются все позиции. Как исключить дублирование? Sub Tochki4() Dim x As Double, y As Double Dim Shift As Long Dim b As Boolean Dim s As...