VBA Match関数を用いる場合についての質問です 下記VBAはAL:AO群を同一項目(AL列)を統合し、AM:AOを合算したものを、W:AA群のX列に入力した項目を参照して同行のAB列に並べるVBAです。 お聞きしたいのは 「rowX = Application.Match(Cells(ii, "AL"), Cells(lastRow, "X"), 0)」 のところで”型ちがい”と出ます。確認するとaaaは完了しますがbbbに進めない様です。どのようなことが原因で、同編集すれば良いのか教えていただけますでしょうか。 よろしくお願いいたします。 Dim valLMNO As Variant Dim rowX As Long Dim ii As Long Dim lastRow As Long For ii = 1 To Cells(Rows.Count, "AL").End(xlUp).Row For lastRow = 1 To Cells(Rows.Count, "X").End(xlUp).Row If Cells(ii, "AL") <> "" Then rowX = Application.Match(Cells(ii, "AL"), Cells(lastRow, "X"), 0) If Not IsError(rowX) Then dicAH.Item(Cells(ii, "AL")) = rowX End If End If Next
Visual Basic