¿Cómo poner en negrita el texto cuando se concatenan dos columnas en Excel?
En la hoja de cálculo de Excel, después de concatenar dos valores de celda con fórmulas, es posible que no aparezca en negrita parte del texto en la celda de fórmula combinada. Esto puede ser molesto a veces, ¿cómo podría poner el texto en negrita al concatenar dos columnas en Excel?
Texto en negrita al concatenar dos columnas con código VBA
Texto en negrita al concatenar dos columnas con código VBA
Por ejemplo, tengo dos columnas de datos, ahora, quiero combinar estas dos columnas en una columna y formatear el primer valor en negrita como se muestra en la siguiente captura de pantalla:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: texto en negrita al concatenar dos columnas:
Sub JoinCellsWithBoldFormatForFirstWord()
'Updateby Extendoffice 20160725
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "only two columns in the selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Set xRg = xRg.Resize(xRg.Rows, 3)
On Error Resume Next
For Each xCell In xRg.Columns(3).Cells
xCell = xRg.Cells(xCell.Row, 1) & " " & xRg.Cells(xCell.Row, 2)
xCell.Font.Bold = False
xCell.Characters(1, Len(xRg.Cells(xCell.Row, 1))).Font.FontStyle = "Bold"
Next
End Sub
3. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro emergente para recordarle que seleccione el rango de datos que desea combinar y en negrita, vea la captura de pantalla:
4. Y luego haz clic OK , y todas las dos palabras en las filas se han combinado en las celdas al lado del rango de datos y la primera palabra también está en negrita, vea la captura de pantalla:
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!
