No.5ベストアンサー
- 回答日時:
No.2です。
前回は勘違いをしていました。
前回のコードだと1行ずつしか挿入されません。
>それぞれ100行ずつの行間を・・・
すなわち仮にA1セルからデータがあった場合、1行目と2行目の間に100行分の空白行が入る!
2行目は102行目に、元の3行目は203行目に・・・
という解釈です。
前回のコードは消去し、↓のコードに変更してみてください。
Sub Sample2()
Dim cnt As Long, lastRow As Long
Dim myRng As Range
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A:A").Insert
With Range(Cells(1, "A"), Cells(lastRow, "A"))
.Formula = "=row()"
.Value = .Value
End With
Set myRng = Range(Cells(1, "A"), Cells(lastRow, "A"))
For cnt = 1 To 100
Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(lastRow).Value = myRng.Value
Next cnt
Range("A1").CurrentRegion.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlNo
Range("A:A").Delete
MsgBox "完了"
End Sub
※ 今回もA列の最終行までの操作としています。m(_ _)m
No.6
- 回答日時:
》 …簡単に入れるにはどうしたら…
簡單かどうかは貴方が判斷なさってェ~(*^_^*)
A列が空白行で無ければ、A列に1行挿入・
1.式 =ROW()*1000 を入力したセル A1 を選擇⇒Ctrl+Cをパシーッ
2.[名前ボックス]にマウスポインタを放り込み、元々在った A1 を
 ̄ ̄A1:A100 に上書きしてEnterをパシーッ⇒Ctrl+Vをパシーッ
3.式 =OFFSET(A$1,(ROW(A1)-1)/100,)+MOD(ROW(A1)-1,100)+1
 ̄ ̄をセルA101に入力⇒Ctrl+Cをパシーッ
4.[名前ボックス]にマウスポインタを放り込み、元々在った A101
 ̄ ̄をA101:A1000 に上書きしてEnterをパシーッ⇒Ctrl+Vをパシーッ
5.A列全体を選擇⇒Ctrl+V⇒Ctrl+Alt+V⇒“値”に目玉入れ⇒[OK]
6.A列を含む必要最小限の列幅(例:A:M)を選擇⇒アクティブセルが
 ̄ ̄A1 であることを確認⇒昇順に[並べ替え]
7.邪魔なら、A列削除
No.4
- 回答日時:
当方なら並べ替えでやります。
◆前提
1~100行目までデータがあり、101行目以降は空白とします。
◆手順
1 挿入する行数は100行×100か所=10000行です。
2 作業列(例えばA列)の1行目~100行目に1~100の連番をいれます。(連続データの作成でできます)
3 1行目~100行目の1~100をコピーして、101行目~10000行目に貼り付けます。(1~100が延々並ぶデータ)
4 作業列に記入した範囲(1行目~10000行目)を選択して、メニュー → データ → 並べ替え で最優先されるキーに作業列を選び昇順で実行します。
5 不要なら作業列を削除します。
No.3
- 回答日時:
自分なら・・・
Excel の「クリップボード」を表示させて、
未入力の100行をコピーして「クリップボード」に取り込む。
それを100行目から1行目に移動しながら貼り付ける。
100行目のセルを選択して、クリップボードから100行コピーした物を選んで貼り付け。
99行目のセルを選択して、クリップボードから100行コピーした物を選んで貼り付け。
98行目のセルを選択して、クリップボードから100行コピーした物を選んで貼り付け。
…
2行目のセルを選択して、クリップボードから100行コピーした物を選んで貼り付け。
1行目のセルを選択して、クリップボードから100行コピーした物を選んで貼り付け。
・・・こんな手順で行う。
わざわざマクロ組むまでもない。
(一回しか使わないのにマクロを組む必要性を感じないんです)
No.2
- 回答日時:
こんにちは!
VBAになりますが、一例です。
100行限定ではなく、A列最終行までとしてみました。
Sub Sample1()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A:A").Insert
With Range(Cells(1, "A"), Cells(lastRow, "A"))
.Formula = "=row()"
.Value = .Value
.Copy Cells(lastRow + 1, "A")
End With
Range("A1").CurrentRegion.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlNo
Range("A:A").Delete
End Sub
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA。壁の間隔Xミリの中に、5種類の異なる巾の板を敷き詰め、X以下でXに近い板の組み合わせを算出 6 2023/04/23 21:33
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) エクセルの自動更新のタイミングについて 1 2022/07/20 16:12
- 建設業・製造業 見積作成(エクセル)について教えて下さい。 2 2023/05/10 13:47
- グループウェア Microsoft365の共有化 1 2023/07/14 16:40
- Excel(エクセル) エクセルでこのようなことはできますか? 3 2022/07/10 19:57
- Excel(エクセル) エクセル会員名簿について。 Yahooメールの連絡先で、AさんCさんにチェックをつけて別のグループに 2 2023/03/27 20:33
- Visual Basic(VBA) エクセルVBA エクセルを開いた後に編集可能な状態にするには? 2 2023/06/14 11:58
- Excel(エクセル) エクセルのファイルを複数のPCで同期する方法は? 7 2022/11/23 17:35
- Excel(エクセル) エクセルの使い方で教えて頂ければと思います 2つの表があります A B C D 10 20 30 4 3 2022/06/06 17:42
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
Microsoft1Officeの互換ソフト...
-
Excel ピボットテーブルで日付...
-
エクセル関数を教えてください
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
LOOKUP関数を使えばいいのでし...
-
エクセル 白黒印刷で白線を印刷...
-
【関数】先頭だけにある、半角...
-
【関数】適切な文字数の数字を...
-
Excelのチェックボックスの使い...
-
エクセルでの作業計算方法について
-
Excelのpivotについて質問です
-
WPS OFFICEでの縦書きについて
-
時間によってファイル名が変わ...
-
エクセルのセルに同じ大きさの...
-
Aというブックの1というシート...
-
エクセルの順位別一覧表の自動...
-
西暦や和暦の表示をyyyymmdd表...
-
【マクロ】エクセルにかいてあ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報