[[20171208174509]] 『単セルから結合セルへのコピペがうまくいかない』(丸の内) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『単セルから結合セルへのコピペがうまくいかない』(丸の内)

 sheets(1)のCells(1,1)の内容を sheets(2)の結合セルにコピペしようとしたのですが、解除されてうまくいきません。どうしたらいいでしょう?
sheets(2)のcellはA1〜D1まで結合されています。

 sub 転記テスト()
  Dim a as Integer
  Dim wh1 as Worksheet,wh2 as Worksheet

   set wh1=worksheets(1)
   set wh2=worksheets(2)

   wh1.cells(1,1).copy destination:=wh2.cells(1,1)

 End sub

これでダメだったので

 sub 転記テスト2()
   Dim a as Integer
   Dim wh1 as Worksheet,wh2 as Worksheet

   set wh1=worksheets(1)
   set wh2=worksheets(2)

   wh1.cells(1,1).Copy
  wh2.Range("A1:D1").PasteSpecial Paste:=xlPasteformats
 End sub

にしてみましたが、ダメでした。

< 使用 Excel:Excel2016、使用 OS:Windows7 >


Copyメソッドは使わず、値だけ代入するのはいかがですか?
  wh2.Range("A1").Value = wh1.Range("A1").Value
(???) 2017/12/08(金) 18:01

 ???さん、魔法の様に一発でできました。今まで結合セルへの転記に苦戦していたのがウソのようです。
ありがとうございます!!
(丸の内) 2017/12/08(金) 18:06

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.