ExcelVBA）Rangeメソッド失敗エラーの意味を教えてほしいです。

Question

現在Excelでループを使って大量のコードを処理しようとしているのですが以下の様なエラーがでます。
解決策や参考サイトなどありましたらそちらも併せて教えていただけますと勉強になるためよろしくお願いします。

エラー1004
Rangeメソッドは失敗しました:'_Global'オブジェクト

調べCellsを使ったりしてみましたが解決しなかったため質問いたします。

※このRangeの問題が解決したらDoを使うためコメントアウトしています。

エラーがでるのはこのコードのとき

Sub testLOOP()
  Dim a As Long
  a = 4
    ' Do
      Range(2, a) = Mid(Range(4, a),48,256)
    ' a = a + 1
    ' Loop
End Sub

Rangeの部分を下記にすると動く

Sub testLOOP()
  Dim a As Long
  a = 4
    ' Do
      Range(B4) = Mid(Range(D4),48,256)
    ' a = a + 1
    ' Loop
End Sub

Answer 1

皆様のご意見のおかげで知らないことや間違って覚えていたことの修正等ができました！
ありがとうございます！
結果として以下の様なコードになりました。

Cellsにすると列行指定が逆になるのはびっくりでした。。。

Dim a As Long
a = 4
Do While Cells(a,2)Value <> ""
Cells(a,2) = Mid(Cells(a,4)48,256)
a = a + 1
Loop
End sub

Answer 2

面白いテーマなので、色々なサイトを検索して、
色々な解説（だいたい同じような記述ではありますが）を読んで、
感じて、自分なりに理解したことを書いてみます。
（たぶん、他の解説サイトとは少し違ったニュアンスにはなります。
同じになるなら書かなくていいので＾＾；）

RangeとCellsの使い分けですが、
まぁ、色々なサイトで解説はされてますが、、、、（それは検索してもらうとして。）

Cellsプロパティ
→何行目の何列目と指定したい場合、及び、
セル範囲の中の何番目と指定したいときに使います。

じゃぁ、どの範囲の何行目の何列目なの？という疑問が出てくるかどうかわかりませんが、
シート全体のセル範囲なのか、
シート上のB4からE100のセル範囲なのか、
ホントいうと、指示を受け取る側にちゃんと指示をしてやらないと誤解が生じる可能性があります。

Rangeプロパティ
→セルの位置を示す番地を文字で指定したい場合、及び、
2つのセル範囲で作られる矩形のセル範囲で指定したい場合に使います。

今回の件の場合、

Range(4, a)

と、書いてしまったので、
「4」とか「a」が、
Rangeプロパティが想定していたものと違うものを渡してしまったので、
エラーになったと思われます。

なので、
＞Range(B4) = Mid(Range(D4),48,256)
は、

Cells(o,"B").value = Mid(cells(o,"D").Value,48,256)

と行番号と列番号で指定するか、

Range(”B" & o).Value = Mid(Range("D" & o).Value,48,256)

と、セルのアドレスを示す文字列を作って指定するかに、
するといいと思います。

※今の提示されたコードのままだと、
ループの終りの条件が書いてないので、無限ループになりそうなので、
注意が必要です。

====================================================================

結果として以下の様なコードになりました。

解決済のようですが、

Sub test()
    Dim c As Range
    Dim rngTop As Range
    Dim rngBottom As Range

    Set rngTop = Range("D4")
    Set rngBottom = Cells(Rows.Count, "D").End(xlUp)

    For Each c In Range(rngTop, rngBottom)
        c.Cells(1, -1).Value = Mid(c.Value, 48, 256)
    Next
End Sub

＞＞セル範囲の中の何番目と指定したいときに使います。
→c.Cells(1, -1)

＞＞2つのセル範囲で作られる矩形のセル範囲で指定したい場合に使います。
→Range(rngTop, rngBottom)

いい機会なのでこの辺の書き方（使い方）についても勉強して欲しいかなぁ。。。。。

あと、相変わらずループの終りの条件がないような。。。

Comments

[JUN_FOX]

追加の情報ありがとうございます。
Setの使い方など知らないことが多くとても勉強になりました。

＞あと、相変わらずループの終りの条件がないような。。。
Do While Cells(a,2)Value <> ""
空白セルにぶつかるまでのループ処理をいれてるので無限ループは防いでますよ。

でも教えていただいたxlUpのほうがスマートで見やすいので少しアレンジしつつ取り入れてみようかと思います！

Answer 3

Range(2, a) = Mid(Range(4, a),48,256)
これを、以下のようにしてください。
Cells(2, a) = Mid(Cells(4, a), 48, 256)

尚、
Range(B4) = Mid(Range(D4),48,256)・・・・(1)
Range("B4") = Mid(Range("D4"),48,256)・・・(2)
の間違いかと。（１）は、エラーになります。

Answer 4

下記サイトでRangeの正しい使い方やCellsとの違いを学習してみてください。
RangeとCellsの使い方｜ExcelマクロVBA入門