求助一个代码的问题

ryoryo66

图中C5:V5范围内的数据,是由比分和一个换行符连接的数值.只看比分的内容,不看换行符下面的内容.
如果比分的":"左边为1,就加粗这个单元格.请问这个代码应该怎么写啊?

liangmutou01

Sub jc()
  For Each b In Range("c5:v5")
    If Split(Split(b, Chr(10))(0), ":")(0) = 1 Then b.Font.Bold = True
  Next b
End Sub
如果只考虑1位：
Sub jc()
  For Each b In Range("c5:v5")
    If left(b,1) = 1 Then b.Font.Bold = True
  Next b
End Sub

ryoryo66

liangmutou01 发表于 2019-11-7 22:14
Sub jc()
  For Each b In Range("c5:v5")
    If Split(Split(b, Chr(10))(0), ":")(0) = 1 Then b.Font ...

非常感谢老师.
对了,我套用了一个 右边 的情况,,用right不行
那如果是右边数字为1的话,需要怎么改呀?

renkangjizhen

Sub jc()
dim rng as range
  For Each rng In Range("c5:v5")
    if left(rng.value,1)=1 Then rng.Font.Bold = True
  Next rng
End Sub

ryoryo66

renkangjizhen 发表于 2019-11-8 09:49
Sub jc()
dim rng as range
  For Each rng In Range("c5:v5")

辛苦老师了,
我是说, 比如 2:1,就把 ":" 右边为1的单元格进行加粗.

这个情况

liangmutou01

右边为1
Sub jc()
  For Each b In Range("c5:v5")
    If Right(Split(b, Chr(10))(0), 1) = 1 Then b.Font.Bold = True
  Next b
End Sub

ryoryo66

liangmutou01 发表于 2019-11-8 16:54
右边为1
Sub jc()
  For Each b In Range("c5:v5")

非常感谢老师!辛苦了!