質問: Nothing End Sub ``` ■マクロの概要 以下の画像のようにブックからブックへ転記をしたいです。 その時、転記元のエクセルファイル(拡張子はxls)が格納されているフォルダを指定してそのフォルダ内のエクセルファイルすべてに対してに「更新」というシートがあるときだけ以下の画像のように転記を実行したいです。(現在は作成途中で担当者を転記先のように転記したいです。) 転記元 ![転記元](https://teratail-v2.storage.googleapis.com/uploads/contributed_images/d8e88eaf75129b0813b2d93a294a162d.png) 転記先 ![転記先](https://teratail-v2.storage.googleapis.com/uploads/contributed_images/e51ba7b98d24dd2c5f9ea2831d9e1e19.png)
回答: 転記元の行指定を i で行っていますよね? しかしnループ内でiの値は変わらないので、結局転記先のIngRowsNoのみが移動して、転記元は毎回 同じセルを読んでいます。 読む限り原因はここのように見えます。 そもそも2重ループする必要がないように思います。 結局nでec1まで回しているので、以下のようにループ1回で書けます。 ``` For n = i + 3 To ec1 wsSet.Cells(lngRowsNo, 2).Value = .Cells(i, 2).Value wsSet.Cells(lngRowsNo, 3).Value = .Cells(n, 3).Value lngRowsNo = lngRowsNo + 1 Next n ```