No.7
- 回答日時:
普通はVBAでやりますでしょう。
オートフィル+並べ替えも工夫してできると思う。
ーー
関数なら
例データ
シート1にA1:A9・・・・に
1
2
3
4
5
6
7
8
9
・・・
Sheet2のA1に
=IF(MOD(ROW(),3)=0,"",INDEX(Sheet1!$A$1:$A$100,ROW()-INT(ROW()/3)))
下方向に式を複写して
結果
1
2
3
4
5
6
7
8
9
10
まずわかりやすいように1列だけでやっているが、複数列の場合
INDEX関数の列を指定するところへ
=IF(MOD(ROW(),3)=0,"",INDEX(Sheet1!$A$1:$D$100,ROW()-INT(ROW()/3),COLUMN()))
として
Sheet1のデータ
111
212
313
414
515
616
717
818
919
1020
1121
1222
ーーー
Sheet2の結果
111
212
313
414
515
616
717
818
919
1020
のようにできる。
No.6
- 回答日時:
こんばんは!
一例です。
ごくごく簡単なVBAです
Sub test()
Dim i As Long
i = 1
Do Until Cells(i * 3, 1) = ""
Rows(i * 3).Insert (xlDown)
i = i + 1
Loop
End Sub
こんな感じではどうでしょうか?m(__)m
No.5
- 回答日時:
マクロ例です。
対象シートタブで右クリック→コードの表示→以下のコード貼り付け→F5キー押下(2000行なので少し間が空きます)
Sub 行数毎に空白行挿入()
Application.ScreenUpdating = False
行数 = 2
Range("A1").Select
Do While ActiveCell.Offset(行数).Value <> ""
ActiveCell.Offset(行数, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(行数 - 1).Select
Loop
Application.ScreenUpdating = True
End Sub
No.4
- 回答日時:
数式などを使用せず、補助列に簡単な文字列を使って直感的なオートフィル操作で空白行を入れるなら、以下のような操作が簡単かもしれません。
2行に1行空白行を挿入するなら、補助列の一番上に「1a」「1b」と入力して、この2つのセルをオートフィルコピー(セルの右下をダブルクリック)します。
その下のセルには「1c」と入力して下方向にオートフィルします。
これでこの列を基準に昇順に並べ替えてみてください。
No.3
- 回答日時:
1、一番左に列を一列追加します
2、追加したA列のセルに以下のように値と数式を入れます
A1 1
A2 1
A3 =IF(A1=A2,A2+1,A2)
A4以降 A3をコピーして貼り付け
これで左端に「1 1 2 2 3 3 4 4 5 5...」という並びができます。
3、A列の一番下に「1 2 3 4 5...」と値を入れます
(「=A1+1」のような数式を使ってください)
4、A列全体を選んで「コピー」→「形式を選択して貼り付け」で「値」で貼り付けます
5、「並び替え」でA列をキーに昇順で並び替えます
以上です。
No.2
- 回答日時:
私がよくする方法です。
仮にA列を追加します。(A列を選択して右クリック⇒挿入)
A1に 1 ,A2に 2 を入力
A3に =A1+3 を入力
A3をコピーし、元のデータが入力されている最終行まで貼り付ける(A列には1 2 4 5 7 ・・・と入るはずです)
A列の貼り付けた下に3を入力
その下に =(上記で入力したセル)+3 を入力 コピー
必要なだけA列のその下に貼り付け(3 5 8 ・・・となるはず)
A列を選択⇒コピー⇒値を貼り付ける
表全体を選択⇒A列を優先し昇順で並べ替え
A列を選択⇒削除
文字で書けば長ったらしいですが、一旦やってみればすぐに出来ます。
No.1ベストアンサー
- 回答日時:
たとえば2行おきの場合。
添付図:
隣列に,B1に数字の1,B2に数字の2を置いてB1:B2をオートフィルドラッグして連番を記入させます。
その下に,2行おきならまず2を記入,そして4を記入してオートフィルドラッグして2,4,6,8の数字を作ります。
AB列をB列昇順で並べ替えると出来上がりです。
n行置きの場合も同様に,B列下に継ぎ足す数字をnおきの数字に作って操作すれば出来ますね。
また,下に継ぎ足す数字の開始番号を調整すれば,どこから空を挿入するか微調整するのも容易です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Visual Basic(VBA) 追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記し 9 2022/10/05 10:50
- Excel(エクセル) エクセルで最下行にデータを追加するVBA 6 2023/05/09 09:30
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 1 2022/06/18 21:20
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) 【VBA】A列にある連続したデータの1番下に文字列を入力したい 1 2023/01/28 04:40
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excelで一行おきに2行の空白行を挿入したい
その他(Microsoft Office)
-
エクセルの表で10行毎に1行づず新しい行を挿入する方法
Excel(エクセル)
-
【エクセル】2行に一行のように、規則的に行を新規挿入したい
Excel(エクセル)
-
-
4
Excelで行ごとコピー、同じ行を3行にしたい
Excel(エクセル)
-
5
エクセルで、2種類のデータを交互に入れなおす方法はありますでしょうか??
Excel(エクセル)
-
6
エクセルで1個飛ばしで、一括でコピペする方法は有りますか?
Excel(エクセル)
-
7
エクセルで長い行を5行ごとに1列にするには?
Excel(エクセル)
-
8
エクセルで一列おきに空白列を入れたい
Excel(エクセル)
-
9
エクセル1行おきのセルを隣の列の一つ上に移動したい
Excel(エクセル)
-
10
エクセルで縦に11122233‥と入力したいのですが。
Excel(エクセル)
-
11
excel: 2行ずつ間隔を空けて関数をペーストする方法
Excel(エクセル)
-
12
EXCELで、セル間隔をあけて貼り付けしたい。
Excel(エクセル)
-
13
ある範囲のセルから任意の値を検索して、その隣のセルの値を取得するという関数はありますか?
Excel(エクセル)
-
14
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
15
2つの表を交互に合体させたい!
Excel(エクセル)
-
16
EXCELで2列を参照し、重複するものを横に並べたい
Excel(エクセル)
-
17
エクセルで連続データから、数個飛ばしのデータを抜き取る方法
Excel(エクセル)
-
18
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
19
エクセルで複数行ずつ連続データを入力する方法
Excel(エクセル)
-
20
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
はがきについて。
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
【関数】先頭だけにある、半角...
-
Excel ピボットテーブルで日付...
-
Excelのpivotについて質問です
-
時間によってファイル名が変わ...
-
エクセル 白黒印刷で白線を印刷...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
WPS OFFICEでの縦書きについて
-
Excelのチェックボックスの使い...
-
エクセルの条件付き書式につい...
-
エクセルのセルに同じ大きさの...
-
エクセルの関数について教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報