VBA : Rangeプロパティで取得できているものがCellsプロパティで取得できない

Question

#前提
業務用のマクロ作成を任せられたVBA初学者です。
Excelブックから他のExcelブックを取得して、データの移動をしようと思っております。
Valueの取得に関して不明点があるので、こちらにて質問させていただきます。

#問題点
問題のコードは以下です。

Sub DataMoveTest()
    ' ワークブックとワークシートの定義
    Dim import_wk As Workbook
    Dim import_ws As Worksheet
    Dim export_wk As Workbook
    Dim export_ws As Worksheet
    Set import_wk = Workbooks.Open("[Path]")
    Set import_ws = import_wk.Worksheets("Sheet1")
    Set export_wk = ThisWorkbook
    Set export_ws = export_wk.Worksheets("Sheet1")
    
    MsgBox (import_ws.Range("D10").Value)
    MsgBox (import_ws.Cells(4, 10).Value)
End Sub

上記のコードでは、Rangeを使ったセルの指定方法と、Cellsを使ったセルの指定方法の両方でセルの内容を参照しようとしています。

Excelブック上のD10には数値の4が入力されております。

上記のコードを動かした際に、Range側ではValueの取得ができるのですが、Cells側ではValueの値が空白の状態でメッセージボックスで表示されてしまいます。

RangeとCellsの指定方法が間違っているかと思い確認をしたのですが、上記の指定方法で間違いはないと認識しております。

とても初歩的な質問かと思われますが、どうかよろしくお願いいたします。

環境

• Excel 2016
• Windows 10 64bit

Answer 1

Cells(4, 10)だとJ4になってしまいます！
D10を指定したいのであればCells(10, 4)ですね。

Answer 2

RangeとCellsでは行列が逆になります。
下記の修正でうまくいくのではないでしょうか。

MsgBox (import_ws.Cells(10, 4).Value)
'MsgBox (import_ws.Cells(4, 10).Value)

Comments

[退会済みユーザー]

とても初歩的なミスにてお恥ずかしい限りです。
ご指摘いただいた修正にて正常に動くことができました。

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