|
教えてください。
複数行記入ある、セルの結合をすると、
"左上の以外の内容が失われます"のメッセージボックスが出てきます。
OKの時は問題ないのですが、キャンセルの場合、結合せずに先に指定している行数分だけ移動して次の結合を出来るようにしたいのです。
エラー回避に飛んでくれないので、少しおかしいかもしれませんが、文中にいれてもみましたが、エラー反応してくれません。エラー番号が間違っているのでしょうか?
On Error GoTo ER1
With Selection
If .EntireRow.Count = 1 Then
Set x = Cells(65536, ActiveCell.Column).End(xlUp).Rows
Do
Range(ActiveCell, ActiveCell.Offset(ComboBox1.Value - 1)).MergeCells = True 'ここでエラー発生。番号1004
ER1:
If Error = 1004 Then
MsgBox Selection.Address
Selection.Offset(ComboBox1.Value).Select
Else
ActiveCell.Offset(1).Select
End If
Loop Until Selection.Address = x.Offset(1).Address
Set x = Nothing
|
|