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

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

A 回答 (2件)

こんにちは!



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

助かりました

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

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

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



"○○" が分からないのでそのまま "○○" としています。
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
    • good
    • 1
この回答へのお礼

ありがとう

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング