Excel: como adicionar decimais aleatórios a números com uma macro

0

Eu tenho uma lista de coordenadas gps para um mapa que precisamos randomizar um pouco, pois não podemos fornecer os endereços exatos. Eu gostaria de encurtar as coordenadas originais (que é a parte fácil, como eu só posso usar um dos botões no Excel para mover casas decimais), mas eu teria algumas duplicatas que se sobrepõem no mapa.

Como adiciono dois dígitos aleatórios no final de cada número?

As coordenadas completas seriam algo assim:

-41.12582016 175.0709534

Eu posso encurtar isso para:

-41.125 175.070

E então eu preciso gerar mais duas casas decimais para randomizar isso (no caso de double ups). Então, o acima ficaria assim por exemplo:

-41.12512 175.07034

Como eu faria isso para colunas de longitude e latitude para centenas de entradas de uma só vez com uma macro?

    
por lomenak 25.11.2015 / 08:55

1 resposta

3

Não há necessidade de uma macro:

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

SevocêrealmentequiserfazerissonoVBA,façaumaiteraçãonascélulascomoseguinte(aquielesóolhaparaA1):

Range("A1") = Range("A1") & Int((9 - 1 + 1) * Rnd + 1) & Int((9 - 1 + 1) * Rnd + 1)
    
por 25.11.2015 / 10:40