2016-05-23 3 views
0

インターネットで何かを試してみるのに何時間も費やしましたが、私のような複雑なシートで作業するVBA修正を得ることはできません!あなたの助けに感謝します。複数のページから重複を削除し、すべてのシートをループする空白の行を削除する複合VBA

すべてのシートをループしたいが、「タイムキーパーコード」、「請求日」&「要約」という名前のシートはスキップしてください。これらの名前は常に同じですが名前は付けられませんシート。名前と数量が変わるため、スクリプトはループする必要があります。

他のすべてのシートでループします。範囲 "A1002:A2003"を選択し、重複がある場合は行を削除する必要があります。

また、範囲 "A2005:A3006"についても同じことを行う必要があります。

これらの両方の範囲にはテーブルが含まれていますが、テーブル名の名前は変更される可能性があるので注意してください。

私はそれができますかはわからないが、A1002のための完全なテーブルの範囲:B2003 とA2005のための完全なテーブルの範囲:A2003はA1002であるA3006はA2005です:AD3006

私はまた、A1002から行くことができません2つの範囲でいくつかの値が表示されるためA3006にまっすぐに進みますが、両方とも必要になります

同じシートをループする A1001からすべての行をセルの値が " "

私は非常に限られたスキルを持っており、非常に複雑なクエリなので基本的にゼロから始まるので、これを行う必要があるコードはすごいでしょう!

これは意味があると思います。

多くthnaks

+3

「インターネットで何かをしようとしている時間がある」ので、あなたが今まで持っているものを示します。 「あなたがこれをしなければならないコード」SOはコード作成サービスではありません。 – findwindow

+0

質問がありますか? Excelにロードする前にそれらをフィルタリングできますか?そして、@findwindowが正しいです、これはコード作成サービスではありません。あなたはVBAを自分で試してみる必要があります。 –

答えて

0

最初にGoogleのエントリは、あなたの問題を解決:

Delete all duplicate rows Excel vba

今、あなたは正しい用紙を標的化するためにこの機能の周りにループを生成する必要があります。

+0

私はそれを1枚のシートにしようとしましたが、そのシートにジャンプしてその範囲を選択していました。 'ます。Private Sub CommandButton1_Click()' 'ActiveSheet' '設定しRNG =レンジでSheet18.Activate' '( "A1002"、レンジ( "B1002")。エンド(xlDown))' 'RNG .ArrayBuplicates列:=配列(1,2)、ヘッダー:= xlYes' 'End With' ' End Sub' – Fcarboni

+0

列:=配列(1,2)は、AxBxの項目が等しい場合に行を削除します。 AyBy – Heini

+0

のエントリColumns:= Array(2)は2番目の列のみをチェックし、行全体を削除します。 入力の仕組みがわからない場合は、マクロを設定するのは難しいです – Heini

関連する問題