エクセルＶＢＡ（ＬＯＯＫＵＰ関数）Ｗｉｎ2000、Ｏｆｆｉｃｅ2000

こんにちは。
頑張っていらっしゃいますね。

データ構造が解からないので外しているかもしれません。
元ブックをコピーして、テスト環境で試して下さい。

Sub ATest()
Const sN = "DataSheet"
Dim dRange As Range, sRange As Range

　With Worksheets(sN)
　　 Set dRange = .Range("H3:H" & .Range("H65536").End(xlUp).Row)
　End With

　With Worksheets("syukei")
　　 Set sRange = .Range("B3:B" & .Range("B65536").End(xlUp).Row)
　End With

　sRange.Offset(0, -1) = "=LOOKUP(B3," & sN & "!" & dRange.Address & _
　　　　　　　　　　"," & sN & "!" & dRange.Offset(0, -5).Address & ")"

　Set dRange = Nothing: Set sRange = Nothing
End Sub

質問を読んで、『集計シートのB列とデータシートのH列を照合して一致したデータシートの値を持ってくる。』ようですが・・・

　少し問題点が・・・
　　１．LOOKUPを使っているが、データシートのH列はソートされている？
　　２．LOOKUPで一致しないデータがあると、#N/Aのエラーがでる。
　　　　　さらに悪いのは、違うデータを持ってくる事がある。どうやって対応している？
　　３．これだけの行数と列数に対してLOOKUPを使用して大丈夫？
　　　　　やるとすれば、すぐ、値に書き換えるか。
　　　　　と、すると、何のためのLOOKUPか。

という事で、私ならFindメソッドを使うでしょう。データのソート、見つからない場合の対応も簡単ですし。

ただ、下のコードのデータシートから集計シートに書き出すところは自信なしです。質問を読んで、よく分からなかったところです。
集計シートのB列とデータシートのH列を照合して、一致したら、その行の処理を行っています。セル単位の処理ではないです。

LOOKUPは使っていませんので、不要なら読み飛ばして下さい。


Sub Syuukei()
　　Dim wsS As Worksheet '集計表
　　Dim wsD As Worksheet 'データシート
　　　　Set wsS = Worksheets("Syukei")
　　　　Set wsD = Worksheets("DataSheet")

　　Dim Rw As Long '集計表の行カウンタ
　　Dim Col As Integer, pCol As Integer '集計表とデータシートの列カウンタ
　　Dim searchArea As Range '検索する範囲
　　Dim fCell As Range '見つけたセル
　　Dim fRw As Long '見つけたセルの行

　　Set searchArea = wsD.Range("H3:H" & wsD.Range("H65536").End(xlUp).Row)
　　Rw = 3
　　While wsS.Cells(Rw, 2) <> ""
　　　　'集計表のB列の値でデータシートのH列を検索
　　　　Set fCell = searchArea.Find(wsS.Cells(Rw, 2), Lookat:=xlWhole)
　　　　If Not fCell Is Nothing Then
　　　　　　'見つかったらその行数を求める
　　　　　　fRw = fCell.Row
　　　　　　'データシートの値を集計表に書く
　　　　　　For Col = 1 To 45
　　　　　　　　If Col <> 2 Then
　　　　　　　　　　Select Case Col
　　　　　　　　　　　　'集計表A列=データシートC列
　　　　　　　　　　　　Case 1: pCol = 3
　　　　　　　　　　　　'集計表C列=データシートI列、集計表D列～I列までは同じ？
　　　　　　　　　　　　Case 3 To 9: pCol = Col + 6
　　　　　　　　　　　　'集計表J列=データシートR列、8列ずれ
　　　　　　　　　　　　Case 10 To 45: pCol = Col + 8
　　　　　　　　　　End Select
　　　　　　　　　　wsS.Cells(Rw, Col) = wsD.Cells(fRw, pCol)
　　　　　　　　End If
　　　　　　Next
　　　　End If

　　　　Rw = Rw + 1 '次の行
　　Wend
　　Set searchArea = Nothing
End Sub


※気がついた事
　For DLrow =1 To ds.Range("B65536").End(xlUp).Row
　Next
　DLrow は最終行+1になってしまうはずです。書くなら、
　DLrow = ds.Range("B65536").End(xlUp).Row でしょう。

　Dim ds,ss As Worksheet
　これも書くなら
　Dim ds As Worksheet
　Dim ss As Worksheet
　です。最初の書き方では、dsはバリアント変数です。

　Dim i,r,d As Long
　も
　Dim i As Long,r As Long,d As Long
　としたほうがいいでしょう。この辺りはHelpに説明があります。

こんにちは。

既に解決されたみたいなので、補足に対する回答だけ。。

関数なら、このようなケースの場合は LOOKUP では無く
INDEXとMATCHを組み合わせて↓こんな感じでしょうか。

集計シートのA3に
=INDEX(DataSheet!$A$3:$BA$6308,MATCH(B3,DataSheet!$H$3:$H$6308,0),3)

ただ、この手の関数は使いすぎると猛烈に重くなるので程ほどに。