| |
かみちゃんさん、お手数おかけしますが
よろしくお願いします。
動作イメージです。
入力シート
A B C D E F
1 品名 価格 個数 品名 価格 個数
2 もも 5 もも 10
3 みかん 4 みかん 5
500（浮動）
各月毎の商品別売上です。
別シートの商品別価格から、価格列に値を貼り付けます。
商品別価格シート
A B
1 品名 価格
2 もも 100
3 みかん 50
500（浮動）
入力シートの、価格列に、商品別価格シートの価格を
貼り付けたいのです。
>対象となるセルの数が1つしかないときはAutoFillする必要があるでしょうか？
>というより、できますか？
必要はないですね。。
セル数が1以上だったらオートフィルする、ですね。
ありがとうございます！
今試してみたところ、
Selection.AutoFill Destination:=Range(Selection, ActiveCell.xlLastCell), Type:=xlFillValues
のところで、このオブジェクトは、プロパティまたはメソッドをサポートしていませんエラーがでました。。
よろしくお願いします。
|
|
acochaco
- 07/2/3(土) 13:26 -
