このサイトの記事内では「アフィリエイト広告」などの広告を掲載している場合があります。
消費者庁が問題としている「誇大な宣伝や表現」とならないよう配慮しコンテンツを制作しておりますのでご安心ください。
問題のある表現が見つかりましたらお問い合わせよりご一報いただけますと幸いです。

【VBA】Unionメソッドは失敗しましたのエラー原因

2024年10月5日

【VBA】Unionメソッドは失敗しました

今回はUnionメソッドでエラーが起こる原因と対策を紹介します。

Unionメソッドでエラーとなる原因はほとんどがシート指定のミスによるものです。

どういったケースでエラーが起こるのか見ていきましょう。

VBAが難しいと感じたら
ココナラにてVBAの作成依頼を受け付けています。
ご依頼・ご相談はこちらから

Unionメソッドは失敗しましたのエラー原因

Sub UnionError()
    '''Unionメソッドでのエラー例
    
    Dim sht As Worksheet
    Set sht = Sheets("Sheet1")
    Dim rng1 As Range
    Set rng1 = sht.Range("A1:A3") '原因1:Sheet1上のセルを指定している
    
    Dim rng2 As Range
    Set rng2 = Range("B1:B3") '原因2:アクティブシート上のセルを指定している
    
    Dim rngIntersect As Range
    Set rngIntersect = Union(rng1, rng2)
    
End Sub

Unionメソッドでエラーが起こりやすいケースを、サンプルコードとして記載しました。

Unionメソッドは引数に異なるシート上のセルを指定すると、エラーが発生します。

サンプルコードを見ると、rng1はSheet1上のセルを指定していますが、rng2はアクティブシート上のセルを指定しています(Rangeでシート指定しないと自動的にアクティブシートとなります)

Sheet1をアクティブにした状態で実行するとエラーが起きません。

しかし、Sheet1以外をアクティブにした状態で実行するとエラーが発生します。

rng1とrng2の指定しているシートが異なるのが原因です。

Unionメソッドのエラー対策

Sub UnionNotError()
    '''Unionメソッドでのエラー対策後
    
    Dim sht As Worksheet
    Set sht = Sheets("Sheet1")
    Dim rng1 As Range
    Set rng1 = sht.Range("A1:A3")
    
    Dim rng2 As Range
    Set rng2 = sht.Range("B1:B3") 'rng2もSheet1上のセルを指定する
    
    Dim rngUnion As Range
    Set rngUnion = Union(rng1, rng2)
    
End Sub

解決策はシンプルです。

rng1, rng2が別シートとならないようにすれば良いのです。

上のコードのようにrng2もSheet1のセルを指定するように変えれば解決します。

Unionメソッドでエラーが出たときは別々のシートのセルを指定していないか確認してみましょう。

《VBA上級者になりたい人へ》
VBA上級者を目指したい人にはパーフェクトExcel VBA一択です。
この本を読み切れば間違いなくVBA上級者になれます。

created by Rinker
技術評論社
¥3,608 (2024/12/02 20:25:22時点 Amazon調べ-詳細)
VBAが難しいと感じたら
ココナラにてVBAの作成依頼を受け付けています。
ご依頼・ご相談はこちらから

VBA

Posted by やろまい