• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• a-kuma32016/05/12 14:41:35

  満足100pt

  こんな感じで。

  Const INSERT_HEAD = 0
  Const APPEND_TAIL = 1
  
  Sub append_word_sub(target_col, insert_word, mode)
      last_row = Range(target_col & Rows.Count).End(xlUp).Row
  
      For r = 2 To last_row
          Set cell = Range(target_col & r)
          If Not IsEmpty(cell) And Not cell.Value = "" Then
              If mode = INSERT_HEAD Then
                  cell.Value = insert_word & cell.Value
              Else
                  cell.Value = cell.Value & insert_word
              End If
          Else
              Exit For
          End If
  
          DoEvents
      Next
  
  End Sub
  
  
  Sub append_word()
      Call append_word_sub("A", "【格安】", INSERT_HEAD)
  End Sub
  

  サブルーチン append_word を呼び出してください。
  表示されているシートで、A列の 2行目から空白のセルが出てくる行まで "【格安】" の文字を頭に挿入します。
  
  サブルーチン append_word は、サブルーチン append_word_sub を呼び出しているだけです。
  append_word_sub は、三つのパラメータを取ります。

  1. 文字列を挿入する列
  2. 挿入する語句
  3. INSERT_HEAD : 頭に語句を挿入 ／ APPEND_TAIL : 末尾に語句を挿入

  スター

  • 

    1件のコメントを見る

  • oshietekudasai19 2016/05/12 17:53:31

    迅速なご対応誠にありがとうございます！完璧でした！！感謝します。

    スター

その他の回答

この質問へのコメント

質問の情報

登録日時

2016-05-12 12:41:08

終了日時

2016-05-12 17:53:58

回答条件

1人1回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者111日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者111日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者15時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者115時間前
• 内定してほしいポケモンはいますか？匿名質問者16時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