質問: マクロ 条件にあった数字を連続コピー 図のように商品idと日付と文字列が混在しているcsvのデータが マクロ 条件にあった数字を連続コピー 図のように商品idと日付と文字列が混在しているcsvのデータがあります 商品id(1~7桁までの数字)を図のように商品idから別の商品idまで下に連続コピーしていくマクロを作りたいです。 理論上可能ととある人に言われてるのですが、vba初心者の為すでに完全されてるマクロを改変して利用する事しかできません。 似たようなマクロを見つけることができなくて難航しています。 どなたかご教授していただければ幸いです。よろしくお願いします。
回答: #1です。 投稿後気が付きましたが、単純にokとされているセルを上の値で埋めるだけで良いのですか? もっと難しく考えていました、申し訳ない。 こんな感じなのかな、、 sub sample() dim i as long, lastrow as long columns("d:e").clearcontents columns("d:e").numberformatlocal = "g/標準" lastrow = cells(rows.count, 1).end(xlup).row range("a1:b" & lastrow).copy destination:=range("d1") ' range("d1:e" & lastrow).value = range("a1:b" & lastrow).value for i = 2 to lastrow if cells(i, "d").value = "ok" then cells(i, "d").value = cells(i - 1, "d").value end if next end sub