|
Inaさん
早速の回答有難うございました。
ちょっと私の説明不足でございました。改めて何をしたいかを説明させてください。
処理をしたい範囲を指定した後、A2のCellの値は別のシートのE2のところへ
貼り付け、A3の値は別シートのB1のことろへ貼り付けなさいという指示をかけたいのです。範囲を選択して貼り付けることは簡単ですが、指定した範囲内でのおのおののcellの値を別なシートの指定する場所へ貼り付けることがどうすればできるのかがわからないのです。指定した範囲がA1:E5とするとA行がおわったら同じ作業をB行D行、E行をチェックし、データをそれぞれ指定する場所へ貼り付けたら終了という構想を描いております。この内容でご教授いただけませんでしょうか?お手数をおかけいたします。よろしくお願い致します
▼INA さん:
>マクロ化する意味のない処理に思えますが・・
>
>
>Sub Sample2()
>Dim myRange As Range
>Dim pastecell As Range
>
> Set myRange = Application. _
> InputBox("処理範囲を指定してください", Type:=8)
>
> MsgBox myRange.Address & " が指定されました。"
>
> Set pastecell = Application. _
> InputBox("貼付け先のセルを指定してください", Type:=8)
>
> myRange.Copy Destination:=pastecell
>
> pastecell.Select
>
> MsgBox "完了!"
>
>End Sub
|
|