参考红色代码
rt.Rows(7).Style.TextColor = Color.red
rt.Cells(6,0).Text = rw ("颜色5")
rt.Cells(6,1).Text = rw ("排名4")
rt.Cells(6,2).Text = rw ("上期排名5")
rt.Cells(6,3).Text = rw ("5数量")
rt.Cells(6,4).Text = rw ("总仓4")
rt.Cells(6,5).Text = rw ("门店4")
rt.Cells(6,6).Text = rw ("补货未到5")
rt.Cells(6,7).Text = rw ("分布店铺4")
rt.Cells(6,8).Text = rw ("销售店铺4")
rt.Cells(7,3).Text = rw ("自营")
rt.Cells(7,4).Text = rw ("自营店")
rt.Cells(7,5).Text = rw ("联营")
rt.Cells(7,6).Text = rw ("联营店")
rt.Cells(7,7).Text = rw ("加盟")
rt.Cells(7,8).Text = rw ("加盟店")