
No.4ベストアンサー
- 回答日時:
こんばんわ。
大変失礼いたしました。
表示されなかった原因は、Privateキーワードがついていたからです。
VBAでは、Privteキーワードがついているプロシージャをツールバーボタンに登録したり、アクセスキーを設定して実行できないという制約があります。基本的なことを忘れてサンプルマクロを提供してしまいました。誠に申し訳ございませんでした。深くお詫び申し上げます。
修正マクロを作らせていただきました。前回の方法で、実行してみて下さい。今回は、アクセスキーを設定して実行することができるかと思います。
Sub Rows_Delete()
Dim myRow As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim myCnt As Integer
myRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To myRow - 1
If Cells(i, 1).Value <> "" Then
For j = i + 1 To myRow
For k = 1 To 2
If Cells(i, k).Value = Cells(j, k).Value Then
myCnt = myCnt + 1
If myCnt = 2 Then
Rows(j & ":" & j).ClearContents
End If
End If
Next k
myCnt = 0
Next j
End If
Next i
Do
myRow = Cells(Rows.Count, 1).End(xlUp).Row
If Cells(myRow, 1).End(xlUp).Row = 1 Then Exit Do
For i = 2 To myRow
If Cells(i, 1).Value = "" Then Rows(i & ":" & i).Delete
Next i
Loop
End Sub
kazuhiko5681さん、二度目の回答ありがとうございます。
私のために遅い時間まで修正マクロを作って下さり、本当に感謝しています。
私もkazuhiko5681さんのようにマクロを自在に操れるように勉強していきたいです。
過去の質問をよく調べなかったばかりに負担をかけてしまいました。
本当にありがとうございました。
No.3
- 回答日時:
初めまして。
サンプルマクロを作ってみました。下記のコードをコピー・ペーストするだけで、自動であなた様の考えていることが実行されます。下記の様に操作してみて下さい。
1.新規ブックを開き、ALT+F11キーを押してVBE画面を開く
2.画面左上のVBAProject徒書いてある下のSheet1をダブルクリックし、右側の白い部分へ下のコードをコピー・ペーストする。
3.再度ALT+F11キーを押してエクセルの画面にもどり、ALT+F8キーを押してマクロダイアログボックスを立ち上げ、マクロ名の下に、Sheet1.Rows_Deleteと入力されている(されていない時は、下のマクロ名をクリックすると入力される。)ことを確認後、オプションボタンをクリックする。
4.カーソルが点滅しているテキストボックスに半角小文字でbと入力し、OKボタンを押してダイアログボックスを閉じる。×ボタンを押してマクロダイアログボックスも閉じる。
適当にデータを入力後、CTRL+bを押すとマクロが実行され、ダブった行が削除されています。
もし不都合な点・ご不明な点がございましたら、ご遠慮なくお知らせ下さい。私でよろしければ、あなた様のおやりになりたいことが実現できるまでご一緒に考えていきたいと思います。
Private Sub Rows_Delete()
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row - 1
For j = i + 1 To Cells(Rows.Count, 1).End(xlUp).Row
For k = 1 To 2
If Cells(i, k).Value = Cells(j, k).Value Then
Rows(j & ":" & j).Delete shift:=xlShiftUp
End If
Next k
Next j
Next i
End Sub
この回答への補足
kazuhiko5681さん、回答ありがとうございます。
おっしゃるとおりやってみました。ところが、
>マクロ名の下に、Sheet1.Rows_Deleteと入力されている
のところでマクロ名がでてきません。その下の欄(キャンセルボタンの左)にも
何も表示がありません。
質問についてはすでに解決しましたが、もし、よろしければ、
原因を教えていただけませんか。
No.2
- 回答日時:
同様の質問が度々出ます。
2002/10/14 No.380628
2002/9/20 No.362854など。
「エクセル 重複データ」を検索語として、OK-WEBの過去の質問を調べてください。重複を削除とか合計するとかの質問が出ます。
imogasiさん、いつもありがとうございます。
過去の質問をよく調べた結果、
(1)フィルタオプションの設定
(2)重複するコードは無視するにチェックする
ことで解決いたしました。同じ質問が何度も出ていたようですね。
以後、よく調べてから質問するよう気をつけます。回答ありがとうございました。
No.1
- 回答日時:
集計をするといいのでは。
データ→集計→A列の合計を集計
集計した合計だけを、コピーして別のワークシートに貼り付けすると、
抽出できます。
データ→集計で実行した結果を他のシートに貼り付けると、
結果だけでなく、内訳のデータまでコピーされてしまうようです。
過去の質問をよく調べた結果、抽出結果だけを活用できるようにするには、
(1)フィルタオプションの設定
(2)重複するコードは無視するにチェックする
(3)結果をコピーして他のシートに貼り付ける
により可能でした。回答ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
複数ファイルにある特定のシー...
-
マクロ 実行ボタンを押さずに...
-
【Excel VBA】エラー番号400
-
Accessのクエリを実行するショ...
-
モジュール内のマクロを全て実...
-
Excel VBA のdebug(F8キー) が...
-
エクセルのマクロショートカッ...
-
パワーポイントで、スライドご...
-
powerpointにwebページを挿入
-
エクセルのマクロ機能で前のシ...
-
エクセルを開くときにvisibleが...
-
エクセルで複数のシートをまと...
-
マクロボタンをある条件の時に...
-
TeraTermのマクロについて
-
VBA RemoveDuplicatesが動かない
-
UWSCの簡単なキーマクロなので...
-
ThisWorkbook.Pathを実行すると...
-
EXCELのセルへ、デジタル時計を...
-
テキストボックスに入力したシ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
複数ファイルにある特定のシー...
-
エクセル グラフの軸の最小値最...
-
Excel VBA のdebug(F8キー) が...
-
エラーになってないのにVBA...
-
Wordの画面を左右にスクロール...
-
EXCEL 複数のシートの同一の位...
-
エクセルのマクロ機能で前のシ...
-
Excelを開いた時に表示さ...
-
エクセルで複数のシートをまと...
-
エクセルでマクロ実行中に任意...
-
ワードからエクセルへ貼り付け...
-
VBAでEXCELに埋め込んだPDFを開...
-
Wordで「原稿用紙○枚」を換算す...
-
Excelマクロでオプションボタン...
-
マクロを実行した日付をセルに...
-
TeraTermのマクロについて
-
Accessのクエリを実行するショ...
おすすめ情報