使用dplyr

library(dplyr)
DF1 %>%
  mutate(
    ltr1 = substr(Col2, 1, 1),
    rn = cumsum(ltr1 != "B" | (lag(ltr1, default=ltr1[1]) != "B" | Col1 != lag(Col1, default=Col1[1]))),
    Col3 = DF2$Col3[rn]
  ) %>%
  select(-ltr1, -rn)
#      Col1 Col2 Col3
# 1      99   A1    1
# 2      99   A2    3
# 3      99   A3    5
# 4      99   A4    7
# 5      99   A5    9
# 6      99   B1   11
# 7      99   B2   11
# 8  **98**   B3   13
# 9  **98**   B4   13
# 10     99   C1   15
# 11     99   C2   17

我之所以从DF2中提取文字行号，是因为我们没有其他的“连接”条件。
演练：

• cumsum(.)是一个递增器：当条件为真时，则rn递增。对于Col2中不包含"B*"的每一行，这应该按1排序。
• ltr1 != "B" | lag(..) != "B"确保在"B"行中或前一行是"B"行时，不允许cumsum递增。
• addedCol1 != lag(Col1)增加了Col1中的更改会导致DF2中使用的行号（rn）递增。
• （使用rn作为名称完全是任意的，意味着是一个稍后删除的一次性名称）