実現したいこと
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です。
回答1件
あなたの回答
tips
プレビュー