|
▼ON さん:
>こんにちは よろしくお願いいたします
>
>下記のような結合セルがあり
>
>┌───────────┐
>│ │
>│ ABCD │
>│ │
>└───────────┘
>
>これを、セル結合を解除 すると
>
>┌─────┬─────┐
>│ABCD │ABCD │
>├─────┼─────┤
>│ABCD │ABCD │
>└─────┴─────┘
>
>のようになりました
>
>このような結合セルはどうすれば出来ますか?
>
>どうも一般機能では無理なような気がしますが
>VBAでも無理そうな・・・
>
>試しに
>A1:C1を結合し
>Sub ABC()
>
>Dim a(1 To 3)
> a(1) = "A"
> a(2) = "B"
> a(3) = "C"
> Range("A1:C1") = a()
>End Sub
>とかしてみましたが駄目でした
>
>よろしくお願いいたします
もしかしたら、かなり違った考えかたしているかもしれませんが・・・・・。
下の物を、デバック(F8)しながらExeclの画面を見てもらえると
時折、Execlの操作でセルの結合しているところに貼り付けするとONさんのような状態になることがあります。
例 結合セルの列幅が偶数で結合4列・8列とかで結合されている。
コピーしようとしているデーターは2列だとする。
これを、コピーして貼り付けすると結合が解除されて結合していた全セルにデーターが入ってしまう。
これとは違っていますかね〜・・・。
Sub Macro3()
'
' Macro3 Macro
' マクロ記録日 : 2009/2/6 ユーザー名 : ayumi
'
'A1を選択する。
Range("A1").Select
'A1にABCDを値を入れる。
ActiveCell.FormulaR1C1 = "ABCD"
'A1からD5を結合する。
Range("A1:D5").Select
Selection.MergeCells = True
'新たに、F1〜G1を選択してABCDを入れる。
Range("F1:G1").Value = "ABCD"
Range("F1:G1").Select
'
'このまま、コピーする。
Selection.Copy
'A1をクリックする。
Range("A1").Select ':D5
'貼り付けをする。
ActiveSheet.Paste
End Sub
|
|