ID非公開

2022/6/23 10:59

33回答

エクセルについてです。

Excel46閲覧

ベストアンサー

0

その他の回答(2件)

0

マクロでよろしければ。。。 標準モジュールに貼り付けてください。 該当するシートを表示して実行してください。 まずは、バックアップを取ってからご確認ください。 Sub sample() Dim i As Long, j As Long, maxR As Long Dim ws As Worksheet Set ws = Sheets("一覧表") maxR = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row For i = 1 To maxR Cells((i - 1) * 20 + 1, "A") = "=一覧表!A" & i Next End Sub

0

B列に1からの連番を記載し、飛ばしたい数分下方にコピーし、B列を昇順でソートすればよいと思います。

画像