H列に☓があったら、H列~N列までのデーターを
P列~V列に移動(カット&ペースト)する処理なのですが、
上手くいきません。
P~V列に移動するデーターは、
cells(3,"P")から貼り付けられるはずなのに、cells(1,"P")から貼り付けられているようです。。。。ちなみにデーターは3,000行程度あります。
どこが間違っているのでしょうか?
vba
1 'H列に"×"がるものデーター(H列~N列)をP列~U列へ移動させる。 2 kRow = Cells(Rows.Count, "K").End(xlUp).Row 3 hRow = kRow 4 diff = 3 5 For h = 3 To hRow 6 7 If Cells(h, "H").Value <> "" Then 8 Range(Cells(h, "H"), Cells(h, "N")).Cut Destination:=Range(Cells(diff, "P"), Cells(diff, "V")) 9 diff = diif + 1 10 End If 11 Next h
ご教授お願い致します。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
退会済みユーザー
2017/01/07 08:30
2017/01/07 08:47
退会済みユーザー
2017/01/07 09:15