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

質問

エクセルでデータ管理をしているのですが、2行で1データになっています。
1行目、3行目、5行目・・・という具合に、1行おきに「*」を入れていくマクロはどう書けばいいでしょうか。
このような感じです。

*　東京都新宿区
　○山×夫
*　神奈川県横浜市
　○川×子
*　京都市下京区
　○村×郎

データ数が多いので、ひとつずつ打ち込むのは大変です。
よろしくお願いします。

回答No.3

yidong · ベストアンサー

「*」用に１列追加して良いのであれば
A1 に "*"（アスタリスク）
A2 に ""（空）
を入力し、A1～A2 を選択して
選択範囲の右下の■をドラッグすればOK
これで１行おきに * が入力されます。

マクロでやりたいのであれば別ですが・・・

お礼

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

回答No.4

merlionXX

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

お礼

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

回答No.2

noname#33353

こういうのでいいんでしょうか？？

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

お礼

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

回答No.1

kokorone

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

お礼

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