スキルアップ・問題解決なら、モーグにおまかせ！

A2:H6に範囲名XXを設定しています。
各行のB列〜C列、D列〜F列、G列〜H列を結合しています。
 
この状態で、範囲名XXを使って、項目B、項目C、項目Dのデータを削除(消去)したいです。
Range("XX").ClearContentsとすると、当然ですがすべてのデータが消えてしまいます。
(セルアドレス(B2、D2など)を指定して個別に削除することはできますが)
 
A列(項目A)を残してその他のデータを削除するには、どうしたら良いのでしょうか？
実際とは異なりますが、下記のようなデータです。
 
今後、範囲名XXの位置や大きさが変わる可能性があるので、このようなことを思いつきました。
 

 A列　 B列C列　D列E列F列   G列H列						
項目A  項目B   項目C       項目D	
123-1   AA     12340       12-1	
123-2	BB     19856       23-6	
123-3	C      36540        5-6	
141-1	DDD     2356       4-12	
151-2	EF      0215        8-8

最初に
セルを結合している場合は、
結合範囲に左上のセルのみに「値」等が入っているということを認識してください。
特に、Offsetを使う場合は、このことを意識する必要があります。
  
Range("範囲名").Cells(y,x)のような形式で、個々のセルをアクセス可能ですし、
Cells(Range("範囲名").Row + y,Range("範囲名").Column + x)のような形式でもセルを指定することも可能です。
  
  
それから、
範囲名に行を追加する操作について
単純に空白行にデータを入力すると、範囲名の外になり、
セルの書式設定や、結合の操作が必要になります。
  
１つ上の行をコピー挿入するとよいでしょう。
範囲名が参照しているセル範囲は、自動で拡張されまし。
  
※データ処理を目的とする場合、結合セルは極力使わない方が扱いやすいです。
  
 

引用:
Range("範囲名").Cells(y,x)のような形式で、個々のセルをアクセス可能ですし、
Cells(Range("範囲名").Row + y,Range("範囲名").Column + x)のような形式でもセルを指定することも可能です。

範囲名の１行目、１列目を除いて範囲を一括削除する方法
 
例

    With ActiveWorkbook
        With .Names("範囲名").RefersToRange
            .Intersect(.Cells, .Offset(1, 1)).ClearContents
        End With
    End With

アドバイス
名前は「ブックレベル」または、「シートレベル」で定義することができます。
  
「ブックレベル」の定義では、ブックでユニークな名前にする必要がります。
「シートレベル」の定義では、ワークシートでユニークな名前にする必要がります。
  
ブックレベルの名前定義は
Range("XX")で参照することができるが、
私は、Workbooks("ブック名").Names("XX").ReferstoRnge
シートレベルは、Worksheets("シート名").Range("XX")
という形で使い分けています。
 
複数のワークシート（同一レイアウト）を処理する場合、
シートレベルの名前定義が便利です。

既に回答いただいています。付けたしで。

Sub test()
  'I列も同時に消して影響なければ、
  Debug.Print Range("XX").Offset(, 1).Address
    
  '影響があるなら
  Debug.Print Intersect(Range("XX"), Range("XX").Offset(, 1)).Address
    
  'Offsetを避けるなら
  Debug.Print Range("XX").Columns("B").Resize(, Range("XX").Columns.Count - 1).Address
End Sub

WinArrowさん、simpleさん、ありがとうございます。
どうもセル結合をしているとダメなようです。
「セル結合しているのできません」みたいなメッセージがでます。
セル結合を外したらいずれの場合もできました。
 
simpleさんの仰るようにアドレスは正しく取得できるのですが
Select、Acitivateは反応せず(選択状態にならず)、
ClearContentsでは、「セル結合しているのできません」みたいなメッセージがでます。
 
セル結合をしているは、この表(範囲XX)のデータを目視で確認しているからです。
データの組み合わせに違和感が無いかを確認しているのです。
どういう組み合わせが良くないのかは、多岐に渡っており、マクロ・条件付き書式などで判定させるのはしんどいと思っているのです。
また、例示ではワークシートの左上端に表範囲XX)がありますが、実際はワークシートの真ん中にあり(要するに上下左右が空いています)、上下には別のデータが入っています。
 
