如何在Excel單元格中僅加粗第一行或第一個單詞？

在Excel工作表中，可能會有很多包含多行的單元格，這些單元格由Alt + Enter鍵分隔。 在某些情況下，您可能只需要在這些單元格中加粗第一行。 或僅將第一個單詞加粗以使其在細(xì)胞中表現(xiàn)出色。 本文詳細(xì)介紹了兩種實現(xiàn)方法。

僅用VBA代碼加粗單元格中的第一行 僅使用VBA代碼將單元格中的第一個單詞加粗

僅用VBA代碼加粗單元格中的第一行驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節(jié)省50％的時間，并減少數(shù)千次鼠標(biāo)單擊！

下面的VBA代碼可以幫助您快速加粗所選單元格中的第一行。 請執(zhí)行以下操作。

1。 按 其他 + F11 同時打開 Microsoft Visual Basic應(yīng)用程序 窗口。

2.在 Microsoft Visual Basic應(yīng)用程序 窗口中，單擊 插頁 > 模塊。 然后將下面的VBA代碼復(fù)制并粘貼到“模塊”窗口中。

VBA代碼：僅粗體顯示單元格中的第一行

Option ExplicitSub BoldFirstLine()Dim xRng As Range, xCell As RangeDim xFirstRow As StringOn Error Resume NextSet xRng = Application.InputBox("Please select range：", "Kutools for", Selection.Address, , , , , 8)If xRng Is Nothing Then Exit SubOn Error Resume NextFor Each xCell In xRngWith xCell.Characters(1, InStr(.Value, Chr(10))).Font.Bold = TrueEnd WithNextEnd SubCopy

3。 按 F5 鍵來運行代碼。 然后一個 Kutools for Excel 彈出對話框，請選擇要加粗的第一行，然后單擊 OK 按鈕。

然后，您可以立即看到所選單元格的所有第一行均以粗體顯示，如下圖所示。

僅使用VBA代碼將單元格中的第一個單詞加粗

如下圖所示，有時，您只需要在Excel中的A2：A4范圍內(nèi)加粗第一個單詞。 您可以按以下步驟逐步實現(xiàn)。

1。 按 其他 + F11 同時打開 Microsoft Visual Basic應(yīng)用程序 窗口。

2.在 Microsoft Visual Basic應(yīng)用程序 窗口中，單擊 插頁 > 模塊。 然后將下面的VBA代碼復(fù)制并粘貼到“模塊”窗口中。

VBA代碼：僅粗體顯示單元格中的第一個單詞

Sub boldtext()Dim xRng As Range, xCell As RangeOn Error Resume NextSet xRng = Application.InputBox("Please select range：", "Kutools fro Excel", Selection.Address, , , , , 8)If xRng Is Nothing Then Exit SubOn Error Resume NextFor Each xCell In xRngIf xCell.Value <> "" ThenxCell.Characters(1, InStr(1, xCell.Value, " ") - 1).Font.Bold = TrueEnd IfNextEnd SubCopy

3。 按 F5 鍵來運行代碼。 在彈出 Kutools for Excel 對話框中，選擇要使第一個單詞加粗的范圍，然后按 OK 按鈕。 看截圖：

然后，您可以立即看到所選單元格的所有第一個單詞都以粗體顯示，如下圖所示。

相關(guān)文章:如何刪除Excel中單元格中的所有空白行或僅第一行？

最佳辦公生產(chǎn)力工具

將小時轉(zhuǎn)化為分鐘 Kutools for Excel!

準(zhǔn)備好增強您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel