Note: The other languages of the website are Google-translated. Back to English
登入  \/ 
x
or
x
註冊  \/ 
x

or

如何在Excel中的多個單元格中添加文本字符串?

如果我們需要在多個單元格中添加一些特定的文本或文本字符串,那麼將其複制並粘貼到每個單元格中將是一項艱鉅且耗時的工作。 以下方法可以幫助我們方便快捷地在多個單元格中添加特定文本。

Office選項卡在Office中啟用選項卡式編輯和瀏覽,並使您的工作更加輕鬆...
Kutools for Excel解決了您的大多數問題,並使您的生產率提高了80%
  • 重用任何東西: 將最常用或最複雜的公式,圖表等添加到您的收藏夾中,並在將來快速重用它們。
  • 超過20種文字功能: 從文本字符串中提取數字; 提取或刪除部分文字; 將數字和貨幣轉換為英文單詞。
  • 合併工具:將多個工作簿和工作表合二為一; 合併多個單元格/行/列,而不會丟失數據; 合併重複的行和總和。
  • 分割工具:根據價值將數據分割成多個工作表; 一本工作簿可轉換為多個Excel,PDF或CSV文件; 一列到多列。
  • 跳過粘貼 隱藏/過濾的行; 計數與求和 按背景色; 向多個收件人批量發送個性化電子郵件。
  • 超級過濾器: 創建高級過濾方案並應用於任何工作表; 分類 按星期,日期,頻率等 篩選 用粗體,公式,註釋...
  • 超過300種強大的功能; 適用於Office 2007-2019和365; 支持所有語言; 在您的企業或組織中輕鬆部署。

箭頭藍色右氣泡 使用VBA將特定文本添加到Excel中的多個單元格


使用VBA可以簡化我們的工作,並在多個單元格中添加特定文本,而無需複制和粘貼。

STEP 1: 選擇要在其中添加特定文本的單元格。

步驟2:按住 ALT + F11 鍵,並打開“ Microsoft Visual Basic應用程序”窗口。

步驟3:點擊 插入 >> 模塊,然後將以下宏粘貼到“模塊窗口”中。

子Add2Formula()
' 添加文字

對於每個c選擇
c。激活
ActiveCell.FormulaR1C1 =“測試-”&ActiveCell.Formula
接下來c

END SUB

步驟4:按下 F5 運行此宏的鍵。

備註:此宏只能添加 文字- 在每個單元格文本的前面。 如果要添加其他文本或字符串,請替換 文字– 與您要添加的特定文本。


箭頭藍色右氣泡 使用Kutools for Excel將特定文本添加到Excel中的多個單元格

對於Microsoft Excel的普通用戶,我們可能不熟悉VBA。 或者, Kutools for Excel的“添加文本”工具可以幫助我們快速,輕鬆地在多個單元格中添加特定的文本或字符串。

Kutools for Excel:具有300多個方便的Excel加載項,可以在30天內免費試用,沒有任何限制。 立即獲取

步驟1:選擇要在其中添加特定文本的單元格。

步驟2:點擊 Kutools > 文本工具 > 添加文字…。 看截圖:

步驟3:在 添加文本 對話框,在文本部分中輸入特定的文本和字符。

步驟4:檢查要在其中添加特定文本的位置 位置 部分。 (注意:如果您想在指定位置插入文字,請檢查 指定 並指定位置。)請參見屏幕截圖:

步驟5:點擊 OK or 輸入.

添加文本 Kutools for Excel工具支持我們在原始單元格文本之前或之後添加任何特定的文本和字符。 此外,我們可以在原始單元格文本之間添加特定的文本。 無論您設置哪種設置,都可以在“預覽”部分中預覽單元格的更改。


相關文章:


最佳辦公效率工具

Kutools for Excel解決了您的大多數問題,並使您的生產率提高了80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過300種強大功能。 支持Office / Excel 2007-2019和365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能30天免費試用。 60天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 每天將您的工作效率提高50%,並減少數百次鼠標單擊!
officetab底部
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Anish · 8 months ago
    how to add multiple cells and compare with one cell ,such that the one cell compared to value is dynamically changing. For example sum of column and you are adding values in the column then sum is dynamically changing.

    Thank you in Advance.
  • To post as a guest, your comment is unpublished.
    Peter · 3 years ago
    If i need to add values to text like: "text" value E12 "text" value E12 "text" valueE12 is it possible? need make SEO
  • To post as a guest, your comment is unpublished.
    cpk.adm@gmail.com · 3 years ago
    i want to add one character in before and after . please help .. mail me cpk.adm@gmail.com
  • To post as a guest, your comment is unpublished.
    cpk.adm@gmail.com · 3 years ago
    Private Sub CommandButton1_Click()
    On Error GoTo errorhandler:
    Dim objRange1 As Range
    Dim wk As Workbook

    'Set up the ranges


    Set objRange1 = Range("A22:A51")


    objRange1.TextToColumns , Destination:=Sheet1.Range("Z1"), _
    DataType:=xlDelimited, _
    Tab:=False, _
    Semicolon:=False, _
    Comma:=False, _
    Space:=False, _
    Other:=True, _
    OtherChar:="|"
    Dim rn As String
    Dim rn1 As String
    Dim rn2 As String
    Dim rep As String
    Dim res As String
    rep = "Do you want to copy Values?"
    res = MsgBox(rep, vbQuestion + vbYesNo, "???")
    If res = vbYes Then

    rn = InputBox(" Enter Range to Copy Circuit Id")
    Sheets("Sheet1").Range("AH1:AH10").Cut Destination:=Sheets("Sheet2").Range(rn)
    MsgBox (" Circuit Id has Successfully Pasted")
    rn1 = InputBox(" Enter Range to copy Order Reference")
    Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
    MsgBox (" Order Reference has Successfully Pasted")
    rn2 = InputBox(" Enter Range to copy Inventory Name")
    Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
    MsgBox (" Inventory has Successfully Pasted")
    Sheets("sheet1").Range("Z1:AM10").ClearContents
    Sheets("sheet2").Activate
    Else
    MsgBox (" Thank You")
    End If
    errorhandler:
    MsgBox ("you have clicked cancelled bitton")
    Sheet1.Activate
    End Sub


    Private Sub CommandButton2_Click()
    Sheet1.Range("A10:A32").ClearContents
    End Sub







    it is working , but i have to add text in one cell . please help me