我有以下数据框:
dat <- structure(list(value = c("YMNSMQEML", "FIYRHMFCV", "VLFKFDMFI",
"KLLDRFPVA", "RVLDDFTKL")), .Names = "value", row.names = c(NA,
-5L), class = c("tbl_df", "tbl", "data.frame"))
dat
#> value
#> 1 YMNSMQEML
#> 2 FIYRHMFCV
#> 3 VLFKFDMFI
#> 4 KLLDRFPVA
#> 5 RVLDDFTKL
给定以下regex pattern L.{2}[FR]
,我想创建一个Excel,其中的子字符串以粗体突出显示。
我怎样才能做到这一点呢?
使用LIKE运算符更新:
Option Explicit
Sub boldSubString_LIKE_OPERATOR()
Dim R As Range, C As Range
Dim MC As Object
Set R = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
For Each C In R
C.Font.Bold = False
If C.Text Like "L**F" Then
Set MC = .Execute(C.Text)
C.Characters(MC(0).firstindex + 1, MC(0).Length).Font.Bold = True
End If
Next C
End Sub
它在Set MC = .Execute(C.Text)
处中断,给出编译错误无效或未限定的引用。
https://stackoverflow.com/questions/51130741
复制相似问题