行と列をループしているときのインデックス/マッチ

Question

私は次のコードを書いています。これは、21から21までの値を別のシートの最後の行にルックアップし、このシートの列Aおよび他のシートの列Bにある。

以下のコードを使用すると、ワークシートエラーが発生します。理由を教えてください。

Dim wsMvOld As Worksheet 
Dim wsMvFile As Worksheet 
Dim wsColumn As Long 
Dim lastColumn As Long 
Dim y As Integer 
Dim i As Integer 
Dim FrRngCount As Range 

Set wsMvOld = wbMVRVFile.Worksheets(2) 

wbMVRVFile.Worksheets.Add().Name = "MV " & Format(DateSerial(Year(Date), Month(Date), 0), "dd-mm-yy") 

Set wsMvFile = wbMVRVFile.ActiveSheet 

Set FrRngCount = wsMvFile.Range("A:A") 
y = Application.WorksheetFunction.CountA(FrRngCount) 

lastColumn = wsMvFile.Cells(1, wsMvFile.Columns.Count).End(xlToLeft).Column 

For wsColumn = 21 To lastColumn 
For i = 2 To y 
    wsMvFile.Columns(wsColumn).Cells(i) =  Application.Index(wsMvOld.Range(wsColumn), Application.Match(wsMvFile.Range("A" & i), wsMvOld.Range("B:B"), 0)) 
Next i 

Next wsColumn 

End Sub 

ありがとうございました！

Answer 1

これはテストされていませんが、ワークシート関数をvba findメソッドに置き換えます。

Private Sub Worksheet_Activate() 
Dim wsMvOld As Worksheet 
Dim wsMvFile As Worksheet 
Dim wsColumn As Long 
Dim lastColumn As Long 
Dim y As Integer 
Dim i As Integer 
Dim FrRngCount As Range 

Set wsMvOld = wbMVRVFile.Worksheets(2) 

Set wsMvFile = wbMVRVFile.Worksheets.Add() 
wsMvFile.Name = "MV " & Format(DateSerial(Year(Date), Month(Date), 0), "dd-mm-yy") 



Set FrRngCount = wsMvFile.Range("A:A") 
y = Application.WorksheetFunction.CountA(FrRngCount) 

lastColumn = wsMvFile.Cells(1, wsMvFile.Columns.Count).End(xlToLeft).Column 


For i = 2 To y 
    Dim rng As Range 
    Set rng = sMvOld.Range("B:B").Find(wsMvFile.Range("A" & i)) 
    For wsColumn = 21 To lastColumn 
     If Not rng Is Nothing Then 
      wsMvFile.Columns(wsColumn).Cells(i).Value = wsMvOld.Cells(rng.Row, wsColumn) 
     Else 
      wsMvFile.Columns(wsColumn).Cells(i).Value = 0 
     End If 
    Next wsColumn 
Next i 


End Sub