Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4320 / 13644 ツリー ←次へ | 前へ→

【57331】セルをアクティブに 初心者です 08/8/8(金) 16:13 質問[未読]
【57332】Re:セルをアクティブに Jaka 08/8/8(金) 16:52 発言[未読]
【57333】Re:セルをアクティブに 初心者です 08/8/8(金) 17:38 お礼[未読]

【57331】セルをアクティブに
質問  初心者です  - 08/8/8(金) 16:13 -

引用なし
パスワード
   別のシートのセルを選びたいのですが…

"データ"のシートの行を"削除データ"にコピーしていきたいのですが
Sheets("削除データ").Range("A1").End(xlDown).Activate
の様に下に下に追加していこうと思っています
上のだとエラーで実行できません

シートのセレクトを変更しないで実行出来ないでしょうか?

宜しくお願いします

【57332】Re:セルをアクティブに
発言  Jaka  - 08/8/8(金) 16:52 -

引用なし
パスワード
   Range("A1").End(xlDown)だと、
A1が空白で、A2に値が入っている。
A1に値が入っているけどA2空白。
A1:A2に値が入っている時。
などで結果が変わると思いますが、その辺は考慮されているとします。

Sheets("削除データ").Range("A1").End(xlDown).Offset(1).Value = Sheets("データ").Range("A1").Value

とかにすれば、コピーせずにすみます。

【57333】Re:セルをアクティブに
お礼  初心者です  - 08/8/8(金) 17:38 -

引用なし
パスワード
   ▼Jaka さん:
すみません 説明不足でした
上から順につめていくのでデータの入力されてない所が追加の所になります
なので途中に空白がある事はありません

それと行単位でコピーしていきます
しかも複数行あるので教えていただいた方法では…

でも他の所で参考にさせていただきます
ありがとうございます

4320 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free