web-dev-qa-db-ja.com

Excelの列のすべてのセルに同じテキストを追加する

Excelの列のすべてのセルにテキストを追加するにはどうすればよいですか？最後にコンマ（ "、"）を追加する必要があります。

例：

[email protected]は[email protected],になります

データサンプル：

[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
excelexcel-2007
65
Keyur Shah

これがうまくいくかどうかを確認してください。

  • すべてのデータは列Aにあります（行1から始まります）。
  • 列B、行1に、= A1＆ "、"と入力します
  • これにより、セルB1はコンマが追加されたA1と等しくなります。
  • 次に、セルB1を選択し、セルの右下からすべての行を下にドラッグします（これにより、数式がコピーされ、対応する列Aの値が使用されます。

それでおしまい！

183
Edward Leno

これは単純な「＆」関数です。

=cell&"yourtexthere"

例-セルにミッキーと表示されている場合、ミッキーマウスが必要です。ミッキーはA2です。 B2に入力します

=A2&" Mouse"

次に、値をコピーして「特別に貼り付け」ます。

B2 now reads "Mickey Mouse"
18
Melissa

それは簡単です......

=CONCATENATE(A1,",")

例：[email protected]がA1セルにある場合、別のセルに書き込む= CONCATENATE（A1、 "、"）

この式の後に[email protected]が得られます[email protected]、

削除式の場合：そのセルをコピーしてalt + e + s + vを使用するか、特別な値を貼り付けます。

16
AmanKumar

表示目的にのみ文字を追加する場合、追加の列またはVBAを使用する必要はありません。

この投稿 が示唆するように、あなたがする必要があるのは次のとおりです：

  1. 書式を適用するセルを選択します
  2. Homeタブをクリックします
  3. Numberをクリックします
  4. Customを選択します
  5. [Type]テキストボックスに、必要な文字の内側に数字のゼロを配置して、希望する書式を入力します。

フォーマット用のテキストの例：

  • 値120.00を保持するセルに$120Kを読み取らせたい場合は、$0Kと入力します。
6
user1205577

とてもシンプル....連結関数を使用してそれらをすべてセルに入れることができます

=CONCATENATE(A1,", ",A2,", ", and so on)
4
pumamammal

列を強調表示してから、Ctrl + Fを押します。 「.com」の検索と置換「.com」、「

そして、.inを検索して置換するための1つ

2
crisp411

セルの範囲を選択し、値を入力して、Ctrl + Enterを押します。もちろん、これを手動で行いたい場合はそうです。コードでそれを行いたい場合は、より具体的に、何を使用しますか。

1
Radoslav Hristov

私は別の答えのためにこれを書いた：あなたの例を使用してフォームを使用して呼び出す：appendTextToRange "[theRange]", ","。

Sub testit()
appendTextToRange "A1:D4000", "hey there"
End Sub
Sub appendTextToRange(rngAddress As String, append As String)
Dim arr() As Variant, c As Variant
arr = Range(rngAddress).Formula
For x = LBound(arr, 1) To UBound(arr, 1)
    For y = LBound(arr, 2) To UBound(arr, 2)
        Debug.Print arr(x, y)
        If arr(x, y) = "" Then
            arr(x, y) = append
        ElseIf Left(arr(x, y), 1) = "=" Then
            arr(x, y) = arr(x, y) & " & "" " & append & """"
        Else
            arr(x, y) = arr(x, y) & " " & append
        End If
    Next
Next
Range(rngAddress).Formula = arr
End Sub
1
Daniel

最初のセルにテキスト/値を入れてから、セルをコピーし、列全体をマークして、コピーしたテキスト/値を「貼り付け」ます。

これはExcel 97で動作します-申し訳ありませんが、私の側では他のバージョンは利用できません...

0
FrVaBe

最も簡単なのは、[データ]タブの下の[フラッシュフィル]オプションを使用することです。

  1. 元の入力列を左側（列Aなど）に保ち、右側に空白の列を追加します（列B、この新しい列は出力として扱われます）。

  2. 列Bのいくつかのセルに実際の予想出力を入力するだけです。この場合 ：

         [email protected], 
     [email protected],

  3. 次に、手動で入力した最初のセルと一緒に出力したい列範囲を選択します.....マジックを実行します...「Flash Fill」をクリックします。

基本的に、入力に対応する出力パターンを理解し、空のセルを埋めます。

0
abu sufyan