質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.31%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

1863閲覧

VBA Removeduplicatesで出るエラーを解決したい

nao-y

総合スコア27

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2023/07/14 00:55

実現したいこと

Excel上でA,B2列に設定した値から重複を削除したい

前提

VBAでRemoveduplicatesを使用したところ、下記エラーが発生し、いくつか対応を試しましたが解決しません。
Excel上で手動で重複削除を実行すると正しく動きます。

発生している問題・エラーメッセージ

実行時エラー'5'
プロシージャの呼び出し、または引数が不正です。

該当のソースコード

VBAです

With wks1 lngTblEndRow = .Cells(.Rows.Count, 3).End(xlUp).Row varTblSumData = .Range(.Cells(glngTBL行_明細TOP, 2), _ .Cells(lngTblEndRow, 3) End With With wksTmp .Activate lngTblEndRow = UBound(varTblSumData, 1) .Range(.Cells(1, 1), .Cells(lngTblEndRow, 2)) = varTblSumData Set rngWorkArea = .Cells(1, 1).CurrentRegion rngWorkArea.RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo ←ここでエラー

End With

試したこと

・重複削除実行前にブレイクして、wksTmpを目で見て2列データが存在することを確認
・rngWorkAreaを
.Range(.cells(1,1),.cells(lngTblEndRow,2)
Activesheet.Range(Activesheet.cells(1,1),Activesheet.cells(lngTblEndRow,2)
に置き換えて実行⇒同じエラーが発生
・マクロの記録で同じ操作をし、作成されたソースコードをそのまま張り付けて実行⇒同じエラーが発生
・新しいBookを作成してソースコードを移行して実行⇒同じエラーが発生

補足情報(FW/ツールのバージョンなど)

Office365です。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

bebebe_

2023/07/14 01:33

「Array(1, 2)」を「VBA.Array(1, 2)」にした場合もエラーになりますか?
nao-y

2023/07/14 02:26

ありがとうございます! 解決いたしました! 他人が作ったPGMで、きちんと確認できていなかったのですが、 Option Base 1 を宣言していたのが原因だったのですね。 参考になりました!
guest

回答1

0

自己解決

bebebe_ さんのコメントにより解決いたしました。
>「Array(1, 2)」を「VBA.Array(1, 2)」にした場合もエラーになりますか?

「Array(1, 2)」⇒「VBA.Array(1, 2)」に変更したところ、エラーが出なくなりました。
Option Base 1が関わってくるのですね。参考になりました。
ありがとうございました。とても助かりました。

投稿2023/07/14 02:28

nao-y

総合スコア27

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.31%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問