提取单元格内红色字体

chenhu1981 · 发表于 2014-4-16 10:25

大家好，附件为本司的产品，现我想提取单元格内的红色字体，不知能否实现，谢谢！

红色字体.rar (5.7 KB, 下载次数: 47)

dajiahaoxinku12 · 发表于 2014-4-16 12:29

Sub 提取()
For i = 1 To 6
      For k = 1 To Len(Cells(2 + i, 2))
         If Range("b" & 2 + i).Characters(k, 1).Font.Color = vbRed Then
            Cells(i + 2, 1) = Cells(i + 2, 1) & Range("b" & 2 + i).Characters(k, 1).Text
         End If
      Next

Next
End Sub

dajiahaoxinku12 · 发表于 2014-4-16 12:31

………………………………………………………………………………………………

jacksgq · 发表于 2014-4-25 14:53

=MID(B3,FIND("带",B3)+1,FIND("壳",B3)-FIND("带",B3))

lovean_110 · 发表于 2014-5-9 11:22

有点深奥,呜呜,看不懂,学习中...

wcklhm · 发表于 2014-5-12 12:26

=TRIM(MID(SUBSTITUTE(SUBSTITUTE(B3,"带",REPT(" ",40),1),"壳",REPT(" ",40)),20,60))&"壳"）

		自动登录	找回密码
密码			免费注册