Ative uma lista de URLs na coluna do Excel

Ative uma lista de URLs na coluna do Excel

Tenho mais de 1.700 registros de títulos de livros em um arquivo Excel. Cada um desses mais de 1.700 registros tem uma imagem de capa referenciada, e essas imagens de capa são nomeadas por parte do ISBN# do título (como 3-539-4.jpg). Todas essas imagens de capa precisam ser verificadas visualmente em relação aos registros do título para uma correspondência adequada.

O que descobri como processo é ter o URL local em uma coluna próxima à coluna do título. Clicar em cada URL abrirá a imagem em meu aplicativo de visualização para que o título da imagem da capa possa ser verificado como correspondendo ao título na célula adjacente. Tenho os URLs locais na coluna, mas preciso de um atalho para ativá-los todos, em vez de definir cada um individualmente na função Inserir hiperlink (o que levaria aproximadamente 1,5 eternidades).

Existe uma macro ou módulo VBA que posso usar para fazer isso acontecer em toda a coluna de URLs?

Abaixo está uma imagem do que comecei, mostrando o primeiro ativo.

Imagem de ativação de URL

Responder1

For each myCell in Range("A1:A1700")
    ActiveSheet.Hyperlinks.Add myCell, Address:=MyCell.Value
Next myCell

Ajuste para o intervalo real em que seus links estão.

Você também deve estar ciente de que não há validação no link, portanto, uma célula contendo "Texto Aleatório" será vinculada a "Texto Aleatório", seja esse um link válido ou não.

informação relacionada