• ベストアンサー

エクセルで一行おきに同じ記号を挿入するマクロ

エクセルでデータ管理をしているのですが、2行で1データになっています。 1行目、3行目、5行目・・・という具合に、1行おきに「*」を入れていくマクロはどう書けばいいでしょうか。 このような感じです。 * 東京都新宿区  ○山×夫 * 神奈川県横浜市  ○川×子 * 京都市下京区  ○村×郎 データ数が多いので、ひとつずつ打ち込むのは大変です。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • yidong
  • ベストアンサー率37% (25/67)
回答No.3

「*」用に1列追加して良いのであれば A1 に "*"(アスタリスク) A2 に ""(空) を入力し、A1~A2 を選択して 選択範囲の右下の■をドラッグすればOK これで1行おきに * が入力されます。 マクロでやりたいのであれば別ですが・・・

cs-megami
質問者

お礼

ありがとうございます。 連続データの作成はこの手を使ってたんですが、こうしたこともできるんですね。 この方法が一番手っ取り早いですね。 助かりました。

その他の回答 (3)

  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.4

A列のデータに隔行おきに*を追加するマクロです。 Sub TEST01() i = 1 Do While Cells(i, 1) <> "" If i / 2 <> Int(i / 2) Then Cells(i, 1).Value = "*" & Cells(i, 1).Value End If i = i + 1 Loop End Sub

cs-megami
質問者

お礼

ありがとうございます。 早速やってみます。

noname#33353
noname#33353
回答No.2

こういうのでいいんでしょうか?? Sub test() Dim i As Integer For i = 1 To 9999 Step 2 If Len(Sheet1.Cells(i, 1).Value) = 0 Then Exit For End If Sheet1.Cells(i, 1).Value = "*" & Sheet1.Cells(i, 1).Value Next i End Sub

cs-megami
質問者

お礼

ありがとうございます。実行してみます。

  • kokorone
  • ベストアンサー率38% (417/1093)
回答No.1

新しいマクロの記録で、1件分登録して、繰り返し実行してみては?

cs-megami
質問者

お礼

ありがとうございます。 それやってみたんですが、同じ1件分のところを上書きするだけなんですよ。 該当部分にカーソルを合わせるのも、数が多くて大変で・・・

