FC2ブログ

VlookupN 解説付き

2017–10–05 (Thu) 01:29
VlookupN.pdf

Function VlookupN(検索する文字列 As Variant, 列番号 As Long, 範囲 As Variant, 前のセル As Range)
Dim hani As Variant
hani = 範囲
Dim MaxR As Long
Dim MaxH As Long
Dim RE, strPattern As String, msg As String, reMatch
Set RE = CreateObject("VBScript.RegExp")
MaxR = UBound(hani, 1)
MaxH = UBound(hani, 2)
Dim i As Long, j As Long, t As Long
For i = 1 To MaxR
For j = 1 To MaxH
If hani(i, j) = 検索する文字列 Then

With RE
.Pattern = strPattern
.IgnoreCase = True
.Global = True
strPattern = Replace(前のセル, "*", ".*")
For t = 1 To MaxH
On Error Resume Next
Set reMatch = .Execute(hani(i, t))
On Error GoTo 0
If IsEmpty(reMatch) = False Then
If reMatch.Count > 0 Then
VlookupN = reMatch(0).Value
If VlookupN <> "" Then
Dim IchiR As Long
Dim IchiC As Long
IchiR = i
IchiC = t
i = MaxR
j = MaxH
End If
End If
End If
Next
End With
End If
Next
Next
For IchiR = IchiR + 1 To MaxR
For IchiC = 1 To MaxH
If hani(IchiR, IchiC) = 検索する文字列 Then
VlookupN = hani(IchiR, 列番号)
End If
Next
Next
If VlookupN = 前のセル Then
VlookupN = ""
End If
End Function
スポンサーサイト



« シートを作成して貼り付ける | HOME |  括弧内・括弧前・括弧後を取得 »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク