*

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 とは Microsoft 社の表計算ソフトです。大変いつもお世話になっています。今日は Excel のちょっとした TIPS をご紹介します。 Excel で○○という文字以降を全部消したいんですけど、良い方 […]

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

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

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

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

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

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

Excelでセル内の改行を検索し削除したい。

Excel のセル内には文字列や数字を入力する事ができますが、当然改行も入力する事ができます。メモ帳などのテキストエディタであれば Enter キーを押せば改行できますが Excel では次のセルへ移動してしまいます。 […]

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

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

著者について

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

フォローはこちら

       

       
divタグ
div要素のクラス名をnth-childの擬似クラスで何番目を指定しても効かない

CSS3 が登場して擬似クラス nth-child が使えるよ

PhotoshopなどAdobeソフトのシリアル番号を忘れたり紛失した場合

Photoshop など Adobe ソフトのシリアル番号はイ

メルカリのうるさすぎる不要なプッシュ通知を止める

CM でも放送されている誰でもかんたんフリマアプリとして代表的

シーリングファン
天井に取り付けられるプロペラ「シーリングファン」の意味とは?

天井が高いカフェやオフィスなどでたまに天井に取り付けられている

ASUSタブレットPC「T101HA」でPhotoshopは問題なく使える?

今まで外出先や旅行先で作業する為のモバイル端末として、Andr

→もっと見る