Cambie todas las celdas en ActiveSheet a valores usando VBA en Microsoft Excel

Tabla de contenido

En este capítulo, aprenderá a cambiar todas las celdas de la hoja activa a valores usando VBA en Microsoft Excel.

Tomemos un ejemplo y entendamos cómo escribimos el código VBA para cambiar el valor de las celdas en la hoja activa.

¿Cómo cambiar el valor de todas las celdas en la hoja activa?

Tenemos datos en Excel, en los que queremos reemplazar todos los valores de las celdas con solo un valor de celda.

Siga los pasos que se indican a continuación: -

  • Presione la tecla Alt + F11 para abrir la aplicación Visual Basic

  • En VBAProject, haga doble clic en la Hoja 1
  • Ingrese el código VBA dado a continuación
 Sub Values_1 () Con ActiveSheet.UsedRange Range ("A1: I7"). Valor = Rango ("A2"). Valor End With End Sub 

  • Para ejecutar el código presione la tecla F5
  • El valor de la celda A2 se actualizará en el rango definido

¿Cómo cambiar el valor de la primera tabla a la segunda tabla?

Tenemos 2 mesas, 1S t el rango de la tabla es A3: I5 y 2Dakota del Norte el rango de la tabla es A8: I10. Queremos reemplazar el valor de 1S t tabla con el valor de 2 tabla en la hoja activa.

Para cambiar el valor, siga los pasos y el código que se indican a continuación: -

  • Abra la aplicación de Visual Basic
  • Ingrese el siguiente código: -
Sub Values_1 () Con ActiveSheet.UsedRange Range ("A3: I5"). Value = Range ("A8: I10"). Valor End With End Sub 

  • Ejecute el código presionando F5
  • Los valores se actualizarán

Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook.

Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico

Va a ayudar al desarrollo del sitio, compartir la página con sus amigos

wave wave wave wave wave