Adicione texto específico em uma célula específica

Question

Como copio e colo um valor da célula A2 na célula especificada na célula A1. Por exemplo, A1 contém F3. E A2 contém 2. Quero escrever "2" na célula F3

Answer 1

Isso pode ser feito com o código abaixo:

Sheet1.Range(Sheet1.Range("A1").Value).Value = Sheet1.Range("A2").Value

Explicação

• Sheet1.Range("A1").Valueobterá o texto A1, portanto: Sheet1.Range(Sheet1.Range("A1").Value).Valueobtém o texto em qualquer célula referenciada em A1.
• Sheet1.Range("A2").Valuereceberá o texto A2.
• Como .Valueé configurável, estamos definindo o valor da célula referenciada para o texto em A2.