Excel VBA質問箱 IV

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

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


12542 / 13646 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   たとえば、1行目の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さん。ありがとうございます。
実現できました!
感謝いたします。

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