以下のｺｰﾄﾞをﾌﾞｯｸA の標準ﾓｼﾞｭｰﾙに貼り付けて､ｻﾌﾞﾙｰﾁﾝの先頭の変数 ref_book_filename にﾌﾞｯｸB のﾌｧｲﾙ名をﾌﾙﾊﾟｽで設定してください｡
そして､set_data4 ｻﾌﾞﾙｰﾁﾝを実行してください｡

Sub set_data4()
 ref_book_filename = "d:\foo\bar.xlsx"  ' 参照先の Book (ﾌﾙﾊﾟｽ)
 ref_key_column = 2  ' B列
 ref_value_column = 11  ' K列
 search_column = 26  ' Z列
 write_column = search_column + 12  ' AL列

 Set this_book = ActiveWorkbook
 Set this_sheet = ActiveSheet
 Set ref_book = Workbooks.Open(ref_book_filename)

  ' 別ｼｰﾄの値を読み込む
 Set ref_sheet = ref_book.Sheets(1)  ' ひとつめのｼｰﾄ
 last_row = ref_sheet.Cells(Rows.Count, ref_key_column).End(xlUp).Row

 Set Map = CreateObject("Scripting.Dictionary")
 For r = last_row To 1 Step -1
 Set cell = ref_sheet.Cells(r, ref_key_column)
 If Not IsEmpty(cell) And Not cell.Value = "" Then
 If Not Map.Exists(cell.Value) Then
 Map.Add cell.Value, r
 End If
 End If
 DoEvents
 Next


 this_book.Activate
 this_sheet.Activate

  ' 対象ｼｰﾄから探して､値を書き込む
 last_row = Cells(Rows.Count, search_column).End(xlUp).Row
 For r = 1 To last_row
 Set cell = Cells(r, search_column)
 If Not IsEmpty(cell) And Not cell.Value = "" Then
 ref_r = Map.Item(cell.Value)
 If Not IsEmpty(ref_r) Then
 ref_sheet.Range( _
 ref_sheet.Cells(ref_r, ref_value_column), _
 ref_sheet.Cells(ref_r, ref_value_column + 4)).Copy _
 Range(Cells(r + 1, write_column), Cells(r + 1, write_column + 4))
 Map.Remove cell.Value
 End If
 End If
 DoEvents
 Next

 Set Map = Nothing

 ref_book.Close
 Set ref_book = Nothing

End Sub

• ﾌﾞｯｸA の Z列の値が､ﾌﾞｯｸB の B列から見つからない場合には､何もしません
• ﾌﾞｯｸA の Z列で､離れた位置に同じ値があった場合には､行場号の小さい方の AL?AP列に貼り付けます

質問の文面では冒頭に｢半角全角を区別して｣とありますが､特に気にしなくて良いですよね？