高手救命，需要把左格中的单词在右格是加粗，不需要提取

luckflay

同上，就是一个表格左列是单词，后面是例句，把左右单词内容，在例句中加粗显示出来，求高手出招，谢谢去函数公式讨论去问了，说解决不了。

chis3

Sub test()
    Dim arr
    Dim i As Long
    Dim j As Integer
    Dim str As String
    arr = [a1].CurrentRegion
    For i = 1 To UBound(arr)
        j = InStr(1, arr(i, 2), arr(i, 1), vbTextCompare)
        If j > 0 Then
             Cells(i, 2).Characters(Start:=j, Length:=Len(arr(i, 1))).Font.FontStyle = "粗體"
        End If
    Next i
End Sub

NadrsSaber

Sub Macro1()

    Dim i
   
    For i = 1 To Sheet1.[a65536].End(xlUp).Row
        Sheet1.Range("B" & i).Select
        With ActiveCell.Characters(InStr(Range("B" & i), Range("A" & i)), Len(Range("A" & i))).Font
            .FontStyle = "加粗"
        End With
    Next

End Sub

luckflay

怎么用的，谢谢

chis3

luckflay 发表于 2019-11-25 14:44
怎么用的，谢谢

連用也不會
就把檔案上傳吧,直接給你

luckflay

好了，虽然没用过，七弄八弄也出来了，谢谢NadrsSaber，代码成功，第一位的没反应，估计我的问题多点，谢谢