Combinar celdas sin perder los valores utilizando VBA en Microsoft Excel
En este artículo, crearemos una macro para fusionar valores en dos celdas consecutivas.
Los datos brutos consisten en datos departamentales, que consisten en ID de departamento, Número de fila y Nombre.
En este artículo, queremos fusionar el ID de departamento y el Número de rollo en una sola columna.
Explicación del código
Hacer hasta que esté vacío (Celdas (IntRow, IntCol))
Bucle El código anterior se usa para recorrer hasta que se encuentra una celda vacía.
Celdas (IntRow, IntCol) = Celdas (IntRow, IntCol) & «-» & Celdas (IntRow, IntCol + 1)
El código anterior se usa para concatinar valores en una sola celda, separados por «-«.
Celdas (IntRow, IntCol + 1) .ClearContents El código anterior se utiliza para eliminar el contenido de la celda.
Rango (celdas (IntRow, IntCol), celdas (IntRow, IntCol + 1)). Fusionar El código anterior se utiliza para fusionar dos celdas consecutivas.
With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With El código anterior se usa para centrar la alineación del texto horizontal y verticalmente.
Siga a continuación el código
Option Explicit
Sub Connects()
'Declaring variables
Dim IntRow, IntCol As Integer
'Initializing row and column number of first cell
IntRow = 9
IntCol = 1
'Disabling screen updates
Application.ScreenUpdating = False
'Looping through cells until blank cell is encountered in first column
Do Until IsEmpty(Cells(IntRow, IntCol))
'Merging value from two cells in the first column
Cells(IntRow, IntCol) = Cells(IntRow, IntCol) & " - " & Cells(IntRow, IntCol + 1)
'Clearing content from second column
Cells(IntRow, IntCol + 1).ClearContents
'Merging two cells
Range(Cells(IntRow, IntCol), Cells(IntRow, IntCol + 1)).Merge
'Moving to next row
IntRow = IntRow + 1
Loop
'Formatting the first column
Columns(IntCol).Select
'Setting the horizonatal and vertical alignment to center
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Range("A10").Select
End Sub
Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]