関連するQ&A

  • Excelのマクロ『困ってます!』

    Excelで、以下のような機能を持ったマクロをつくりたいのですが、情けないのですが全くできません。 わかる方、どうかよろしくお願いいたします。 Sheet1のA1~D1の値(例では、東京、練馬区、○○、△△)を、 全て「含む」Sheet2のセルに目印をつけ(例は隣のセルに「○」と入力)し、 それが終わったらSheet1のA2~D2の値(例では、東京、練馬区、○○、□□)で・・・ の繰り返しです。 あくまでSheet1の値を全て「含む」ものが対象なので、Sheet2の5行目のように、 余計な値(例では★)が混じっているものも対象としたいです。 例: [Sheet1] 1 |東京都|練馬区|○○ |△△ | 2 |東京都|練馬区|○○ |□□ | 3 |東京都|目黒区|●● |■■ | 4 |埼玉県|川口市|◇◇ |×× | [Sheet2] 1 | |東京都港区・・・・ 2 | |東京都練馬区・・・・・ 3 | |東京都練馬区○○◎◎ 4 |○|東京都練馬区○○△△ 5 |○|東京都練馬区★○○★□□ 6 | |東京都練馬区★★□□ 7 |○|東京都目黒区●●■■ 8 |○|埼玉県川口市◇◇×× 9 | |神奈川県・・・・・

  • Excel VBAでファイルを1つづつ保存する方法

    ファイルAとファイルBと写真データが格納されているファルダAがあります。 ファイルAのNoと一致する写真データと、ファイルAのデータを1行づつ ファイルBに転記してNo名で1つづつ保存したいです。 データは2000件ぐらいあり、手作業では困難になってしまい教えていただければ 助かります。 ご教授の程、宜しくお願いします。 【ファイルA】 ------------------------------------------------------ No 都道府県  市町村    品数 11 東京都 千代田区      50 15 埼玉県 さいたま市 30 17 神奈川県 横浜市      60 19 京都府 京都市      85 20 大阪府 堺市       99 5000 沖縄県 那覇市    10 ------------------------------------------------------ 【ファイルB】 ファイルAから各行ごとにセルに配置して保存する ------------------------------------------------------ A1 A2(都道府県:) B2    E5 A3(市町村:) B3 A6(品数:) B6 ------------------------------------------------------ 【フォルダA】 写真データ ファイルAとファイルBと同じ場所にフォルダAに格納されている ------------------------------------------------------ CL0011.jpg CL0015.jpg CL0017.jpg CL0019.jpg CL0020.jpg CL5000.jpg ------------------------------------------------------   ↓   ↓   下記が希望の結果です。   ↓   ↓ 【11.xlsx】 ------------------------------------------------------ 11 都道府県: 東京都      写真 市 町 村: 千代田区 CL0011.jpg 品   数: 50 ------------------------------------------------------ 【15.xlsx】 ------------------------------------------------------ 15 都道府県: 埼玉県      写真 市 町 村: 千代田区 CL0015.jpg 品   数: 30 ------------------------------------------------------ 【17.xlsx】 ------------------------------------------------------ 17 都道府県: 神奈川県      写真 市 町 村: 横浜市 CL0017.jpg 品   数: 30 ------------------------------------------------------ 宜しくお願いします。

  • エクセル2003によるsumifに複数バージョン

    エクセル2003で以下の条件の関数を作成したいと考えております。 教えて頂けないでしょうか? A列、B列、C列、D列があり。 求めたいのは、【A列が「100」に等しい かつ (B列に「東京」という文字が含まれる または C列に「横浜市」が含まれる)場合のD列の和】になります。 A    B    C     D 100 東京都  三鷹市  1200 100 神奈川県 横浜市  2000 200 東京都  三鷹市  1200 100 京都    京都市  1000 100 神奈川県 ああ横浜  100 の場合、計算したいセルには1200+2000+100の3300が表示されるようにしたいです。 SUMIF関数を使いましたが、うまくできません。 また2007ではない為SUMIFS関数もない状態で困っています。 教えて頂けませんでしょうか?

  • 「市」と「区」…?

    ふと疑問に思ったので、どなたか教えて下さい。(カテ違いでしたらすみません…。) 東京都って市と区が独立(?)していますよね? 例えば、「東京都渋谷区」「東京都新宿区」と「東京都国立市」「東京都国分寺市」のように。 でも区を持っている他の県は、市に区が従属してますよね。 例えば、「神奈川県横浜市泉区」とか「京都府京都市東山区」とか「大阪府大阪市旭区」のように。 こう言うと語弊があるかも知れませんが、住所の書かれ方では、東京の場合「市=区」で、他は「市>区」のような……。 この違いは何なんでしょうか?東京だけなぜ例外なのですか? また、「市」と「区」はどういうものなのですか?法律ではどのように定められているのでしょうか? お分かりになる方がいましたら、よろしくお願いします。

  • EXCEL2007で2列の入力内容を集計するには?

    EXCEL2007で、次のような集計をどうするかわからず、困っています。 たとえば、各入力行に、 ----- 東京都  杉並区 東京都  千代田区 神奈川県 瀬谷区 神奈川県 横浜市 東京都  千代田区 東京都  武蔵野市 東京都  杉並区 神奈川県 横浜市 東京都  千代田区 ----- ...のように、2列にそれぞれ文字列が入っているデータにおいて、2列の語句の組み合わせで一番多いものをカウントアップし、多いもの順に表示させたいのです。 上の例でいえば、 東京都  千代田区 3 東京都  杉並区 2 神奈川県 横浜市 2 東京都  武蔵野市 1 神奈川県 瀬谷区 1 のようにカウントしたものを作りたいのです。 2つの語句を結合してしまってからピボットテーブルを使えばできそう、とまではわかってきたのですが、できれば2列に分かれたまま集計したいです。 お知恵をお貸しください。

  • エクセルにて住所録からグラフを作成したいのですが

    エクセルにて住所録からグラフを作成したいのですが、 文字をカウントする方法はありますでしょうか? 東京都新宿区 東京都練馬区 神奈川県横浜市 それ以外 などで分類し、人数(住所録人口)をグラフにしたいと考えています。 よろしくお願い致します。

  • 正規化表現を使って「東京都○○市××町1丁目23」のようなデータがあっ

    正規化表現を使って「東京都○○市××町1丁目23」のようなデータがあったとき全角数字(この場合は1丁目の「1」)以降右側を切り取るにはどうすればいいでしょう?つまり・・ 「東京都○○市××町1丁目23」→「東京都○○市××町」 「神奈川県○○市××村456」→「神奈川県○○市××村」 のようにしたいのですが・・

  • マクロを教えてください

    CSVファイルで、     A    B    C    D    E   F 1 444  あああ  123  けけけ 2 555  いいい  456  かかか 3 666  ううう  000        4 山   5 川 上記のようなCSVファイルで3行目のC列には0・D列はブランクです。 そこで3行目でD列がブランクのときは、A列をC列に、B列をD列に持ってきて あいたA列には999B列には@@@を入れたいのです。 そしてもうひとつは、A列をE列にコピーをしてF列はE列の数字以外を持ってきたいのです。 結果は   A      B    C    D   E   F 1 444  あああ  123  けけけ  444 2 555  いいい  456  かかか  555 3 999  @@@  666  ううう  999 4 山                    山 5 川                    川 といった結果のマクロを作りたいです。 どなたか教えてください。よろしくお願いします。

  • Excel(マクロなど)に関しての質問です

    とあるデータを作成したいのですが量が膨大で 手作業だとミスが発生する可能性が高いのと、期日に間に合わない為 できる限り手作業を減らしたいといった感じです。 データは以下のようになってます。(Excel2007です) 「シート1」 __A __________B_______ C 4 神奈川県 青葉区 青葉区 5 神奈川県 青葉区 青葉区 6 神奈川県 青葉区 青葉区 7 神奈川県 青葉区 青葉区 8 神奈川県 青葉区 青葉区 「シート2」 青葉区 緑区 ○○区 ××区 ~ 手作業による手順です。 「シート1」4~8行をコピー 9行目に貼り付け 「シート2」に移る 青葉区はできているので次の文字をコピー(上記では(緑区)) 「シート1」に戻る 9行目以降の「青葉区」の文字を「緑区」に全て置換 10~14行目をコピー 15行目に貼り付け 「シート2」に移る 緑区の次の文字をコピー(上記では(○○区)) 「シート1」に戻る 15行目以降の「緑区」の文字を「○○区」に全て置換 ~以降シート2のエリア名分が終わるまで繰り返し。 以上、シート2のエリア名を入れ込んでシート1のデータを完成させたいのですが。 エリア名が1400以上あるので、確実にどこかで間違える気がします。 一部だけでも自動化なり、ミスを減らす方法、早くできる工程はないかと 思いましてこの場を借りさせていただきました。 自分なりに考えたり調べたりしたのですが、関数はまずこの場合 向いてないのでマクロかなと思ったのですが どんどん作るデータが下にずれ込んでいく場合のマクロの使い方もよくわからず、 調べてる時間もない為、非常に困っています。 自分なりにまだ調べてはいきますが、よろしければご協力いただければと思います。 長くなりましたが、よろしくお願いいたします。

  • エクセルの配列

    エクセルの配列を使用しての関数がうまく出来なくて困っています。    A   B  C 1  1  1  東京都墨田区 2  1  1  東京都神奈川区 3  1  2  東京都杉並区 4  1  2  神奈川県横浜市 5  1  3  神奈川県川崎市 6  1  3  東京都多摩市 7  2  1  岩手県 8  2  1  大阪府 9  3  2  兵庫県 10  3  2  京都府 と並んでいます。 ここでA列=1 且つ B列=1又はB列=2 且つ C列が"東京都"という文字を含んでいる の総計を計算したいのですが(上の状態ならば「3」) {=SUM(SUMPRODUCT(IF(A1:A10=1,1,0))*(IF(OR(B1:B10=1,B1:B10=2),1,0))*(ISNUMBER(FIND("東京都",C$1:C10))))} と関数を入れても正しい値が出ません。どこがおかしいのでしょうか? 作業列を使わずに求めたいです。 どなたかご教授宜しくお願いします。

専門家に質問してみよう