条件付き書式で対応できると思います｡
Excel2010で説明させていただきます｡
ﾎｰﾑﾘﾎﾞﾝの条件付き書式→ｾﾙの強調表示ﾙｰﾙ→指定の値に等しい
次の値に等しいｾﾙを書式設定→参照するｾﾙ座標を指定→書式を赤の文字に設定
複数の条件を設定したい場合は､新しいﾙｰﾙをｸﾘｯｸして同様に設定してください｡

support.office.comに解説がありましたのでﾘﾝｸよりご参照ください｡
https://support.office.com/ja-jp/article/%E3%82%BB%E3%83%AB%E5%86%85%E3%81%AE%E6%96%87%E5%AD%97%E5%88%97%E3%81%AB%E5%9F%BA%E3%81%A5%E3%81%84%E3%81%A6%E6%9D%A1%E4%BB%B6%E4%BB%98%E3%81%8D%E6%9B%B8%E5%BC%8F%E3%82%92%E9%81%A9%E7%94%A8%E3%81%99%E3%82%8B-09008eb0-0f56-44c5-beb2-2192aa833d5b

世良満久
〆

Excelではｾﾙ内の一部のみに自動的に書式を加える方法が用意されていません｡


ｺﾒﾝﾄにもありますが､VBAを使用すればできそうです｡
英語ですが､使えそうな関数を作るｺｰﾄﾞがありました｡
http://vbadud.blogspot.jp/2007/09/excel-vba-change-font-color-for-part-of.html


もしくは､お探しの方法ではありませんが､文字列の中から指定した行の文字列を切り抜くことならできます｡
A1に文字列､B1に数字があるとして､任意のｾﾙに

=MID(A1,FIND(CHAR(1),SUBSTITUTE(A1,CHAR(10),CHAR(1),B1-1)),FIND(CHAR(1),SUBSTITUTE(A1,CHAR(10),CHAR(1),B1))-FIND(CHAR(1),SUBSTITUTE(A1,CHAR(10),CHAR(1),B1-1)))

後はこのｾﾙに条件付き書式でﾃﾞｰﾀが入っていれば赤にする
簡単なのは｢指定の数値より大きい｣で数値を0にして書式を設定する方法ですかね｡

ちなみに､CHAR(10)はExcelのﾃﾞﾌｫﾙﾄの改行ｺｰﾄﾞですが､ﾃﾞｰﾀの出力元によってはCHAR(13)の場合もあるので､CHAR(10)でｴﾗｰになる場合には(13)に変えてみてください｡

Option Explicit

' 参考 http://officetanaka.net/excel/vba/tips/tips11.htm
Sub Macro1()
 Const colText = "A" ' 表示文の列
 Const colIndex = "B" ' 指定行数の列
 Dim text As String ' 表示文のｺﾋﾟｰ
 Dim index As Variant ' 強調する行
 Dim chrStart As Long ' 強調する行までの文字数
 Dim chrLen As Long ' 強調する行の文字数
 Dim i As Long
 Dim j As Long
 For i = 1 To Cells(Rows.Count, colText).End(xlUp).Row ' 1行目から最終行のｾﾙまで処理する
 text = Cells(i, colText).Value
 index = Cells(i, colIndex).Value
 chrStart = 1 ' 表示文1行目までの文字数は1
 If Not IsNumeric(index) Or index = 0 Then ' 指定行数が数値でないときは処理しない
 index = 0
 chrStart = 0
 End If
 For j = 2 To index ' 表示文の指定行数までの文字数を数える
 chrStart = InStr(chrStart, text, vbLf, vbBinaryCompare) ' chrStartを改行位置までの文字数にする
 If chrStart = 0 Then ' 改行がない＝指定行数がないとき
 Exit For
 End If
 chrStart = chrStart + 1 ' 改行の次の文字(次行の先頭)までの文字数にする
 Next j
 If chrStart > 0 Then ' 改行がない＝指定行数がないときは処理しない
 chrLen = InStr(chrStart, text, vbLf, vbBinaryCompare)
 If chrLen = 0 Then ' 改行がない＝最終行のとき
 chrLen = Len(text)
 End If
 chrLen = chrLen - chrStart + 1
 With Cells(i, colText).Characters(Start:=chrStart, Length:=chrLen).Font
 .Color = RGB(255, 0, 0)
 .Bold = True
 End With
 End If
 Next i
End Sub