用VBA写一段将b2-b15与b20-b31区域中相同的文字填充黄色

以下是一段 VBA 代码，它可以将 B2 至 B15 与 B20 至 B31 区域中相同的文字填充黄色：

Sub FillSameTextYellow()

Dim rng1 As Range
Dim rng2 As Range
Dim cel1 As Range
Dim cel2 As Range

Set rng1 = Range("B2:B15")
Set rng2 = Range("B20:B31")

For Each cel1 In rng1
    For Each cel2 In rng2
        If cel1 = cel2 Then
            cel1.Interior.Color = RGB(255, 255, 153)
            cel2.Interior.Color = RGB(255, 255, 153)
        End If
    Next cel2
Next cel1

End Sub

您可以在 Microsoft Excel 中打开 VBA 编辑器（Alt + F11），然后将上述代码复制粘贴到模块中，最后运行该代码来实现功能。

相关问题

写一个EXCEL公式，将表格B行中B2到B20所有有内容的单元格用符号'+'连接起来，如果没有内容后面不要有+符号

可以使用以下公式将B2到B20中有内容的单元格用'+'符号连接起来：

=IF(B2<>"",B2,"")&IF(B3<>"","+ "&B3,"")&IF(B4<>"","+ "&B4,"")&IF(B5<>"","+ "&B5,"")&IF(B6<>"","+ "&B6,"")&IF(B7<>"","+ "&B7,"")&IF(B8<>"","+ "&B8,"")&IF(B9<>"","+ "&B9,"")&IF(B10<>"","+ "&B10,"")&IF(B11<>"","+ "&B11,"")&IF(B12<>"","+ "&B12,"")&IF(B13<>"","+ "&B13,"")&IF(B14<>"","+ "&B14,"")&IF(B15<>"","+ "&B15,"")&IF(B16<>"","+ "&B16,"")&IF(B17<>"","+ "&B17,"")&IF(B18<>"","+ "&B18,"")&IF(B19<>"","+ "&B19,"")&IF(B20<>"","+ "&B20,"")

这个公式会检查每个单元格是否有内容，如果有则用'+'符号连接起来，否则不添加符号。注意，这个公式包括B2到B20单元格，如果需要修改范围，只需更改公式中的B2和B20即可。

已知b0=1,b1=2,b2=3,bi=b(i-1)-b(i-2)+b(i-3),求b20,用c表示出来

根据题目中给出的递推式，可以得到b3=b2-b1-b0=-1，b4=b3-b2-b1=-4，b5=b4-b3-b2=-2，b6=b5-b4-b3=3，b7=b6-b5-b4=9，b8=b7-b6-b5=-10，b9=b8-b7-b6=-2，b10=b9-b8-b7=19，b11=b10-b9-b8=-33，b12=b11-b10-b9=52，b13=b12-b11-b10=-100，b14=b13-b12-b11=185，b15=b14-b13-b12=-337，b16=b15-b14-b13=622，b17=b16-b15-b14=-1155，b18=b17-b16-b15=2132，b19=b18-b17-b16=-3937，b20=b19-b18-b17=7250。因此，b20=7250，用C表示为：int b20 = 7250;