下記のマクロはC列5行目から文字の
下記のマクロはC列5行目から文字の入っている最後の行までの範囲で
セル内に蜜柑や林檎、苺の文字が入っていたら同一行のA列にも蜜、林、苺
の文字を入れるというマクロなのですが・・・
たとえばC列12行目が
『蜜柑林檎苺』
となっていた場合、A列に入る言葉は『苺』となり『蜜』『林』という言葉が
消えてしまいます。
そこでこのマクロを少し改造して、
C列が『蜜柑林檎苺』や『蜜柑苺』となっている場合
A列に入る言葉は『蜜林苺』ないし『蜜苺』という風に積み重ねていくように改造はできないでしょうか?
↓この部分を改造すればできるようになりますか?
Cells(i, 2).Offset(0, -1).Value = "蜜"
Sub 蜜柑林檎苺()
Dim i As Long
With ActiveSheet
For i = 5 To .Cells(Rows.count, "C").End(xlUp).Row
If InStr(.Cells(i, "C"), "蜜柑") > 0 Then
MsgBox i & "行目アウト!"
Cells(i, 2).Offset(0, -1).Value = "蜜"
End If
If InStr(.Cells(i, "C"), "林檎") > 0 Then
MsgBox i & "行目アウト!"
Cells(i, 2).Offset(0, -1).Value = "林"
End If
If InStr(.Cells(i, "C"), "苺") > 0 Then
MsgBox i & "行目アウト!"
Cells(i, 2).Offset(0, -1).Value = "苺"
End If
Next i
End With
End Sub