![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.4ベストアンサー
- 回答日時:
1.任意の空きセルに式 =IF(MOD(ROW(A1),2),A$1,"") を、
 ̄ ̄その右隣に式 =OFFSET(A$2,MOD(ROW(A1)-1,2),) を、
 ̄ ̄それぞれ入力
2.上の2つのセルの[フィルハンドル]をマウスで掴んで、下方にズズーッとドラッグ&ペースト
No.3
- 回答日時:
こんなものはいかがでしょうか?
※ 元に戻せませんので、お試しは別シートにコピーなどした状態でお試しください
※「Sample2」は配列変数で作業を行うパターンです。一般的にはこちらの方が早いですが1000行位と少ないならば「Sample1」の方が早いかもしれません。
※「終行 = ActiveSheet.UsedRange.Row」が無いと保存されるまではスクロールバーの可動範囲が元の状態のままになってしまいます。試しに外した状態で実行後スクロールバーを一番下までもっていくと何もないデータのところまで動いてしまうのが確認出来るはずです。
Sub Sample1()
Dim 元行 As Long
Dim 先行 As Long
Dim 終行 As Long
Columns("B:B").ClearContents
終行 = Cells(Rows.Count, 1).End(xlUp).Row
For 元行 = 1 To 終行
Select Case 元行 Mod 3
Case 1
先行 = 先行 + 1
Cells(先行, 1).Value = Cells(元行, 1).Value
Case 2
Cells(先行, 2).Value = Cells(元行, 1).Value
Case 0
先行 = 先行 + 1
Cells(先行, 2).Value = Cells(元行, 1).Value
End Select
If 元行 <> 1 Then Cells(元行, 1).ClearContents
Next
終行 = ActiveSheet.UsedRange.Row 'スクロールバーを実情に合わせる処理(「終行」には意味はありません)
MsgBox ("終了しました")
End Sub
Sub Sample2()
Dim 元行 As Long
Dim 先行 As Long
Dim 終行 As Long
Dim 作業 As Variant
Columns("B:B").ClearContents
終行 = Cells(Rows.Count, 1).End(xlUp).Row
作業 = Range(Cells(1, 1), Cells(終行, 2))
For 元行 = 1 To 終行
Select Case 元行 Mod 3
Case 1
先行 = 先行 + 1
作業(先行, 1) = 作業(元行, 1)
Case 2
作業(先行, 2) = 作業(元行, 1)
Case 0
先行 = 先行 + 1
作業(先行, 2) = 作業(元行, 1)
End Select
If 元行 <> 1 Then 作業(元行, 1) = ""
Next
Range(Cells(1, 1), Cells(終行, 2)) = 作業
終行 = ActiveSheet.UsedRange.Row 'スクロールバーを実情に合わせる処理(「終行」には意味はありません)
MsgBox ("終了しました")
End Sub
No.2
- 回答日時:
マクロ(VBA)を使えば可能ですが、使えますか?
なお結果は下図のどちらでしょうか?
①「売上」と「粗利」を同じ行に入れる
②「売上」と「粗利」を別の行にする
③ その他(具体的に説明して下さい)
![「エクセルで同じ行にある別項目を分ける方法」の回答画像2](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/d/542332295_5e3c44babd613/M.png)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
- Visual Basic(VBA) VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。 1 2023/03/16 18:07
- その他(Microsoft Office) Excelで該当しない項目(#N/Aの商品名)を簡単に表示・抽出させる方法についてです 1 2022/08/25 22:12
- Excel(エクセル) 非表示にしたい行をグループ化して折り畳み 4 2022/09/17 20:17
- 建設業・製造業 見積作成(エクセル)について教えて下さい。 2 2023/05/10 13:47
- Excel(エクセル) Excel リンク先のエクセルファイルの削除 同時に行を削除したい 1 2022/11/29 16:20
- Excel(エクセル) エクセルの表について 3 2023/04/14 18:00
- Excel(エクセル) 列を自動で追加したい 3 2022/07/11 12:58
- Excel(エクセル) 特定文字(数字)で行挿入、挿入された行で合計したい 2 2023/03/13 14:30
- Excel(エクセル) エクセルで最初に値が入っているセルを見つける方法はありますか? 2 2023/07/18 14:58
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IFとIFS関数
-
Excelを無料で使うには? パソ...
-
セルの数を求めたい
-
エクセルの数式バーのフォント...
-
Excelの表示についての質問
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
Excelに詳しい方! B列が「日...
-
西暦や和暦の表示をyyyymmdd表...
-
Excelで50個のセルに同じ文字を...
-
Excelの数式について教えてくだ...
-
Excel VBAで全ての矢印を赤色に...
-
エクセル関数を使って
-
祝日と土曜、日曜の合計をカウ...
-
xlsxファイルを保存する際にPDF...
-
Excelについて
-
エクセルVBA、別ブックへ転記す...
-
エクセルで「ページレイアウト...
-
2列に入っているデータを1列...
-
【ExcelVBA】名前を付けて保存→...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報
すとVBAは少し触れるくらいです…
②のような表を作りたいです。
説明不足ですみません。
よろしくお願いします。