Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9709 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【25919】結合セルのコピー貼付け hiroshi 05/6/17(金) 21:46 質問[未読]
【25920】Re:結合セルのコピー貼付け とおりすがり 05/6/17(金) 21:51 発言[未読]
【25921】Re:結合セルのコピー貼付け hiroshi 05/6/17(金) 22:01 発言[未読]
【25930】Re:結合セルのコピー貼付け ichinose 05/6/18(土) 9:22 発言[未読]
【25951】Re:結合セルのコピー貼付け hiroshi 05/6/19(日) 15:46 お礼[未読]
【25919】結合セルのコピー貼付け
質問  hiroshi E-MAIL  - 05/6/17(金) 21:46 -
引用なし
パスワード
   教えて下さい。
結合したセル（数式が入っています）をコピーし別シートの結合したセルに「値のみ」を張付けができないでしょうか。
例えば
「Sheet1」「Sheet2」の「セルA1」から「セルB2」、「セルA3」から「セルB4」、「セルA5」から「セルB6」、「セルA7」から「セルB8」、「セルA9」から「セルB10」、「セルA11」から「セルB12」が結合されています。「Sheet1」の６つの結合セルには数式が入って値が表示されています。「Sheet1」のセルA3からA9（結合セルの2つめから5つめ）を選択、コピーして「Sheet2」の結合セルA1から「値のみ」を張付けます。
一旦セル結合を解除→貼付け→セル結合をすれば可能ですがデータが多く困っています。VBAでできないでしょうか。
よろしくお願い致します。
【25920】Re:結合セルのコピー貼付け
発言  とおりすがり  - 05/6/17(金) 21:51 -
引用なし
パスワード
   こちらでは禁止されてないけど
あちらでは
マルチポストは禁止されてますよ。

こちらで続けるつもりなら
MOUGは閉じてください。
【25921】Re:結合セルのコピー貼付け
発言  hiroshi E-MAIL  - 05/6/17(金) 22:01 -
引用なし
パスワード
   ▼とおりすがり さん：
>こちらでは禁止されてないけど
>あちらでは
>マルチポストは禁止されてますよ。
>
>こちらで続けるつもりなら
>MOUGは閉じてください。

MOUGは閉は閉じました。
失礼しました。
【25930】Re:結合セルのコピー貼付け
発言  ichinose  - 05/6/18(土) 9:22 -
引用なし
パスワード
   ▼hiroshi さん：
おはようございます。

>教えて下さい。
>結合したセル（数式が入っています）をコピーし別シートの結合したセルに「値のみ」を張付けができないでしょうか。
>例えば
>「Sheet1」「Sheet2」の「セルA1」から「セルB2」、「セルA3」から「セルB4」、「セルA5」から「セルB6」、「セルA7」から「セルB8」、「セルA9」から「セルB10」、「セルA11」から「セルB12」が結合されています。「Sheet1」の６つの結合セルには数式が入って値が表示されています。「Sheet1」のセルA3からA9（結合セルの2つめから5つめ）を選択、コピーして「Sheet2」の結合セルA1から「値のみ」を張付けます。
>一旦セル結合を解除→貼付け→セル結合をすれば可能ですがデータが多く困っています。VBAでできないでしょうか。
>よろしくお願い致します。

値だけの移行なら、
'=====================================================
sub test()
　 Worksheets("sheet2").Range("a1:b7").Value = _
　　　　　　　　　　　　　Worksheets("sheet1").Range("a3:b9").Value
end sub

これで可能です。
セル範囲をどのように指定している確認しながら
実行してみて下さい。
【25951】Re:結合セルのコピー貼付け
お礼  hiroshi E-MAIL  - 05/6/19(日) 15:46 -
引用なし
パスワード
   ▼ichinose さん：
>
>値だけの移行なら、
>'=====================================================
>sub test()
>　 Worksheets("sheet2").Range("a1:b7").Value = _
>　　　　　　　　　　　　　Worksheets("sheet1").Range("a3:b9").Value
>end sub
>
>これで可能です。
>セル範囲をどのように指定している確認しながら
>実行してみて下さい。


有り難うございました。定数の個所を変数に変えると大変じつようてきなものになりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9709 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free