エクセルの質問です。A1, A51, A101,A151,,,と50行おきにEXCEL 1, EXECEL 2, EXCEL 3,,,という風に”同じ文字列”+”空欄”+”連番”を入力したいのですがコピペプラス数字を手入力では時間が膨大にかかってしまいます。どなたか良い知恵をお貸しください。なお、上記以外のセルには他のデータが入力済みで、上書きはできません。お願いします。

URLダミー

確認ですが、A２〜A50は空欄が条件となります。オートフィルの機能で良いと思います。

１・A１に文字列を入力します。

２・A５１に文字列を入力します。

３・A1からA１００までを選択します。

４・選択したセル群の右下をマウスでドラッグする（オートフィルですね）

これで必要なセルまでドラッグすれば、好きな数字EXCEL　１〜　いくつでも書き換えられます。

マクロ書いてみました。

選択されてるセルから50行おきに指定された回数分

文字列+半角スペース+連番を入力します。

Sub test()

Dim i, r, t As Integer

Dim cnststr As String

cnststr = ”EXCEL ”

t = InputBox(”繰り返しの回数を入力してください。”)

r = ActiveCell.Row

For i = 1 To t

Cells(r, ActiveCell.Column).Value = cnststr & CStr(i)

r = r + 50

Next i

End Sub

URLダミーです

１．まず入力したいＥＸＣＥＬのＢＯＯＫを開きます。

２．ALT + F11 を押します。

３．新しくＶＢＡのウィンドウが開くので

VBA Project(〜.xls)と書いてある所を

右クリックして（挿入）−（標準モジュール）を選びます。

４．右側に空白の画面が出るので

そこに下に書いてある文章をコピーします。

’以下コピーすべきもの↓

Sub 連番マクロ()

Dim i As Integer

Dim j As Integer

i = InputBox(”連番の最後の番号を入力して下さい”)

For j = 1 To i

’EXCEL の文字のところを変えると

’どのような文字にも対応できます。

Cells((j - 1) * 50 + 1, 1) = ”EXCEL ” & j

Next j

End Sub

’この上の所までコピー↑

ＥＸＣＥＬ　１など入力したい画面にもどって

ツールーマクローマクロを選択

そこで（連番マクロ）を実行します。

上でコピーした物で

”EXCEL ”の文字のところを変えると

どのような文字にも対応できます。

いかがでしょう？

URLはダミーです。

1の方の方法で、別シートに文字列を作成する。

今、データが入っているデータをB列にでもコピーする。

C1（C列）に

=IF(A1<>””,A1,B1)←C1の場合

（A列にデータがあれば、A列のデータをなければ、B列のデータを表示しなさい）

という式を入力する。

最後にC列をコピーして張り付けるという方法はどうでしょうか？

URLはダミーです。

マクロを使うといですよ。

※大文字は小文字に直してください。

Sub Macro1()

Dim i As Integer

For i = 0 To 99

Cells(i * 50 + 1, 1).Value = ”EXCEL ” & i

Next i

End Sub

マクロで簡単に実現できます

表示>ツールバー＞VisualBASICでソースコードをご覧下さい

Private Sub CommandButton1_Click()

INP$ = ”文字列”: ’文字列

FIL = 20: ’コピー数

JMP = 50: ’飛ばす行数

For I = 1 To FIL

Cells((I - 1) * JMP + 1, 1).Value = INP$ + Str$(I)

Next I

End Sub