エクセル 結合セルの挿入

質問

結合セルがある場合も、

行や列をクリックして挿入すると、挿入ができて便利ですが、
セルをクリックしての挿入はいちいち、結合を解除してからでないと挿入ができないのでしょうか。

ご回答よろしくお願い致します

回答No.4

xls88 · ベストアンサー

もう一例、考えてみました。

Dim ret As Long

ret = Application.InputBox("行/列ラベルをクリック", Type:=8).Row
With ActiveCell.MergeArea
If ret > .Cells(1).Row And ret <= .Cells(.Cells.Count).Row Then
.Cells(ret - .Cells(1).Row + 1, 1).Resize(, .Columns.Count).Insert
End If
End With

回答No.3

xls88

手作業では無理なようです。
マクロの例です。

With ActiveCell.MergeArea
　　.Item(3, 1).Resize(, .Columns.Count).Insert Shift:=xlDown
End With

お礼

親身にご回答いただきありがとうございました。大変役に立ちました。感謝です。

回答No.2

xls88

＞セルをクリックしての挿入はいちいち、
＞結合を解除してからでないと挿入ができないのでしょうか。
結合を解除しないと無理ですね。
回答番号：No.1は、質問をよく見ていない怪盗でした。
大変失礼しました。

補足

そうなんです。

行全体の挿入ではなく、セル一つ二つ分の挿入とかです。

できないのかなぁ。

面倒だなぁ。

回答No.1

xls88

行あるいは列ラベルをクリックして選択し
Shift＋Ctrl＋； とキー操作すれば挿入できました。
Excel2007で確認しています。
他のバージョンのExcelのことは解りません。

手動で出来なくても、マクロを組めば出来るかも知れません。
Range("A7").EntireRow.Insert
あるいは
Rows("7:7").Insert