No.2ベストアンサー
- 回答日時:
こんにちは
VBAによる回答は出ているので、関数でまとめる方法をご参考までに…
ご提示のサンプルではセル位置が不明なので、元データとなっている最初のデータ(1-2となっているところ)をB3セルと仮定しました。
データはB:F列の3行目から下に並んでいるものとします。
また、左端の「PackingNo」(?)の値に重複はないものと仮定しています。
右側の「まとめ後のデータ」の「1-2」の値のセルをJ3セルとするなら。
J3セルに
=IFERROR(INDEX(B:B,AGGREGATE(15,6,ROW(B:B)/(B:B<>""),ROW(A1))),"")
K3セルに
=IF(J3="","",VLOOKUP(J3,B:C,2))
L3セルに
=IF(J3="","",IF(LEFT(INDEX(D:D,MATCH(J3,B:B,0)),1)="@",SUBSTITUTE(INDEX(D:D,MATCH(J3,B:B,0)+1),"BAG",""),SUBSTITUTE(INDEX(D:D,MATCH(J3,B:B,0)),"BAG","")))
を入力して、それぞれ下方にフィルコピーすることで実現可能と思います。
No.4
- 回答日時:
「元列始番号」は赤枠の列番号にします。
多分「2」です。「元行始番号」は赤枠の行番号にします。多分「1」です。
「先列始番号」は青枠の列番号にします。多分「10」です。
「先行始番号」は青枠の行番号にします。多分「2」です。
No.3
- 回答日時:
列番号は左から何列目かです。
A列は1、B列は2…のようになります。プログラムで使う場合はこちらの方が使いやすいのです。Excelのバージョンによって操作は違いますが「オプション」「数式」「数式の処理」で「R1C1参照形式を使用する」にチェックを入れると列記号が列番号に変わります。プログラムを雲たい時はチェックを入れると判りやすくなります。
No.1
- 回答日時:
マクロ(VBA)を使う事になると思います。
以下のような物はいかがでしょうか?Sub Sample()
Const 元列始番号 = 2 'B列 ← 環境に合わせて下さい
Const 元行始番号 = 1 '1行目 ← 環境に合わせて下さい
Const 先列始番号 = 9 'I列 ← 環境に合わせて下さい
Const 先行始番号 = 2 '2行目 ← 環境に合わせて下さい
Dim 元行 As Long
Dim 先行 As Long
Columns(先列始番号).NumberFormatLocal = "@"
先行 = 先行始番号
For 元行 = 元行始番号 To Cells(Rows.Count, 元列始番号).End(xlUp).Row
If Cells(元行, 元列始番号).Value <> "" Then
Cells(先行, 先列始番号).Value = Cells(元行, 元列始番号).Value
Cells(先行, 先列始番号 + 1).Value = Cells(元行, 元列始番号 + 1).Value
If Left(Cells(元行, 元列始番号 + 2).Value, 1) = "@" Then
Cells(先行, 先列始番号 + 2).Value = Cells(元行 + 1, 元列始番号 + 2).Value
Else
Cells(先行, 先列始番号 + 2).Value = Cells(元行, 元列始番号 + 2).Value
End If
先行 = 先行 + 1
End If
Next
Columns(先列始番号 + 2).Replace What:="BAG", Replacement:=""
End Sub
この回答へのお礼
お礼日時:2020/01/11 11:20
ご回答ありがとうございます。
元列始番号や元行始番号などわかりませんので、
全体の画像を添付しました。
お手数ですが、埋めて頂くことが可能でしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/06/15 14:11
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/06/23 15:02
- Excel(エクセル) 指定した条件でTRANSPOSE関数を使う 5 2023/08/18 19:45
- Excel(エクセル) Excelで漢字人名が勝手に並び変わる(続) 4 2023/03/21 21:28
- その他(IT・Webサービス) 高速処理可能な表計算ソフトについて ExcelやGoogleスプレッドシートのような表計算ソフトで、 2 2023/04/29 16:06
- Excel(エクセル) 出勤簿の土、日、休日に色付けできない 2 2022/08/04 20:10
- Excel(エクセル) 請求書と領収書の作成 4 2022/11/10 16:13
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Excel(エクセル) ある文字を含む際に、値を返す数式についてです 5 2022/08/28 16:58
- Excel(エクセル) ある数値に対して、値を返す数式についてです 2 2022/09/13 22:06
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
LEFT関数とIF関数の組み合わせ...
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
Excelの行数、列数を増やしたい...
-
「段」と「行」の違いがよくわ...
-
VBAで別ブックの列を検索し、該...
-
エクセル 重複 隣の列 一番...
-
CSVファイルの「0落ち」にVBA
-
リストからデータを紐付けしたい
-
ListViewで列を指定して表示さ...
-
【VBA】ピボットテーブルの範囲...
-
Alt+Shift+↑を一括で行うには、...
-
VBA 指定した列にある日時デー...
-
エクセル マクロ 範囲指定で...
-
Excel VBAマクロ セル位置取得...
-
エクセル マクロ 範囲の値を上...
-
最近急にVBAの処理速度が遅くな...
-
エクセル 重複したデータを別...
-
土日の列幅の自動変更を教えて...
-
エクセルで複数列の検索をマク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
「段」と「行」の違いがよくわ...
-
LEFT関数とIF関数の組み合わせ...
-
VBA
-
Excelの行数、列数を増やしたい...
-
VBA 指定した列にある日時デー...
-
エクセルで複数列の検索をマク...
-
CSVファイルの「0落ち」にVBA
-
エクセルマクロの組み方
-
エクセルのソートで、数字より...
-
えABのある列って
-
VBAで別ブックの列を検索し、該...
-
Excel文字列一括変換
-
エクセルで住所を県と市・郡と...
-
リストからデータを紐付けしたい
-
Alt+Shift+↑を一括で行うには、...
-
エクセル マクロ 範囲指定で...
-
エクセルで最初の行や列を開け...
-
エクセル 重複 隣の列 一番...
おすすめ情報
ご回答ありがとうございます。
実現できました。
ご回答ありがとうございます。
元列始番号や元行始番号などわかりませんので、
全体の画像を添付しました。
お手数ですが、埋めて頂くことが可能でしょうか?