Findを用いて数値を検索し、該当セルを移動させるときにエラーが発生してしまう

Question

前提・実現したいこと

excel VBAで、指定範囲内(今回の場合はL列)から最大値を検索し、別の列(N列)に1つずつ移動させて降順に並べるプログラムを作ることを考えています。繰り返しなどの文はこれから追加していく予定なので、とりあえず1つ数値を移動させられるようにたいです。

発生している問題・エラーメッセージ

以下にコードを載せていますが、指定したセルを切り取ってN列へ移動させるところ(12行目)で以下のようなエラーが出てしまいます。

オブジェクト変数または With ブロック変数が設定されていません。

該当のソースコード

Sub 最大値を順に移動()

Dim maxLength As Long
Dim length As Range

With Application.WorksheetFunction
    maxLength = .Max(Range("L:L"))
End With

Set length = Range(Cells(12, 2), Cells(Rows.Count, 12).End(xlUp))
Set length = length.Find(maxLength, LookIn:=xlValues, lookat:=xlWhole)
length.Cut Destination:=Cells(Rows.Count, 14).End(xlUp).Offset(1, 0)

End Sub

試したこと

Findを使用している11行目で、右辺の"length"を"Cells"に変えるとプログラムの実行自体はできるのですが、これだと指定範囲(L列の数値が入力されている部分)外の数値が移動される可能性もあります(実際J列に同じ数値があったとき、そちらのセルが移動されてしまいました)。

excelの画面

L列の積載寸法をN列に大きいものから移すイメージです。

Answer 1

Set length = Range(Cells(12, 2), Cells(Rows.Count, 12).End(xlUp))

を

Set length = Range(Cells(2, 12), Cells(Rows.Count, 12).End(xlUp))

にすれば良いかと思います。

質問のコードですと検索範囲が「B12とL列の最終データ行の間のセル範囲」となります。
このセル範囲にmaxLengthがない場合、Set length = length.Find(maxLength, LookIn:=xlValues, lookat:=xlWhole)にてlengthがNothingとなり、length.Cutでエラーとなります。

Comments

[sunaday]

ご回答ありがとうございます。
ご指摘いただいた部分のセル範囲を直しましたが、依然として最終行実行時に同じエラーが出てしまいます。
L列で最大値を求めて、同じくL列でその値のセルを指定し、移動するというイメージなので、値が見つからないということは無くなったかと思ったのですが、、、
型があっていない、ということだったりするのでしょうか？

[meg_]

自分が試したところエラーは出ません。具体的にエラーが出たエクセルシートの画像を質問に貼ってもらえませんか？

[sunaday]

シートの画像貼り付けました、よろしくお願いいたします。

[sunaday]

すみません！解決できました！
L2のセルが「数値」になっていたところを「標準」に直したらうまくいきました。

[meg_]

エラーは出ませんでしたよ。
全データ移動後にマクロ実行すればエラーは出ますが。