No.1ベストアンサー
- 回答日時:
こんにちは!
元データが2000行あり、その間に76行ずつ空白行を挿入したい!というコトですよね?
となるとトータルで154000行になりますが関数でできるか?と言われると、ぱっ!っと思いつく方法がありません。
手っ取り早くやるとなるとやはりVBAになると思います。
単純に手作業でやることをExcelにやらせるだけです。
① A列を挿入 → 1行目~元データの最終行までの連番を表示させます。
② A1セル~A列最終行をコピー → A列の最終行の下のセルに貼り付け
この②の操作を76回繰り返します。
③ 最後にA列の昇順で並び替え → A列を削除
これで各行間に76行の空白行が挿入されている状態になります。
以上のことをVBAでやると↓のようなコードになります。
Sub Sample1() 'この行から//
Dim cnt As Long, 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
For cnt = 1 To 76
.Copy Cells(Rows.Count, "A").End(xlUp).Offset(1)
Next cnt
End With
Range("A1").CurrentRegion.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlNo
Range("A:A").Delete
End Sub 'この行まで//
※ 関数でできる方法があればごめんなさい。m(_ _)m
この回答へのお礼
お礼日時:2016/05/30 18:15
連番コピーを繰り返して出来ました!
しかも時間かけずにあっさり出来てしまいました。
VBAの知識があると理屈がわかっているから手作業にも応用が利くんですね。
私も勉強したいのですが、忙しくて中々時間が取れません。
本当に助かりました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) セルに抜けた番号の代わりに空白を挿入する 4 2023/04/10 20:29
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Excel(エクセル) 特定文字(数字)で行挿入、挿入された行で合計したい 2 2023/03/13 14:30
- Excel(エクセル) 非表示にしたい行をグループ化して折り畳み 4 2022/09/17 20:17
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Excel(エクセル) データ入力規則リスト 空白を無視 3 2022/07/13 15:11
- Excel(エクセル) スプレットシートでA1~G1にデータが入っていて、 それを1列ずつ空けて表示する関数がわかる方いまし 4 2022/08/25 09:39
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/01/06 08:39
- Visual Basic(VBA) EXCEL VBAでA列にある空白行より下の行すべてを削除する方法を教えてください。 3 2023/02/17 07:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで空白行を削除する ...
-
エクセルで階層図を作る方法
-
エクセルのデータがない行には...
-
EXCEL VBAでA列にある空白行よ...
-
VBAでの重複データに色付け
-
Excel97 指定した行だけマク...
-
VBでスプレッドをしようする際...
-
【VBA】条件に一致しない行を削...
-
【至急】Excel 同一人物の情報...
-
縦型カレンダーを横型にできま...
-
vbaエクセルマクロについて she...
-
エクセルのVBAで指定した行数の...
-
エクセル マクロ セルを一気...
-
VB.net
-
条件に合った行を削除するマク...
-
エクセルで行を挿入して小計合...
-
エクセル VBA 条件が一致した...
-
Excel VBA オートフィルタの結...
-
エクセルで特定の文字が入って...
-
エクセルのVBAについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
数値に見えるものはすべて数値...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
エクセルで空白行を削除する ...
-
エクセルのデータがない行には...
-
【VBA】条件に一致しない行を削...
-
VB.net
-
Excel VBAでオートフィルタで抽...
-
列から特定の文字列検索→該当以...
-
Excel97 指定した行だけマク...
-
エクセルで階層図を作る方法
-
Excel 別ブックから該当データ...
-
VBAでの重複データに色付け
-
EXCEL VBAでA列にある空白行よ...
-
マクロにて指定の文字間の文字...
-
エクセルのVBAで指定した行数の...
-
Access2003レポート:最終ペー...
-
Excel マクロ 検索結果を別シ...
-
VBAで特定の行と一つ上の行を削...
-
各個体に対する平均値の自動計...
おすすめ情報