値が見つかった場合、列Hに値を入れる、列Hにすでに値が存在する場合、右に列一つずらして値を入れ次の行に行く。
次の行でisWithinRange がTrueのままであればI列で値が存在するかどうか確認する。存在しない場合は値を入れる。存在する場合は次の列に値を入れる。


  If InStr(1, currentLine, FistSeachName, vbTextCompare) > 0 Then
            isWithinRange = True
            
        End If
        
        If Not IsEmpty(Rakuraku_ws.Cells(Value, "H")) Then
                    
            値が入っている場合
            extractedLines = currentLine & vbCrLf
            Rakuraku_ws.Cells(Value, "I").Value = extractedLines
            Rakuraku_ws.Cells(Value, "I").Value = Replace(Rakuraku_ws.Cells(Value, "I").Value, ReplaceValue1, ReplaceData)
            Rakuraku_ws.Cells(Value, "I").Value = Replace(Rakuraku_ws.Cells(Value, "I").Value, ReplaceValue2, ReplaceData)
               
        Else
                 
            extractedLines = currentLine & vbCrLf
            Rakuraku_ws.Cells(Value, "H").Value = extractedLines
            Rakuraku_ws.Cells(Value, "H").Value = Replace(Rakuraku_ws.Cells(Value, "H").Value, ReplaceValue1, ReplaceData)
            Rakuraku_ws.Cells(Value, "H").Value = Replace(Rakuraku_ws.Cells(Value, "H").Value, ReplaceValue2, ReplaceData)
                 
        End If
                 
        If InStr(1, currentLine, LastSearchName, vbTextCompare) > 0 Then
            isWithinRange = False
            Value = Value + 1
        End If