[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『単セルから結合セルへのコピペがうまくいかない』(丸の内)
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 >
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.