レイアウトを変えるのが面倒なので、現状で何とかしようとしている次第です。
 
で、結局、削除(データ消去)したい範囲に新たに名前(範囲YY)を付けて、
Range("範囲YY").ClearContents
として対処しました。これだと、セル結合していても削除(データ消去)できました。
 
WinArrowさん、このワークシートは別ブックにコピーして、貼り付け先のブックで範囲名を利用するので「シートレベルしています。
貼り付けたあとにシート名を変更しています。
そしてまた、このブック(先述の別ブック)にコピーすることを繰り返し、都度7ユニークなシート名にしています。
 
お二方、ありがとうございました。

Range("XX").Offset(, 1).ClearContents

例示されたものでは不要な気がしますが、
実際は結合セルがモザイク状になっているんですかね。
ひょっとしたら、その例示も実際とは違うのかもしれない。
D列〜F列が結合と言っても、各行で結合セルの状況が違うのかな。
 
後学のための質問は取り下げます。余り益が無いようが気がしてきました。
どうも失礼しました。
今後、正確な問題説明をお願いすることにして、私はこれで終わりとします。

投稿日時: 23/07/05 07:28:31

WinArrow さんの引用:

範囲名の１行目、１列目を除いて範囲を一括削除する方法
 
例

    With ActiveWorkbook
        With .Names("範囲名").RefersToRange
            .Intersect(.Cells, .Offset(1, 1)).ClearContents
        End With
    End With

 

引用:

どうもセル結合をしているとダメなようです。
「セル結合しているのできません」みたいなメッセージがでます。
セル結合を外したらいずれの場合もできました。

.ClearContentsメソッドに拘り過ぎじゃないですか？
 
Rangeオブジェクトには、Valueプロパティもあります。
.Value = Empty
 
われら一般ユーザーは、エクセルの仕様を隅から隅まで知らされていない。

実際のものに適用する際に、オフセット量をまちがえてました。どの場合も、問題なく実行できました。
ありがとうございました。
例では、左端の列が１列でしたが、実際のものは複数列をセル結合していました。オフセット量をそれに合わせると実行できました。
 
半平太さん、ClearContentsすると、セルはEmptyになるという理解で良いですか？
 
 

＞半平太さん、ClearContentsすると、セルはEmptyになるという理解で良いですか？
 
ヘルプでは、「選択範囲から数式と文字を削除します。」との説明があります。
 
これは、セルのValueをEmptyにすることと同じと(私は）思います。
※他の見解があるかも知れないので、しばらくこのトピは閉じないでおいてください。
 
TiTiさんは、ClearContentsを使って、値をEmptyにする以外に何を期待していたんですか？
 
まさか「セル結合しているのできません」みたいなメッセージが見たかった訳じゃないですよね。
 
そのへんてこりんなエラーが出ると言うことは、全く同じでないことは明らかですが、
一般ユーザーにはその原因となる仕様の詳細なんて分かりっこないです。

最初のレスの中で、
Offsetを使う場合は、注意が必要とかきましたが、
  
メソッドとプロパテイで、扱いが異なることを理解することです。
説明では、
 

引用:
A2:H6に範囲名XXを設定しています。
各行のB列〜C列、D列〜F列、G列〜H列を結合しています。

WinArrowさんのコメントは私の論旨に対する何かの反論なんですか？
 
私は、Offsetの話は何もしておりませんが。。
Offsetしたなら、した後のRangeオブジェクトの話ですけども。
 
＞>Offsetを使う場合は、注意が必要
＞何を注意するかといいますと、
＞「メソッドとプロパテイで、扱いが異なる」ということです。
ここは何を言っているのか意味不明ですね、私には。
具体的に何メソッドと何プロパティなんですか？

引用:

実際のものに適用する際に、オフセット量をまちがえてました。どの場合も、問題なく実行できました。

＞エラーにならない・・・・意図した結果になっていないことを見逃してしまう可能性がある
＞・・・・いうことです。
 
だから何だって言うんですか？
 
間違った範囲を指定していたなら、それが問題なんです。
 
エラーにならないことは罪ではない。
取り違えないでくださいよ。