質問: 一行おきに貼り付ける 可能でしょうか 一行おきに貼り付ける 可能でしょうか 範囲 a1からg22 これをコピー して a28 から 一行おきに貼り付ける range("a1").currentregion.copy range("a28")ここからどうやったら 一行おきに貼り付けることができるのか わかる方いますでしょぅか。
回答: こんにちは! 横からお邪魔します。 すでに的確な回答がでていますが・・・ いちいちselectすると時間を要するだけなので、そのままコピー&ペーストする方が簡単です。 sub sample1() dim i as long for i = 1 to 22 cells(i, "a").resize(, 7).copy cells(i * 2 + 26, "a") next i end sub こんな感じでしょうかね。 ※ コピー&ペーストではなく、値だけの操作の方がもう少し早くなります。 (書式などもそのままコピー&ペーストしたい場合は使えません) sub sample2() dim i as long for i = 1 to 22 cells(i * 2 + 26, "a").resize(, 7).value = cells(i, "a").resize(, 7).value next i end sub といった具合になります。m(_ _)m