¿Cómo copiar automáticamente una celda al portapapeles con un solo clic en Excel?
Normalmente, al copiar una celda al portapapeles, primero debe seleccionar la celda y luego presionar el botón Ctrl + C clave para copiarlo. ¿Cómo copiar automáticamente una celda con solo hacer clic en ella sin presionar las teclas de acceso rápido? El método de este artículo puede ayudarte.
Copie automáticamente una celda al portapapeles haciendo clic con el código VBA
Copie automáticamente una celda al portapapeles haciendo clic con el código VBA
El siguiente código de VBA puede ayudarlo a copiar una celda en el portapapeles con solo hacer clic en Excel. Haz lo siguiente.
1. Abra la hoja de trabajo en la que desea hacer que las celdas se copien al portapapeles automáticamente, haga clic con el botón derecho en la pestaña de la hoja y luego seleccione Ver código desde el menú contextual. Ver captura de pantalla:
2. En la apertura Microsoft Visual Basic para aplicaciones ventana, copie el código VBA en la ventana Código.
Código VBA: copie automáticamente una celda al portapapeles haciendo clic en
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A9")) Is Nothing Then
Target.Copy
End If
End Sub
Note: En el código, A1:A9 son las celdas que copiará al portapapeles automáticamente. Cámbielo según sus necesidades.
3. presione el otro + Q llaves para cerrar el Microsoft Visual Basic para aplicaciones ventana.
Al hacer clic en cualquier celda del rango A1:A9, la celda se copiará automáticamente al portapapeles como se muestra a continuación.
Y luego, puede seleccionar una celda de destino y presionar la tecla Intro para pegar el contenido copiado.
Artículos relacionados:
- ¿Cómo copiar datos de celdas con altura de fila y ancho de columna en Excel?
- ¿Cómo copiar y pegar automáticamente la celda en la hoja actual o de una hoja a otra en Excel?
- ¿Cómo deshabilitar las funciones de cortar, copiar y pegar en Excel?
- ¿Cómo copiar solo los bordes del rango seleccionado en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!