|
皆様 ありがとうございます
説明が悪くて申し訳ありません
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 │ │
├─────┼─────┤
│ │ │
└─────┴─────┘
となりました
|
|