エクセル 結合セルの挿入

結合セルがある場合も、

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

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

No.1 回答者： xls88 回答日時： 2009/07/08 21:20

行あるいは列ラベルをクリックして選択し

Shift＋Ctrl＋； とキー操作すれば挿入できました。
Excel2007で確認しています。
他のバージョンのExcelのことは解りません。

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

No.2 回答者： xls88 回答日時： 2009/07/10 00:37

＞セルをクリックしての挿入はいちいち、

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

この回答への補足

そうなんです。

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

できないのかなぁ。

面倒だなぁ。

補足日時：2009/07/10 16:46

No.3 回答者： xls88 回答日時： 2009/07/10 18:30

手作業では無理なようです。

マクロの例です。

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

この回答へのお礼

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

お礼日時：2013/03/17 07:37

No.4 ベストアンサー 回答者： xls88 回答日時： 2009/07/11 18:10

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

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