Excel関数 or VBA セルにある数字分、別シートにデータを作成する

・シート1のA1に任意の数字（例えば20）を入力
・シート2のB列（B1～B20）に○○1、○○2、○○3・・・・○○20というように、シート1A1の数字分のデータを作成
※シート1のA1の数字が変われば（例えば5）、シート2のB列（B1～B5）に○○1、○○2、○○3・・・・○○5となるコードを教えて頂けないでしょうか？

何度トライしてもうまくいきません。。。よろしくお願い致します。

No.2 回答者： TH69 回答日時： 2017/07/13 22:34

こういう意味でしょうか？

"○○" が分からないのでそのまま "○○" としています。
a=ws2のB列最終行番号として、ws2のB列a行までを空白に置き換えます。
条件分岐で、ws1のA1セルが空白でなければ、
iのループで1からws1のA1セルの値まで
ws2のi行B列に "○○" & i を代入します。
次のiをループします。

Sub test()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim a, i As Long
Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")
a = ws2.Cells(Rows.Count, "B").End(xlUp).Row
ws2.Range("B1").Resize(a, 1).Value = ""
If ws1.Range("A1").Value <> "" Then
For i = 1 To ws1.Range("A1").Value
ws2.Cells(i, "B").Value = "○○" & i
Next i
End If
End Sub

この回答へのお礼

返信が遅くなりましたm(_ _)m
なるほど！このような方法もあるのですね！
とても勉強になります。
また機会がありましたらご教示くださいm(_ _)m

お礼日時：2017/07/17 19:42

No.1 ベストアンサー 回答者： tom04 回答日時： 2017/07/10 11:05

こんにちは！

関数での一例です。
Sheet2のB1セルの表示形式をユーザー定義から　000　としておき
=IF(Sheet1!A$1<ROW(),"",ROW())
という数式を入れフィルハンドルで下へコピーしてみてください。m(_ _)m

この回答へのお礼

返信が遅くなり申し訳ございません。
こんなシンプルに出来るとはビックリしました。
わかりやすい回答ありがとうございましたm(_ _)m

お礼日時：2017/07/17 19:37