Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4322 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 さん：
すみません 説明不足でした
上から順につめていくのでデータの入力されてない所が追加の所になります
なので途中に空白がある事はありません

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

でも他の所で参考にさせていただきます
ありがとうございます
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4322 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free