メインコンテンツへスキップ

Excelで選択したセルの中央にテキストを追加するにはどうすればよいですか?

開始文字Gと他の数字で構成されるデータのリストがあり、リスト全体の最初の文字Gの後に別の文字Dを追加するとします。 以下のスクリーンショットを参照してください。

これを達成するためにどのようにできますか? セルに文字をXNUMXつずつ追加すると、作業中に時間が無駄になるようです。 この記事では、Excelで選択したセルの中央に効率的な方法でテキストを追加する方法を紹介します。

数式を使用して、選択したセルの中央にテキストを追加します
選択したセルの中央にVBAコードでテキストを追加する
Kutools for Excelを使用して、選択したセルの中央にテキストを追加します


数式を使用して、選択したセルの中央にテキストを追加します

このセクションでは、選択したセルの中央にテキストを追加するための数式を提供します。 次のようにしてください。

1.この方法は、ヘルプ列を使用して実行する必要があります。 元のデータに隣接する空白のセルを選択します。ここでは、セルB2を選択します。

2.数式をコピーして貼り付けます = LEFT(A2,1)& "D"&MID(A2,2,100) 数式バーに入力し、を押します 入力します キー。 スクリーンショットを参照してください:

ノート:

  • 1)。 式で、番号1は、セルの最初の文字の後にテキストが追加されることを意味します。
  • 2)。 数字の2と100は、元のセルのXNUMX番目からXNUMX番目までの文字が、新しく挿入されたテキストの後に追加されることを示します。
  • 3)。 1番目の文字の後にテキストを追加する場合は、数式の数値を2から2に、3からXNUMXに変更してください。
  • 4)。 また、文字「D」は、セルに追加するテキストです。 必要に応じて変更してください。

3.セルB2を選択し、塗りつぶしハンドルをこの数式でカバーするセルまでドラッグします。 リスト全体のセルの中央にテキストが追加されていることがわかります。

ヒント:上記の式の他に、この式を適用することもできます = REPLACE(A2,2,0、 "D")、(数字の2はテキストを挿入する場所を示し、文字Dは追加する必要のあるテキストを示します。必要に応じて変更できます)、Enterキーを押して結果を取得します。


Excelで選択したすべてのセルの先頭または末尾にテキストを追加します。

Excel用のKutools テキストを追加 ユーティリティは、Excelの選択範囲のセルの先頭または末尾に指定されたテキストをすばやく追加できます。
今すぐKutoolsfor Excelの全機能を30日間無料でダウンロードしてください!


選択したセルの中央にVBAコードでテキストを追加する

さらに、VBAコードを使用して、選択したセルの中央にテキストを追加できます。

1.を押してください 他の + F11 を開く Microsoft VisualBasicアプリケーション 窓。

2。 クリック インセット > モジュール。 次に、以下のVBAコードをコピーしてコードエディターに貼り付けます。

VBAコード:最初の文字の後のデータのリストにテキストを追加します

Sub AddString()
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	For Each Rng In WorkRng
		Rng.Value = VBA.Left(Rng.Value, 1) & "D" & VBA.Mid(Rng.Value, 2, VBA.Len(Rng.Value) - 1)
	Next
End Sub

3。 押す F5 コードを実行するためのキー、およびポップアップで Kutools for Excel ダイアログボックスで、テキストを追加する範囲を選択し、最後に[ OK

これで、選択したセルの最初の文字の後に、指定したテキストが追加されます。

Note:上記のコードでは、セル内の最初の文字の後に特定の値を挿入します。このスクリプトの1番目の文字の後にテキストを追加する場合は、数値2と2を数値3とXNUMXに変更できます。 VBA.Left(Rng.Value、1)& "D"&VBA.Mid(Rng.Value、2、VBA.Len(Rng.Value)-1)、および文字Dは、挿入する新しいテキストです。


Kutools for Excelを使用して、選択したセルの中央にテキストを追加します

上記のXNUMXつの方法は私たちにとって不便であることを認めなければなりません。 ここでお見せします テキストを追加 の有用性 Kutools for Excel、このユーティリティを使用すると、リストの中央の位置を簡単に指定し、同時に特定のテキストをリスト全体のその位置に追加できます。

申請する前に Kutools for Excelについては 最初にダウンロードしてインストールします.

1.セルの中央にテキストを追加するリストを選択し、[ クツール > テキスト > テキストを追加。 スクリーンショットを参照してください:

2。 の中に テキストを追加 ダイアログボックスで、セルに追加するテキストを テキスト ボックスで、テキストを追加する位置を指定します。 指定 オプション(ここでは番号1を入力します)をクリックしてから、 OK ボタン。 (右のボックスで追加結果をすぐにプレビューできます)

Note:選択したセルの複数の位置に一度にテキストを追加する場合は、カンマで区切って位置を指定できます。 指定 ボックス。 スクリーンショットを参照してください:

これで、選択したリストの最初の文字の後に、指定したテキストが追加されます。

  このユーティリティの無料トライアル(30日)が必要な場合は、 クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。


Kutools for Excelを使用して、選択したセルの中央にテキストを追加します


関連記事:.

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Boa tarde, tudo bem ?

Eu testei as duas fórmulas e não funcionaram. Inclusive testei também no mesmo cenário descrito no texto e também não funcionou. Poderia verificar se falta algo na fórmula do excel ?
This comment was minimized by the moderator on the site
Tive o mesmo problema, mas segui pela resposta que enviaram aqui, a formula para o excel em português seria =ESQUERDA(A2;1) & "D" & EXT.TEXTO(A2;2;100)

A parte da fórmula que dá o erro seria o "MID" que precisa ser substituído por "EXT.TEXTO"
This comment was minimized by the moderator on the site
Hi Matheus C.,
If you are using the Excel version in a different language than English, please convert the formula from English to the language you are currently using.
You can translate the formula in this page: https://de.excel-translator.de/translator/
This comment was minimized by the moderator on the site
Hi Vick,
The formula provided in the post can only be applied in English system environment Excel. If you have Excel in a different language than English, please convert the formula from English to the language you are currently using.
It seems that you are using the Excel in Portuguese language system. You need to change the commas in the formula to semicolons.
You can translate the formula in this page: https://de.excel-translator.de/translator/
This comment was minimized by the moderator on the site
TRIMAKASIH KAK, SANGAT MEMBANTUUUU
This comment was minimized by the moderator on the site
This seems complicated. For the originally stated problem why not just do a search for G and replace all with GD?
This comment was minimized by the moderator on the site
Because you might want to insert a specific character at a certain index of the string. What if they weren't all G's? This was just to provide an example of how it works.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations