Excel VBA質問箱 IV

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

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


11895 / 13645 ツリー ←次へ | 前へ→

【13360】複数の範囲選択後、特定のセル位置に貼り付ける YN61 04/5/3(月) 10:55 質問[未読]
【13383】Re:複数の範囲選択後、特定のセル位置に貼... Asaki 04/5/3(月) 22:34 発言[未読]
【13391】Re:複数の範囲選択後、特定のセル位置に貼... YN61 04/5/4(火) 9:12 発言[未読]
【13409】Re:複数の範囲選択後、特定のセル位置に貼... よろずや 04/5/4(火) 17:21 発言[未読]
【13412】Re:複数の範囲選択後、特定のセル位置に貼... YN61 04/5/4(火) 18:00 発言[未読]
【13416】Re:複数の範囲選択後、特定のセル位置に貼... YN61 04/5/4(火) 18:23 発言[未読]
【13454】Re:複数の範囲選択後、特定のセル位置に貼... よろずや 04/5/5(水) 23:14 発言[未読]
【13461】Re:複数の範囲選択後、特定のセル位置に貼... YN61 04/5/6(木) 8:04 お礼[未読]

【13360】複数の範囲選択後、特定のセル位置に貼り...
質問  YN61  - 04/5/3(月) 10:55 -

引用なし
パスワード
   列幅は固定(例えば3列),行の高さが3〜7まで変動する範囲選択して、それを一旦記憶させ、その後別シートの指定したセル位置に順次貼りつける汎用的な方法を教えてください。
データのレイアウトは次のようになっています。
商品名 
AAA   □  □  □
     □  □  □
BBB   □  □  □

現在は商品名の項目を下から順次選択し、範囲指定はoffset,endtoRight,endDownを使いそれをクリップボードに登録し、その後マニュアルで別シートの指定セルに貼り付けていますが、時間がかかります。セルの範囲指定を記憶させ、その記憶を順次指定したセルに貼り付けることをしたく思います。

【13383】Re:複数の範囲選択後、特定のセル位置に...
発言  Asaki  - 04/5/3(月) 22:34 -

引用なし
パスワード
   こんばんは。

ちょっと良く解りません。
>変動する範囲選択して
この部分は、手作業ですか?

>順次指定したセルに貼り付ける
予め、決まったセルに貼り付けることになるのですか?
それとも、1セルずつ、それぞれ個別に指定ですか?

【13391】Re:複数の範囲選択後、特定のセル位置に...
発言  YN61  - 04/5/4(火) 9:12 -

引用なし
パスワード
   分かりにくい質問の仕方をしましてご迷惑をかけました。
現在、このようなコードで使っています。
範囲指定のコピーはクリップボードに記録させ
記録したクリップボードを使って、シートの指定したセル位置に
貼り付けています。マクロを使いながら手作業が残っています。
このクリップボードの部分をなくして、自動化したいのですが
何か良い方法はないでしょうか。教えてください。

Sub 選択貼付1()

Dim i As long
Dim 最終行 As long
最終行 = Range("A65536").End(xlUp).Row

For i = 最終行 To 3 Step -1

If Cells(i, 1) <> "" Then

Application.CommandBars("Clipboard").Visible = True

Cells(i, 1).Select
Selection.Offset(, 2).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Application.CutCopyMode = False
End If
Next
Range("A1").Select

End Sub

実際には、範囲指定してコピーする件数は7件くらいです。
ですから、すべてRange(”B2:E5”)などのように範囲指定し
それをコピーして、指定のセルにペイストすればよいのですが、
範囲指定の位置が変わるときがありますので、上のようなコードを
書いていますが、範囲指定を記録させ、指定のセルに貼り付ける
(これはフォームがあり、貼り付けるセル位置は変動しません)
汎用的なコードを教えていただきたくお願いします。

分かりにくい表現ですが、お許しください。

【13409】Re:複数の範囲選択後、特定のセル位置に...
発言  よろずや  - 04/5/4(火) 17:21 -

引用なし
パスワード
   提示されたコードの動作は、セルに入ってるデータに依存しています。
データも具体的に提示していただかないと、実際の処はわかりません。

【13412】Re:複数の範囲選択後、特定のセル位置に...
発言  YN61  - 04/5/4(火) 18:00 -

引用なし
パスワード
   皆様からご返事ありがとうございます。
うまく表現できないので、ご迷惑をかけています。

今しています作業は
範囲選択1の後コピーして、クリップボードにメモル、また範囲選択2の後コピーして
クリップボードにメモル・・・合計7点の範囲指定があります。
現在この範囲指定1〜7までをクリップボードにマクロで記録させています。
ですから変動する範囲指定は手作業ではありません。ここまではマクロで動いています。
マクロのコードに書いた状態です。

この後、順次範囲選択したデータ(実際にはクリップボードに記録されている)を
指定したセル(あらかじめ決まったセル)に、手作業で貼り付けています。⇒
     《例えばH10のセルにクリップボードの7番目のデータを、H15にクリップボ      ードの6番目データを手作業で貼り付けています。H列の何行目のセルはあ      らかじめ決められています》

お聞きしたいポイントは範囲指定したデータ7を一旦

【13416】Re:複数の範囲選択後、特定のセル位置に...
発言  YN61  - 04/5/4(火) 18:23 -

引用なし
パスワード
   こんばんは
皆様からご返事ありがとうございます。
うまく表現できないので、ご迷惑をかけています。

再度書かせていただきます。

今しています作業は
範囲選択1の後コピーして、クリップボードにメモル、また範囲選択2の後コピーして
クリップボードにメモル・・・合計7点の範囲指定があります。
現在この範囲指定1〜7までをクリップボードにマクロで記録させています。
ですから変動する範囲指定は手作業ではありません。ここまではマクロで動いています。
前回にマクロのコードに書いた状態です。

この後、順次範囲選択したデータ(実際にはクリップボードに記録されている)を
指定したセル(あらかじめ決まったセル)に、手作業で貼り付けています。⇒
     《例えばH10のセルにクリップボードの7番目のデータを、H15にクリップボ      ードの6番目データを手作業で貼り付けています。貼り付けの位置はH列の      何行目のセルと、あらかじめ決められています》

お聞きしたいポイントは範囲指定したデータ7件分をクリップボードを使わずに記録させ、その記録させたデータを順次指定したセル位置にに貼り付けるコードを教えていただければありがたいのですが。この説明でお分かりでしょうか。

マクロのコードは、前回書きましたものが全てです。実行しますと、クリップボードに範囲選択・コピーした状態が現れますので、クリップボードのエクセルのマークのアイコン(と呼べるのでしょうか)7点をひとつずつクリックして、指定のセルに張り込んでいます。

もし、お分かりでしたら回答をいただければ幸いです。

【13454】Re:複数の範囲選択後、特定のセル位置に...
発言  よろずや  - 04/5/5(水) 23:14 -

引用なし
パスワード
   >お聞きしたいポイントは範囲指定したデータ7件分をクリップボードを使わずに
>記録させ、その記録させたデータを順次指定したセル位置にに貼り付けるコード
>を教えていただければありがたいのですが。この説明でお分かりでしょうか。
普通こんなことはやらないので、なかなかピッタリの回答がつかないですね。
普通は、
For i = 0 To 6
  'コピー(i)
  '貼り付け(i)
Next
見たいな感じになると思うんですけど。

【13461】Re:複数の範囲選択後、特定のセル位置に...
お礼  YN61  - 04/5/6(木) 8:04 -

引用なし
パスワード
   よろずや様

ありがとうございました。
範囲選択後コピー、貼り付けを繰り返すことですね。
色々とご迷惑をかけました。

選択した範囲を一旦記録させ、指定したセルに貼り付ける
という方法はないと理解する方が良いと言うことですね。
ありがとうございました。今後ともよろしくご指導のほど
お願いします。

またAsaka様、これからもよろしくお願いします。

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