エクセルのある列に一文付け加えたい！

質問

３００行ほどデータ入力したある列があります。

全てのカラムの最後に

「※これはフィクションです。」

と加えたいと考えております。
わざわざ３００行それぞれにコピペを繰り返していては、
時間がかかりすぎてしまいす。

何か機能を使って自動的に入力する方法はないでしょうか？

回答No.2

keithin · ベストアンサー

列ごと選んで右クリックしてセルの書式設定を出し，表示形式のユーザー定義で
@"※これはフィクションです。"
と記入してＯＫします。

＃ただし
セルには言葉を記入してあるとする

回答No.3

tom04

こんばんは！
列数は何列なのか判らないので、VBAでの一例です。
データはA1セルからあるとします。

画面左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt+F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i, j As Long
Dim str As String
str = InputBox("入力したい語句を入力")
Application.ScreenUpdating = False
For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To Cells(Rows.Count, j).End(xlUp).Row
Cells(i, j) = Cells(i, j) & str
Next i
Next j
Columns.AutoFit
Application.ScreenUpdating = True
End Sub 'この行まで

※　一旦マクロを実行すると元に戻せませんので、
別Sheetでマクロを試してみてください。m(_ _)m

回答No.1

bin-chan

> わざわざ３００行それぞれにコピペを繰り返していては、
現在のデータが、シート１上に入力されていてシート２が空と言う前提で。
何列あるのか不明ですが仮に３列（列A、B、Cとします）

１）シート２のセルA1を選択
２）セルA1に式[=Sheet1!A1&"※これはフィクションです。"]を設定
３）シート２のセルA1を「コピー」
４）シート２のセルB1とC1を選択して「貼り付け」
５）シート２のセルA1からC1を選択して、右下にある■を下方向に「ドラッグ」

結果は「式の結果」なので、値にしたいなら、
６）シート２のセルA1を選択し、Ctrl+Shift+Endキー押下
７）右クリックして「形式を選択して貼り付け」-値(V)を選択して「OK」