質問: "aaa" End If Next
回答: 書けるけど、このケースは余り効率的にならないのはシートが異なるから。 どういう事かというと、 for eachを使うという事はこのケースだと、同じ列のセルを一つずつずらせながら、例えば a(i, 7)) つまりg列を順に走査するとして、それを基準に別シートの連動する代入先の特定する為にrowで行番号を得てそれから1を引くというまどろっこしい記述になるから。 それでも構わないなら dim cl as range for each cl in ws.usedrange.columns(7).cells とすればclのセル座標がg1,g2,g3と順に変化するから残りのセルはそこからのoffsetで特定すればいいと思います。 wsData.Cellsの方は先程のrowを使います。