質問: エクセル セル内の文字を条件に一致した時に結合する方法 下表の表で同じ品番で色が複数あるときに本数を先頭行に集計しているのですが色を備考欄のセルに結合して表示する関数又はマクロで方法を教えてください。 色が重複する時は色の本数表示はしません。(a1はbが2本ありますがb*2とはしません) no. 品番 本数 色 備考 1 a1 4 a a/b/c a1 b a1 b a1 c 2 a2 1 a a 3 a3 b b よろしくお願いします。
回答: ano.2です。 ちょっとミスがありましたので修正版。 sub test_2() 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("d" & i).value) = 0, st & range("d" & i).value & "/", st) else st = iif(instr(st, range("d" & i).value) = 0, st & range("d" & i).value & "/", st) range("e" & j).value = left(st, len(st) - 1) st = "": j = 0 end if next end sub