Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12540 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9989】セルのコピー ももんが 03/12/26(金) 22:40 質問
【9990】Re:セルのコピー INA 03/12/26(金) 22:45 回答
【9991】Re:セルのコピー ももんが 03/12/26(金) 23:01 質問
【9993】Re:セルのコピー Kein 03/12/27(土) 1:33 回答
【9994】Re:セルのコピー INA 03/12/27(土) 10:14 回答
【10006】Re:セルのコピー ももんが 03/12/29(月) 9:09 お礼
【9989】セルのコピー
質問  ももんが  - 03/12/26(金) 22:40 -
引用なし
パスワード
   はじめまして。
早速で申し訳ないのですが、質問いたします。
マクロの自動化でコピーをさせたのですが、
セルをセレクトしてしまうため、コピー先が限定されてしまいます。
他にも汎用させたいので、変数を使用した方法を
教えていただけないでしょうか？

Sub tesut()
　　Range("A1").Select
　　Selection.AutoFill Destination:=Range("A1:AE1"), Type:=xlFillCopy
　　Range("A1:AE1").Select
End Sub

本当は、A1の値を、AE1までコピーすると限らず、
B列にデータが入っているので、B列の最終列と同じ列まで
コピーさせたいのです。
どう変更すればよいでしょうか？
よろしくお願いします。
【9990】Re:セルのコピー
回答  INA  - 03/12/26(金) 22:45 -
引用なし
パスワード
   「B列の最終列と同じ列」って意味が分かりません。

行と列を間違えてます？
【9991】Re:セルのコピー
質問  ももんが  - 03/12/26(金) 23:01 -
引用なし
パスワード
   ▼INA さん：
>「B列の最終列と同じ列」って意味が分かりません。
>
>行と列を間違えてます？

夜なのにありがとうございます！！

間違えてました。。。
2列目の最終セルでした。
2列目の最終セルの値まで、A1の値を1列目にコピーしていきたいのです。
こんがらがってしまい、申し訳ありません。
【9993】Re:セルのコピー
回答  Kein  - 03/12/27(土) 1:33 -
引用なし
パスワード
   Sub Test()
　 Range("A2", Range("B65536").End(xlUp).Offset(, -1)) _
　 .Value = Range("A1").Value
End Sub

で、どうでしょーか ?
【9994】Re:セルのコピー
回答  INA  - 03/12/27(土) 10:14 -
引用なし
パスワード
   たとえば、１行目のIV列で、ctrl + ← するとデータの最終列にジャンプできます。
これをマクロの自動記録すると、
Range("IV1").End(xltoLeft)
のようなコードが作成されます。
これにRange("IV1").End(xltoLeft).Offset(0,1) とすると、
データの最終列の右セルの位置を調べることが出来ます。

−−−−−−−−−−−−−−−−−−−−
列は、A 〜 IV
行は、1 〜 65536
よってセルは A1 〜 IV65536 となります。
【10006】Re:セルのコピー
お礼  ももんが  - 03/12/29(月) 9:09 -
引用なし
パスワード
   INAさん。Keinさん。ありがとうございます。
実現できました！
感謝いたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12540 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free