SearchDirection:=xlNext)になります。Rangeの場合.Addressで取得、Cellsの場合は.Rowと.columnで取得する部分になります。一つ、このコードの場合のRangeは、セル番地を記述しましょう。Cellsは、Cellsで大丈夫です。Cellsの役目です、お任せあれ。~Episode1~Cells(1,1)のように数値でセルの参照を行えることができるCellsですが、これはCellsにしか出来ない重要なお話なんです。与えられし力Cells(a,b)の”a”や”b”のように変数を活用して列や行の場所「インデックス」を探しだすことが出来るのは、まさにCellsにだけ与えられた力(フォース)なのです。Cellsのよきパートナー.Offset(引数)と一緒に行動すれば、その力は幾重にもなることでしょう。今回、お伝えするコードは、コピー元のシートのA2セルからA14セルのデータとB2セルからB14セルのデータをコピー先であるシートの設定した位置にコピーをする単純なストーリーです。(シートの名前とコピー元には、データがあることを前提にさせていただきます。)とりあえず、まず変数宣言をしましょう。必要な宣言のデータ型は、オブジェクト型のWorksheetが2つ、長整数型のLong(整数型のIntegerでも可)を2つ用意します。WorksheetにSet構文を使用して記憶さえましょう。Worksheets(“コピー先”)以下は、してもしなくてもどちらでも大丈夫ですが、やはり綺麗なところに入ってみたいものです。<——コピー先へ出向く。<——なにもかも掃除しまくる。<——とりあえず先頭セル番地に待機してもらう。<——コピー元に戻る。<——列の位置を記憶させましょう。引数1今回は、引数1に変数”r”を値1に2行目からスタートなので”2”を代入し、値2には何回繰り返すかということで、14行目の”14”を代入します。Stepと値3の設定は不要ですが一応記述(2と記述すると、2→4→6→8のように2間隔で処理をするように設定できます。今回は飛ばさず行いますので”1”を代入します。<——2から14までの間、間隔は+1ずつ処理をします。行、列共に代入できる値はプラスだけでなく、”0”やマイナス設定も可能です。セルが存在している範囲に限ります。c).valueの値を代入します。1).valueの値を代入します。コピー元にも.Offsetを活用しています。r<——次の行へいきましょうと変数rをForへ引き渡しています。Forは、Nextから受け取ると1プラスして上記の作業を決められた値2まで繰り歌詞行います。Sub動作をするとこんな感じです。