在Excel中连接两列时如何加粗零件文本？

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

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！