*

Excelで全ての行のセルの頭や最後に文章を追加したい【マクロ使用】

公開日: : Excel

全てのセルに文章を追加したい

Excel にはマクロ機能といって Visual Basic を使ってプログラミングができる機能があります。ちょっとでも自分でプログラミングが出来ると作業の時短が出来て便利なんですよね。

今回は、何万行とある Excel 若しくは CSV ファイルのセルの頭か最後に文章を追加したいケースについてお話します。全ての行のセルをマウスでカチカチして1行ずつ入力しますか?そんな事をしていたら陽が暮れてしまいますね。

マクロを使って一瞬で終わらせる方法を紹介します。

マクロを使うために

デフォルトでは Visual Basic を使ってプログラミングする機能が隠されている場合もあります。上部タブに「開発」が無ければ隠されているので、設定画面で有効にする必要があります。

左上の「ファイル」タブからオプション画面を開きます。

Excel 2007の場合

基本設定に「開発」タブをリボンに表示するという項目があるのでチェックを入れます。

Excel 2010以降の場合

excel-kaihatu

「リボンのユーザー設定」から開発のチェックマークを入れて OK を押して設定を完了します。

visual-basic

すると開発タブが現れますので、「Visual Basic」ボタンを押して編集画面を開きます。

vbeditor

Visual Basic エディタを開いても、最初は何もありません。左のプロジェクトウィンドウから「VBA Project」を右クリックして「挿入」→「標準モジュール」を選択する事でようやくマクロを書く事ができます。

マクロで全てのセルの頭か最後に文章を追加する方法

そんなに長いマクロではないのでまずソースをご覧ください。

Sub セル末尾文章追加()
    Dim i As Integer
    For i = 2 To Sheets(1).UsedRange.Rows.Count
        Sheets(1).Cells(i, 29).Value = Sheets(1).Cells(i, 29).Value & "追加したい文章"
    Next
    Msgbox("終了")
End Sub

上のマクロは全ての29列目のセルの末尾に文章を追加するマクロです。29の部分を変えれば任意の列のセルに文章を追加する事ができます。

仕組みを簡単に説明すると、for文の繰り返し処理で29列目の2行目から最後の行まで文章を追加しています。処理が終わると「終了」という確認ウィンドウが出て知らせてくれます。

セルの頭に追加したい場合は以下のようにすればOKです。

Sub セル先頭文章追加()
    Dim i As Integer
    For i = 2 To Sheets(1).UsedRange.Rows.Count
        Sheets(1).Cells(i, 29).Value = "追加したい文章" & Sheets(1).Cells(i, 29).Value
    Next
    Msgbox("終了")
End Sub

ポイント

  • Sheets(1)は1番目のシートという意味
  • Sheets(1).Cells(i, 29)の29を変えると好きな列に追加出来る
  • UsedRange.Rows.Countは最後の行という意味

マクロの実行方法

visual-basic2

開発タブの「マクロ」ボタンを押して該当のマクロを選択して実行します。

注意点は、マクロはアンドゥが効きません。マクロを実行する前に別名で保存してバックアップする事をお勧めします。

おわりに

マクロのプログラムを見ると、何だこれは!?ややこしい!と思われるかもしれませんが、基本がわかってくるとやりたい事を自分でマクロを組んで作業の時短が出来るので覚えておいて損はないですよ。まずはコピペからでも良いですし、上のマクロのカスタマイズから始めても良いかもしれません。

私は下記のサイトでお世話になりました。

同じカテゴリの記事を見てみる  Excel

  • Pocket

おすすめトピックス

関連記事

Excelでセルの頭にプラス「+」を入力したいが消えたりエラーになる場合の対処法

Excel でセルの先頭にプラス「+」を入力したい。記号を入力するくらい基本的なことだと思いますが、意外と詰まりました。例えばセルに「+1000」と入力した場合、正の数のプラスは省略されてしまうので消えてしまいます。また […]

Excel数値に変換
Excelで大量の数値変換を一瞬で終わらせる方法

こんにちは。今日は知っているとかなりの時短になる Excel テクニックを紹介します。何万件という CSV データを扱っている人向けな豆知識です。それは文字列として保存されている大量の数値を一瞬で数値変換を行う方法です。 […]

Excel2010で最近使用したブックの一覧に表示しない、または表示数を指定する方法

Excel2010 で画面上部のタブからファイルをクリックして開くと最近使用したファイル(最近使用したブック)が一覧で表示されます。過去何ファイル分か開いたファイルを記憶していてくれるので、再度開く時にまたファイルを探し […]

Excelでシートを新規ブックにコピーする方法

Excel で既に出来上がったシートを新しい Excel ファイルにコピーする事はできるだろうか?同じ Excel ファイル内にコピーする方法は知っていましたが、別の Excel ファイルにコピーする方法も意外と簡単に出 […]

Excelでほかのデータソースへのリンクが含まれていますを表示しないで開く方法

Excel で一つのファイルに他の Excel ブックから値を読み込んでいるようなファイルを開くと「このブックには、ほかのデータソースへのリンクが含まれています。」という確認メッセージが表示されます。これは、ほかの Ex […]

Excel2016のセル移動など無駄なアニメーションを無効にする方法

Excel2016 を使う機会があったのですが、思いもよらない無駄機能があって驚きました。しかもなかなかな鬱陶しさです。それはセル移動の無駄なアニメーションです。今までならセルを選択してもすぐにカーソルが選択したセルへ移 […]

著者について

名前:Azell
作曲したり風景写真撮ったりWeb制作したりする人です。 好きな事を楽しくブログに綴れていけたらと思います。

フォローはこちら

       

       
Flash享年24歳、2020年に完全終了!Flashゲームの行先と代替方法は?

Adobe、2020年末でFlashのサポートを終了と発表 |

ログアウト
Googleアカウントのログアウト後も残るメールアドレスの消し方【ブラウザ別対処】

Google アカウントは今や多くの方が利用されていると思いま

わらび餅入り黒蜜かき氷
長浜市の和菓子屋さんが作る和風かき氷「ちゃらく」のわらび餅入り黒蜜かき氷

滋賀県長浜市ではかき氷専門店はありませんし本格かき氷を提供して

Premiere Elementsで動画の明るさや色調コントラストを補正する方法

写真の明るさや色調を補正する方法なら馴染みのある方法で Pho

ラジオのおすすめ音楽番組は「坂本美雨のディアフレンズ」

テレビの音楽番組は次々と終了して激減していますが、ラジオではま

→もっと見る