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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「段」と「行」の違いがよくわ...
-
エクセルで離れた列を選択して...
-
VBA 指定した列にある日時デー...
-
列方向、行方向の定義
-
VLOOKUPの列番号の最大は?
-
LEFT関数とIF関数の組み合わせ...
-
エクセル マクロ 範囲の値を上...
-
エクセル マクロ 範囲指定で...
-
Excelの行数、列数を増やしたい...
-
エクセルで最初の行や列を開け...
-
VBA
-
Accessのレポートで繰り返し表...
-
【再投稿】【マクロ】元データ...
-
Excelの住所録を一まとめにする...
-
Excel 区切り位置指定ウィザー...
-
横軸を日付・時間とするグラフ化
-
リストからデータを紐付けしたい
-
Excelの降順の仕方
-
エクセルの列をたたむ操作
-
結合セルを含んだ並べ替え VBA
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「段」と「行」の違いがよくわ...
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
列方向、行方向の定義
-
LEFT関数とIF関数の組み合わせ...
-
Excelの行数、列数を増やしたい...
-
エクセル マクロ 範囲指定で...
-
VBA 指定した列にある日時デー...
-
エクセルのソートで、数字より...
-
Excel文字列一括変換
-
VBAで結合セルを転記する法を教...
-
エクセルで最初の行や列を開け...
-
エクセルマクロの組み方
-
エクセルで複数列の検索をマク...
-
最近急にVBAの処理速度が遅くな...
-
エクセルマクロPrivate Subを複...
-
エクセル マクロ 範囲の値を上...
-
リストからデータを紐付けしたい
-
Excel 区切り位置指定ウィザー...
-
データシートビューのタイトル...
おすすめ情報
ご回答ありがとうございます。
実現できました。
ご回答ありがとうございます。
元列始番号や元行始番号などわかりませんので、
全体の画像を添付しました。
お手数ですが、埋めて頂くことが可能でしょうか?