- 締切済み
エクセルで検索と貼り付けのマクロを組みたい
imogasiの回答
- imogasi
- ベストアンサー率27% (4737/17068)
なず最初がおかしい。 Sub test01() Range("C5:BB6").Select MsgBox Cells.Count End Sub を実行してご覧。大きな数が出るだろう。全セル選択になってしまっている。 Sub test02() MsgBox Range("C5:BB6").Cells.Count End Sub なら妥当だろう。 ーーー 重要なところなので Range("C5:BB6").Find(What:="A", After・・ にして実行して、うまく行かないか至急報告のこと。 その後はまた考える。
関連するQ&A
- エクセルのマクロについていくつか質問があります
エクセルのマクロについていくつか質問があります 1 例えばA1セルが赤く塗りつぶされている場合隣のB1セルに赤と表示させたいのですが出来ますか 実際には色は何色かあります 2 セルの検索で検索であったセルを選択状態にするにはどうすればいいですか いちおう検索構文まではできてます Selection.Find(What:="6", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False, SearchFormat:=False).Activate 以上ですよろしくお願いします
- ベストアンサー
- その他MS Office製品
- EXCEL マクロでの検索をお教えください
下記のようなマクロを使いたいのですがこの場合×があるときは良いのですが、 無いときエラーが出ます。どの様にすれば良いのかお教えください。 無いときエラーは オブジェクト変数または With ブロック変数が設定されていません。 となります。 Sub 検索() Range("K12:K70").Select Cells.Find(What:="×", After:=ActiveCell, LookIn:= _ xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate End Sub
- ベストアンサー
- Excel（エクセル）
- Excelで数字のあるセルにマーカーをつける
Excelで数字のあるセルにマーカーをつける Excelで数字のあるセルにマーカーをつけたいと思っています。 列F,G,I,Jに0.3、1,400や4といった数字がありその数字にマーカーをつけたいです。 wordで[1-9]を検索するように正規表現が使えればいいのですが Excelでは出来ないのでしょうか？ Selection.Find(What:="1", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False, SearchFormat:=True).Activate でひとつずつ探すしかないのでしょうか？ 何かやり方をご存知の方、知恵をお貸し下さい。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- 文字検索マクロで質問です。
文字検索マクロで質問です。 下記のマクロを作成したのですが、A1に検索する文字を入力してA列(A5:11700)のみを検索して該当が有ったらそのセルを色を付けし、又,該当が無ければMSG BOXで”該当なし”と表示するマクロを御教授頂けますか。 Cells.Find(What:=Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , MatchByte:=False, SearchFormat:=False).Activate End Sub 以上、宜しくお願い致します。
- 締切済み
- その他([技術者向] コンピューター)
- エクセル2007のマクロ不具合について、
次のようなマクロを「CTRL+T」のショートカットキーで作成しましたが、2回続けて実行すると2回目が違う結果となってしまいます。 1回目はちゃんと 2010/1/2 のセルがアクティブセルとなるのですが、2回目は 2010/11/2 がアクティブセルとなってしまいます。 原因と対処法があればぜひ教えていただきたいと思います。よろしくお願いします。 Sub 本日() Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate End Sub
- ベストアンサー
- その他MS Office製品
- VBA★findを使って見つけたセルの値を取得
AA="タナカ" Selection.Find(What:=AA, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate 自動マクロでコレをつくりました。 タナカを見つけてその隣の変数を取得するというものを作りたいと思っています。 関数で言うとVlookupでやるものをマクロ化しようとしています。 検索して見つかったセルの右隣のセルの値を取得するにはどうしたらいいですか？
- ベストアンサー
- Visual Basic
- マクロエラ-
初心者です。win2000,エクセルでマクロが途中で止まってしまいます。時々に、最後までいくことがありますが、８割がたは、同じところでストップします。 マクロ言語は理解できていません。 うまく完了のケ－スは、デ－タの中身次第かなと思います。 記憶では、”0”があれば、何かをするようにしたと思います。 想定外のデ－タで、とまるのなら、回避方法を教えてください。 黄色反転して、ストップする部分は、以下です。 mcr3 Range("A1").Select ActiveCell.SpecialCells(xlLastCell).Select Columns("C:C").Select Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False).Activate いつもここで止まります。 ActiveCell.Replace What:="0", Replacement:="", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False).Activate -----------→つずく。
- ベストアンサー
- オフィス系ソフト
- Excel VBE 検索結果がない時の対処方法
いつもお世話になっております。 Excelで簡単な文字当てゲーム的なものを作っています 文字列（１００個程度）の中から、ある文字列を探し出して、そのセルの文字色を塗り替えるというマクロを組んでいます。 検索部分は下記のように記述してあります。 検索文字列がある時にはうまく動作しますが 検索文字列がない時にはエラーになります。 検索文字列がない時の対処方法を教えて下さい。 よろしくお願いします。 kaitou = Range("g2").Value Range("G2").Select Selection.Copy Columns("B:B").Select Selection.Find(What:=kaitou, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
- ベストアンサー
- オフィス系ソフト
- マクロ 検索について
こんにちは。マクロでの質問ですが、 【大学名リスト】というシートで作成したリストから検索してきたものを【検索ボタン】というシートのセルにコピペするマクロをボタンに登録しました。何度押しても検索してくれてしまうのですが、このボタンに登録したのは１回だけ実行して、もう一つのマクロで次を検索してくれるように作りたいのですが… Sub Macro1() ' ' Macro1 Macro ' ' Sheets("A.【大学名リスト】").Select Cells.Find(What:=Sheets("B.【検索ボタン】").Range("C8"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate Selection.Copy Sheets("B.【検索ボタン】").Select Range("E8").Select ActiveSheet.Paste End Sub 数値の検索だと１回だけで止まってくれるのですが、数式にすると何回も可能になってしまうのはなぜなのでしょうか。 あと、実行すると【大学名リスト】のシートで作成したリストから、【検索ボタン】のシートのあるセルにキーワードを入力すると、隣のセルに５つの候補を表示させるマクロも教えていただきたいです。
- 締切済み
- オフィス系ソフト
- 検索した後の見つかった件数を取得したい
画像のように手作業で検索した場合、下に検索結果の個数が表示されますが これをVBA内で取得することは可能でしょうか？ マクロの記録だと Sub Macro() Cells.Find(What:="a", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , MatchByte:=False, SearchFormat:=False).Activate End Sub となるのですが、最後に全部の個数を取得したいです。
- ベストアンサー
- Excel（エクセル）