Como copiar automaticamente uma célula para a área de transferência com um único clique no Excel?

Normalmente, ao copiar uma célula para a área de transferência, você precisa selecionar a célula primeiro e depois pressionar as teclas Ctrl + C para copiá-la. Como copiar automaticamente uma célula apenas clicando nela, sem usar os atalhos? O método neste artigo pode ajudá-lo.

Copie automaticamente uma célula para a área de transferência ao clicar com o código VBA

Copie automaticamente uma célula para a área de transferência ao clicar com o código VBA

O seguinte código VBA pode ajudá-lo a copiar uma célula para a área de transferência apenas clicando nela no Excel. Por favor, siga os passos abaixo.

1. Abra a planilha onde deseja que as células sejam copiadas automaticamente para a área de transferência, clique com o botão direito na guia da planilha e selecione Visualizar Código no menu de contexto. Veja a captura de tela:

2. Na janela Microsoft Visual Basic for Applications que abrir, copie o código VBA na janela de Código.

Código VBA: Copie automaticamente uma célula para a área de transferência ao clicar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A9")) Is Nothing Then
        Target.Copy
    End If
End Sub

Observação: No código, A1:A9 são as células que serão copiadas automaticamente para a área de transferência. Altere conforme necessário.

3. Pressione as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.

Ao clicar em qualquer célula do intervalo A1:A9, a célula será copiada automaticamente para a área de transferência, como mostrado na captura de tela abaixo.

Depois disso, você pode selecionar uma célula de destino e pressionar a tecla Enter para colar o conteúdo copiado.

Artigos relacionados:

• Como copiar dados de células com altura de linha e largura de coluna no Excel?
• Como copiar e colar células automaticamente na planilha atual ou de uma planilha para outra no Excel?
• Como desativar as funções de recortar, copiar e colar no Excel?
• Como copiar apenas as bordas de um intervalo selecionado no Excel?