Excel: как добавить случайные десятичные числа к числам с помощью макроса

Question

У меня есть список GPS-координат для карты, которую нам нужно немного рандомизировать, поскольку мы не можем предоставить точные адреса. Я хотел бы сократить исходные координаты (это простая часть, поскольку я могу просто использовать одну из кнопок в Excel для перемещения десятичных знаков), но тогда у меня будут некоторые дубликаты, которые будут перекрываться на карте.

Как добавить случайные две цифры в конце каждого числа?

Полные координаты будут примерно такими:

-41.12582016 175.0709534

Я могу сократить это до:

-41,125 175,070

И затем мне нужно сгенерировать еще два десятичных знака, чтобы рандомизировать это (в случае двойных подъемов). Таким образом, приведенное выше будет выглядеть, например, так:

-41.12512 175.07034

Как бы я сделал это для столбцов долготы и широты для сотен записей одновременно с макросом?

Answer 1

Нет необходимости в макросе:

=A1 & RANDBETWEEN(0;9) & RANDBETWEEN(0;9)

Если вы действительно хотите сделать это в VBA, выполните итерации по ячейкам со следующим (здесь это только смотрит на A1):

Range("A1") = Range("A1") & Int((9 - 1 + 1) * Rnd + 1) & Int((9 - 1 + 1) * Rnd + 1)