データ変換マクロ

質問

数値データのシートがあります。
A列に空白があった場合、その行のEとFのセルをコピーして１行上のEとFのセルにコピーしたいというマクロを作成しています。
全部で100行ほどのデータに、いくつか空白セルがあって規則性はありません。空白セルのある行はすべてが対象となります。
空白を見つけた後、「その行のEとFのセル」という指定の仕方で詰まってしまいました。
良い方法をおしえてください。

回答No.1

driverII · ベストアンサー

？
ループで見ていきますよね。
for row = 2 to 100
if cells(row,1) = "" then
cells(row - 1,5).Value = cells(row,5).Value
cells(row - 1,6).Value = cells(row,6).Value
end if
next row

でいいのでは？
細かいとこは修正してください。

お礼

解決しました。
ありがとうございました。

回答No.2

zap35

A列が空白の行の行番号までは取得できているのですね。それを変数iとすると
Cells(i-1, "E").Value = Cells(i, "E").value
Cells(i-1, "F").Value = Cells(i, "F").value

１行で代入しようと思ったら以下のような方法もあります
cells(i-1,"E").resize(1,2).value = cells(i,"E").resize(1,2).value

お礼

大丈夫でした。
解決しました。
ありがとうございました。

補足

できていると思っている行番号の取得ができていないようです。
空白を見つけて・・・からおしえていただけないでしょうか？