A 回答 (8件)
- 最新から表示
- 回答順に表示
No.8
- 回答日時:
A列にデータがあるとして、作業列B列のB1に10、B2に20といれ、フィルハンドルを出し、下へ最終行まで引っ張ります。
10、20,30、・・・と番号が振られます。
最終行の次にA列空白、B列に11、
その下にB列に21と入れて、+ハンドルを出し最終行の番号を凝れるまで引っ張ります。
11、21,31,41、・・・と10づつ増えます。
B列で並べ替えしてください。
10の後に11(=A列空白)、20の後に21(=A列空白)・・が収まります。
これで10行おきに、空白行が入ります。
B列を削除してください。
No.7
- 回答日時:
既に、実現可能な回答が出ているようですが、他にも方法があるという事で、回答させていただきます。
先ずは、マクロの方法を以下に示します。
'--------マクロコード--------始まり
Sub Macro1()
Dim i1 As Integer
For i1 = 1501 To 11 Step -10
Rows(i1 & ":" & i1).Insert Shift:=xlDown
Next i1
End Sub
'--------マクロコード--------終わり
上の例では、各10行毎に行全体を挿入していますが、一部の列のみ挿入するなら、
Rows(i1 & ":" & i1).Select
を
Range("C" & i1).Insert Shift:=xlDown 'これは、C列のみ挿入
に変えてください。
マクロを使わずにやれる方法を以下に示します。
10行毎に空白を入れるには、1.各行に行番号を振り、2.それと10行毎の中途半端な行番号(9.1,19.1,29.1等)を作り、3.それを組み合せてソートする、という方法でできます。
なお、前提条件として、B列,C列が空いている物とします。
1.
B1セルに「=ROW()」を入れる。
B1の式をB2~B1500セルにコピーペーストする。
2.
C1セルに「=ROW()*10+0.1」を入れる。
C1の式をC2~C150セルにコピーペーストする。
3.
B列,C列を選択して、コピーする。
「編集」メニューの「値を選択して貼り付け」で「値」を選択して「OK」をクリックする。
C1~C150セルを選択して、コピーする。
B1501セルにペーストする。
シート全体を選択する。(「Ctrl」+「A」)
「並び替え」を行なう。この時「最優先されるキー」を「列B」にする。
この後、B列,C列は不要なので、削除する。
B列,C列を削除する。
No.5
- 回答日時:
こんにちは。
Sortメソッドがひじょうに速いので、挿入させる場合も、以下のようにしたらよいかと思います。一応、補助列は、IV列(一番最後の列)を使っています。しかし、これは、手作業でも簡単に出来ます。補助列を使って、フィルダウンか、数式で、1~1500までを作り、その最後の行の次から、 "=ROW(A1)*10" を入れて、並べ替えをすればよいです。
Sub InsertBlankRow()
Dim LastRow As Long
Const TMP_COL As String = "IV" '補助列
LastRow = Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False
With Range(TMP_COL & "1").Resize(LastRow)
.FormulaLocal = "=Row()"
.Value = .Value
.Offset(LastRow).Resize(Int(LastRow / 10)).FormulaLocal = _
"=ROW(A1)*10"
.Offset(LastRow).Resize(Int(LastRow / 10)).Value = _
.Offset(LastRow).Resize(Int(LastRow / 10)).Value
End With
Range("A1:" & TMP_COL & LastRow + Int(LastRow / 10)).Sort _
Key1:=Range("IV1"), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1
Range(TMP_COL & "1").EntireColumn.ClearContents
Application.ScreenUpdating = True
End Sub
No.4
- 回答日時:
関数でやる方法です。
A列を10行おきに1行あけるには、
=IF(MOD(ROW(),11)=0,"",OFFSET(OFFSET($A$1,INT(ROW()/11)*10,),ROW()-1-INT(ROW()/11)*11,))
をコピー先の先頭行に入れてください。そしてそれを、縦方向に適当なところまでコピーしてください。
B列を10行おきに1行あけるには、上記の「$A$1」を「$B$2」と置き換えてください。
いかがでしょうか。
No.3
- 回答日時:
こんにちは。
KenKen_SP です。このような処理の場合、最終行から上に向かってループさせます。
開始行から下に向けてやると Insert で行数が増えて、最後まで
処理できないからです。
Sub Sample()
Dim i As Long
Dim r As Long
With ActiveSheet.UsedRange
r = .Rows(.Rows.Count).Row
End With
Application.ScreenUpdating = False
For i = r + 1 To 10 Step -10
ActiveSheet.Rows(i).Insert Shift:=xlDown
Next i
End Sub
No.2
- 回答日時:
マクロを使うと簡単なのですが、マクロの使い方を初心者に説明するのがなかなか難しいです^^;
とりあえずマクロで1500行分、10行毎に行挿入するプログラムを以下に書きました。
Sub Macro1()
For Idx = 10 To 1500 Step 10
Rows(Idx & ":" & Idx).Insert Shift:=xlDown
Next Idx
End Sub
これを実行するには、以下の手順でマクロを作成して実行します。
1.メニューより、ツール→マクロ→新しいマクロの記録
2.メニューより、ツール→マクロ→記録の中止
3.メニューより、ツール→マクロ→Visual Basic Editor
4.左ペインにある「標準モジュール」をダブルクリック
5.「Module1」をダブルクリック
6.「Sub Macro1()」と「End Sub」の間に上記のプログラムを書きます
7.エクセルに戻り、メニューより、ツール→マクロ→マクロ
8.Macro1を選択し、実行を押します。
No.1
- 回答日時:
以下の方法は如何でしょうか。
A1:A1500にデータが入っているとし,B列を作業列とします。
1.B2:B10に任意文字を入力
2.B2:B11を選択してフィルハンドルをダブルクリック
→B2:B1500が選択された状態
3.Ctrl+G (メニュー[編集]-[ジャンプ])
4.[セル選択]ボタンをクリック
5.[空白セル]にチェック→OK
6.選択された空白セル上で右クリック
7.[行全体]にチェック→OK
8.B列を削除
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) エクセルでセルの値分の個数の数字列を自動で入れたい 8 2023/03/14 18:00
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Excel(エクセル) 特定文字(数字)で行挿入、挿入された行で合計したい 2 2023/03/13 14:30
- その他(ソフトウェア) Googleフォーム、効率的な入れ方 2 2022/10/03 22:44
- その他(Microsoft Office) エクセルのシフト表を簡単にGoogleカレンダーに入力する方法はありませんか? シフト表がLINEで 2 2023/06/14 12:16
- WordPress(ワードプレス) WordpressでYouTubeの埋め込みができない。 1 2022/10/26 01:08
- Excel(エクセル) エクセルの使い方で教えて頂ければと思います 2つの表があります A B C D 10 20 30 4 3 2022/06/06 17:42
- その他(Microsoft Office) パワーポイントやワード、エクセルでのスライドショーやテキストの微調整について 1 2023/01/12 05:50
- フリーソフト 画像貼り付け、URLに飛べる軽いメモ帳 3 2022/05/12 07:42
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
エクセルで、2行おきに1行追加する方法
Excel(エクセル)
-
Excelで一行おきに2行の空白行を挿入したい
その他(Microsoft Office)
-
【エクセル】2行に一行のように、規則的に行を新規挿入したい
Excel(エクセル)
-
-
4
エクセルで長い行を5行ごとに1列にするには?
Excel(エクセル)
-
5
エクセル100行に、それぞれ100行ずつの行間を一気に入れることは可能でしょうか?
Excel(エクセル)
-
6
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
7
Excelの連続データから数行おきのコピー
Excel(エクセル)
-
8
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
9
一列に並んでいる大量のデータを10個ずつ平均(A1~A2000まである
Excel(エクセル)
-
10
エクセルで1000行を簡単挿入する方法?
その他(コンピューター・テクノロジー)
-
11
Excelで行ごとコピー、同じ行を3行にしたい
Excel(エクセル)
-
12
エクセルで1個飛ばしで、一括でコピペする方法は有りますか?
Excel(エクセル)
-
13
エクセルで50行ごとに区切ったデータをシートに分割したい
Excel(エクセル)
-
14
excelで任意のセルを指定回数コピーペーストする方法を教えてください
Excel(エクセル)
-
15
EXCELで2列を参照し、重複するものを横に並べたい
Excel(エクセル)
-
16
excel 参照しているセルに色がついていたら、返すセルにも色もつける
その他(コンピューター・テクノロジー)
-
17
EXCELで10行ごとの和を出したい
Excel(エクセル)
-
18
エクセルで連続データから、数個飛ばしのデータを抜き取る方法
Excel(エクセル)
-
19
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
20
エクセル1行おきのセルを隣の列の一つ上に移動したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelデータをコピペして、ペー...
-
スプレッドシート、Excelでの数...
-
エクセルの関数について教えて...
-
スプレッドシートで使う数式を...
-
Microsoft Officeの中古は信用...
-
エクセルで会社の従業員のデー...
-
Excelで50個のセルに同じ文字を...
-
エクセルの表で1年間の曜日を...
-
エクセルでの特別な文字を上に...
-
エクセルで不等号記号(≠)が上に...
-
エクセルでB列でフィルターをか...
-
エクセルでセルに標準で入力さ...
-
Excelで、項目の種類ごとにカウ...
-
【マクロ】アクティブセルにブ...
-
EXCELの質問です 119から足した...
-
【マクロ】アクティブセルの、...
-
【マクロ】アクティブセルの行...
-
エクセルの空欄をつめて、次の...
-
Excelの数式について教えてくだ...
-
非表示列の再表示に失敗
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報