Excel VBA質問箱 IV

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

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


21857 / 76734 ←次へ | 前へ→

【60265】Re:セル結合を解除すると各セルに値が (゜o゜)
発言  ON  - 09/2/6(金) 11:15 -

引用なし
パスワード
   皆様 ありがとうございます
説明が悪くて申し訳ありません


To Jaka さん、ma さん

セル結合解除時に
各セルに書き込みをする
ということではありません


普通では、理解しにくいことだとおもいますが
>つまり、見かけ上結合されているのに、
>各セルに値が存在しています
なんです


To Abebobo さん

テストコードありがとうございました

Sub Fusigi2()
Dim r As Range
Dim i As Long

'Set r = Range("A1:C1")
Set r = Range("M1:N2")

For i = 1 To r.Count
 If r(i).Value = Empty Then
   Debug.Print "なし"
 Else
   Debug.Print r(i).Value
 End If
Next

'追加してみました
Debug.Print Range("M1").MergeArea.Address


End Sub


ABCD
ABCD
ABCD
ABCD
$M$1:$N$2
が返ります

>それ以来 今回のような状態になったことはありません。
私も始めての遭遇みたいなです


To ma さん

テストコードありがとうございました
試してみました

確かに?ですが

実態は
Sub Fusigi2()
の状態です


追加テスト1

不思議な結合セル M1:N2 を
新規ブックにコピーしてみました

状態は同じで
見かけ結合?で、

┌───────────┐
│           │
│   ABCD    │
│           │
└───────────┘


結合解除すると

┌─────┬─────┐
│ABCD │ABCD │
├─────┼─────┤
│ABCD │ABCD │
└─────┴─────┘

となってしまいました 
アハハ (^_^;)
みたいな感じです


追加テスト2

上記 元に戻すとすると
選択範囲には複数のデータ値があります。1 つのセルとして結合すると、
選択したセル範囲にある最も左上端にあるデータのみが保持されます
(空白セルは無視されます)。

がでて、OK、その後に セル結合解除すると

┌─────┬─────┐
│ABCD │     │
├─────┼─────┤
│     │     │
└─────┴─────┘

となりました
0 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 発言

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