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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
準・究極の選択
「年収1000万円で一生カレーライス」か 「年収180万円で毎日何でも食べ放題」 あなたはどちらを選びますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルで、2行おきに1行追加する方法
Excel(エクセル)
-
エクセルの表で10行毎に1行づず新しい行を挿入する方法
Excel(エクセル)
-
【エクセル】2行に一行のように、規則的に行を新規挿入したい
Excel(エクセル)
-
-
4
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
5
Excelで行ごとコピー、同じ行を3行にしたい
Excel(エクセル)
-
6
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
7
Excel VBA 複数行を数の分だけ挿入したい
Visual Basic(VBA)
-
8
エクセルで各列に1列ずつ挿入したい。
Excel(エクセル)
-
9
エクセル2016にて、行挿入&コピーの繰り返しをするマクロを教えてください。
Excel(エクセル)
-
10
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
11
エクセルで長い行を5行ごとに1列にするには?
Excel(エクセル)
-
12
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
13
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
14
特定文字のある行の前に空白行を挿入したい
その他(Microsoft Office)
-
15
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
16
コピーしたデータを2行ずつに貼り付け
その他(Microsoft Office)
-
17
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
18
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
-
19
特定の条件の時に行を挿入したい
Excel(エクセル)
-
20
別のシートから値を取得するとき
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで自動的にQRを表示さ...
-
英数字のみ全角から半角に変換
-
outlookのメールが固まってしま...
-
大学のレポート A4で1枚レポー...
-
エクセルでXLOOKUP関数...
-
【Excel VBA】PDFを作成して,...
-
会社PCのメールが更新されない
-
Microsoft Formsの「個人情報や...
-
teams設定教えて下さい。 ①ビデ...
-
Officeを開くたびの「再起動メ...
-
あらかじめ用意したテンプレー...
-
マクロ自動コピペ 貼り付ける場...
-
VBAファイルの保存先について
-
エクセルでのパーセントの計算
-
Microsoft365搭載Windows11PCへ...
-
会社のTeamsのことで相談です。...
-
エクセルで英文字に入れた下線...
-
この様式の雛形を作るとしたら...
-
1つのPCに「Excel 2010」「Exc...
-
Office 2021 Professional Plus...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
英数字のみ全角から半角に変換
-
会社PCのメールが更新されない
-
この様式の雛形を作るとしたら...
-
【Excel VBA】PDFを作成して,...
-
マクロ自動コピペ 貼り付ける場...
-
Microsoft Officeを2台目のPCに...
-
outlookのメールが固まってしま...
-
エクセルでのパーセントの計算
-
エクセルでXLOOKUP関数...
-
Microsoft Formsの「個人情報や...
-
Outlook で宛先が複数の場合の人数
-
大学のレポート A4で1枚レポー...
-
Excel テーブル内の空白行の削除
-
【マクロ】違うブックのCallス...
-
teams設定教えて下さい。 ①ビデ...
-
Officeを開くたびの「再起動メ...
-
エクセルで英文字に入れた下線...
-
Microsoft365で写真をアルバム...
-
Teams内でショートカットって貼...
-
office365って抵抗感ないですか?
おすすめ情報