Excel VBA質問箱 IV

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

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


21866 / 76734 ←次へ | 前へ→

【60256】Re:セル結合を解除すると各セルに値が (゜o゜)
発言  ma  - 09/2/6(金) 9:18 -

引用なし
パスワード
   ▼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
1 hits

【60231】セル結合を解除すると各セルに値が (゜o゜) ON 09/2/5(木) 14:33 質問
【60233】Re:セル結合を解除すると各セルに値が (゜... Jaka 09/2/5(木) 15:09 発言
【60234】Re:セル結合を解除すると各セルに値が (゜... ON 09/2/5(木) 15:19 発言
【60249】Re:セル結合を解除すると各セルに値が (゜... ma 09/2/5(木) 21:45 発言
【60255】Re:セル結合を解除すると各セルに値が (゜... Abebobo 09/2/6(金) 2:04 発言
【60261】Re:セル結合を解除すると各セルに値が (゜... Jaka 09/2/6(金) 10:57 発言
【60266】Re:セル結合を解除すると各セルに値が (゜... ON 09/2/6(金) 11:27 発言
【60273】Re:セル結合を解除すると各セルに値が (゜... n 09/2/6(金) 17:55 発言
【60293】Re:セル結合を解除すると各セルに値が (゜... ON 09/2/8(日) 9:49 お礼
【60294】Re:セル結合を解除すると各セルに値が (゜... n 09/2/8(日) 13:05 発言
【60300】Re:セル結合を解除すると各セルに値が (゜... ON 09/2/8(日) 21:46 お礼
【60265】Re:セル結合を解除すると各セルに値が (゜... ON 09/2/6(金) 11:15 発言
【60256】Re:セル結合を解除すると各セルに値が (゜... ma 09/2/6(金) 9:18 発言

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