Macro

投稿日: |


Sub Target()
  
    Dim a_retsu As Integer
    Dim b_retsu As Integer
    Dim a_MaxRow As Integer
    Dim b_MaxRow As Integer

    a_MaxRow = Range("A2").End(xlDown).Row
    b_MaxRow = Range("B2").End(xlDown).Row

    For a_retsu = 2 To a_MaxRow
        For b_retsu = 2 To b_MaxRow
             If InStr(Cells(a_retsu, 1).Value, Cells(b_retsu, 2).Value) > 0 Then
                Cells(a_retsu, 3) = "TRUE"
                b_retsu = 0
                Exit For
             Else
                Cells(a_retsu, 3) = "FALSE"
             End If
        Next
    Next
  
End Sub
  • このエントリーをはてなブックマークに追加
  • 参考になったら

関連記事

  • 記事はありませんでした

©2017 パンダVPN
電気通信事業者届出番号:A-25-13119

^