No.1ベストアンサー
- 回答日時:
こんにちは、マクロですが
Sub Test()
Dim i As Long
For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
Rows(i).Resize(2).Insert
Next
End Sub
No.2
- 回答日時:
シート1の1行目には項目名などがあり、2行目から下方にデータが有るとしたら、シート2の1行目にはシート1の項目名をコピーして貼り付け、その後にA2セルには次の式を入力して右横方向にドラッグコピーしまたのちに下方にもドラッグコピーします。
=IF(ROW(A1)>COUNTA(Sheet1!$A$2:$A$1000)*3,"",IF(MOD(ROW(A1),3)=1,IF(INDEX(Sheet1!$A$2:$XX$1000,ROUNDUP(ROW(A1)/3,0),COLUMN(A1))=0,"",INDEX(Sheet1!$A$2:$XX$1000,ROUNDUP(ROW(A1)/3,0),COLUMN(A1))),""))
最後にシート2の全体を選択してから「コピー」し、シート1に戻ってA1セル選択してから「形式を選択して貼り付け」で「値」にチェックをして貼り付けます。
これでシート2のデータを削除すればよいでしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) EXCEL 関数を教えてください。(A列の同じ値が複数ある場合vlookupで出来ますか) 4 2022/12/07 20:54
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Excel(エクセル) Excelマクロの差分抽出のコードを教えていただきたいです。 2 2023/03/14 11:40
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) データ入力規則リスト 空白を無視 3 2022/07/13 15:11
- Excel(エクセル) 余計なお世話的な「入力規則」?対策は? 2 2023/01/14 12:39
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルで、2行おきに1行追加する方法
Excel(エクセル)
-
エクセルの表で10行毎に1行づず新しい行を挿入する方法
Excel(エクセル)
-
【エクセル】2行に一行のように、規則的に行を新規挿入したい
Excel(エクセル)
-
-
4
Excelで行ごとコピー、同じ行を3行にしたい
Excel(エクセル)
-
5
Excel VBA 複数行を数の分だけ挿入したい
Visual Basic(VBA)
-
6
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
7
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
8
Excelで[表1]にあって、[表2]にないものを抽出する関数
その他(Microsoft Office)
-
9
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
10
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
11
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
12
マクロで最終行から上に検索を逆にしたい
Excel(エクセル)
-
13
特定の条件の時に行を挿入したい
Excel(エクセル)
-
14
Excelで行の挿入を繰り返し行う
Excel(エクセル)
-
15
EXCELで2列を参照し、重複するものを横に並べたい
Excel(エクセル)
-
16
エクセルで一列おきに空白列を入れたい
Excel(エクセル)
-
17
excel: 2行ずつ間隔を空けて関数をペーストする方法
Excel(エクセル)
-
18
エクセル VBA 指定の範囲内をコピー 複数行あけて貼り付けを指定範囲内で
Excel(エクセル)
-
19
一行おきに貼り付ける 可能でしょうか
Visual Basic(VBA)
-
20
一行おきにコピーするマクロが知りたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
Excel 日付を比較したら、同じ...
-
英数字のみ全角から半角に変換
-
会社PCのメールが更新されない
-
Outlookを立ち上げたらGoogleロ...
-
outlookのメールが固まってしま...
-
Excelで空白以外の値がある列の...
-
ウィンドウィズ メモ帳で日付だ...
-
Excelに貼ったリンクについて E...
-
Microsoft Formsの「個人情報や...
-
Excelで時間計算(負)
-
microsoft office
-
【Excel VBA】PDFを作成して,...
-
エクセルでXLOOKUP関数...
-
マイクロソフト 一時使用コード...
-
Outlookでの時間指定送信機能に...
-
【スプレドシート】目標達成の...
-
Googleのスプレッドシートでシ...
-
Microsoft Officeを2台目のPCに...
-
MicrosoftOfficeについて質問で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
【スプレッドシート】指定の日...
-
英数字のみ全角から半角に変換
-
会社PCのメールが更新されない
-
マイクロソフト 一時使用コード...
-
Office 2021 Professional Plus...
-
エクセルで例えば、関数を使っ...
-
Microsoft Formsの「個人情報や...
-
1つのPCに「Excel 2010」「Exc...
-
エクセルで例えば、A1に㈱ベ...
-
理由を教えてください。
-
エクセルでXLOOKUP関数...
-
マイクロソフト オフィスについて
-
VLOOKUP関数について
-
teams設定教えて下さい。 ①ビデ...
-
Googleのスプレッドシートでシ...
-
【Excel VBA】PDFを作成して,...
-
Microsoft365で写真をアルバム...
-
Outlook で宛先が複数の場合の人数
-
Excel テーブル内の空白行の削除
おすすめ情報