|
>InPtに入力された値をC3セルに入れ、VLOOKUP関数を使って表示し、
>表示された内容を新規ブックにコピーしていましたが
そのようなVLOOKUP関数はやめたほうが良いです。
"台帳"シートがActiveSheetなのですか?
その場合、
>If ActiveSheet.Range("$c$5:$c$3000").Find(What:=InPt, _
> LookIn:=xlValues, _
> lookat:=xlWhole, _
> SearchOrder:=xlByColumns, _
> MatchByte:=False) Is Nothing Then
ここで既に検索してないですか?
だったら、検索結果のセルをRange型変数に入れて、
その変数からのOffset位置でLoopしてセルの値を繋げばいいんじゃないですか?
':
Dim c As Range
Dim i As Long
Dim x As String
Dim v(23 To 63)
':
For i = 23 To 63
v(i) = c.Offset(, i)
Next
x = WorksheetFunction.Trim(Join(v, ""))
MsgBox x
':
|
|