質問: エクセル 条件によりセル内の文字を結合する方法を教えてください 下表で同じ品番で色が複数あるときに本数を先頭行に集計しています。 同じ品番で色が複数ある場合に備考欄のセルに結合して表示する関数又はマクロで方法を教えてください。 色が重複する時は色の本数表示はしません。(a1はbが2本ありますがb*2とはしません) no.行はデータとして扱う行になります。 no. 品番 本数 合計 色 備考 1 a1 1 4 a a/b/c a1 1 b a1 1 b a1 1 c 2 a2 1 1 a a 3 a3 1 1 b b よろしくお願いします。
回答: sub test_3() dim i as long, j as long dim st as string j = 0 for i = 2 to cells(rows.count, 2).end(xlup).row + 1 j = iif(j = 0, i, j) if range("b" & i).value = range("b" & i + 1).value then st = iif(instr(st, range("e" & i).value) = 0, st & range("e" & i).value & "/", st) else st = iif(instr(st, range("e" & i).value) = 0, st & range("e" & i).value & "/", st) range("f" & j).value = left(st, len(st) - 1) st = "": j = 0 end if next end sub これでしょうか。