- ベストアンサー
マクロの記録で任意の文字を検索してそのセルから範囲を選択したいのですが
マクロの記録で任意の文字を検索して、見つかったセルから範囲を選択して別なシートへ切り取りし、貼り付けたいですが何か方法はありますか?現在は検索をしたセル番号になってしまいます。 マクロはじめたばかりです。 検索→い→(A2:C5)選択&切り取り→sheet2貼り付け→検索(sheet2)→え→(A3:C4)選択&切り取り→sheet3貼り付け sheet1 →sheet2 →sheet3 ABC ABC ABC 1あかさ 1いきし 1えけせ 2いきし 2うくす 2おこそ 3うくす 3えけせ 4えけせ 4おこそ 5おこそ できれば検索で発見されたA2やA3を任意のアクティブセルにし、範囲はC列の一番下のセルを選択し切り取りたいのですができますでしょうか。
- みんなの回答 (2)
- 専門家の回答
関連するQ&A
- マクロ 選択範囲及び切り取り&貼り付けについて教えてください。
(1)sheet1のA列からH列までデータが入っています。 (2)検索機能を使って発見されたセル(検索されるデータはA列にのみ入っています。)からA~H列のデータが入っている最終行まで選択し切り取り。(場合によっては検索を2回してから選択範囲を決めます) (3)sheet2のA2へ貼り付け (1)~(3)の作業をsheet7まで繰り返します。 マクロの記録を行うと選択範囲が指定され別のデータの時にも前と同じ範囲しか指定できません。 例 sheet1検索ち→発見されたセル(この場合A3)からA~H列の最終行(A9)選択及び切り取り→sheet2のA2へ貼り付け→検索ち→文字が縦に2回続いている場合は次を検索→発見されたセル(この場合A6)からA~H列の最終行(H8)選択及び切り取り→sheet3のA2へ貼り付け sheet1 → sheet2 → sheet3 ABCDEHGH ABCDEHGH ABCDEHGH 1ち あいうえおか 1 1 2ひあいう えおか 2ちあい い うえ 2ちあいうえお か 3ちあい い うえ 3 あいうえお か 3ひあいうえおかき 4ゆあいうえお か 4ちあいうおかき 4ちあ うえおき 5ちあいうおかき 5ゆあいうえおかき 6 あいうえおかき 6ちあいうえお か 7ちあいうえお か 7ひあいうえおかき 8ひあいうえおかき 8ちあ うえおき 9ちあ うえおき *実際のデータは2000行ぐらいデータが入っています。 *見えずらくてすみません。
- ベストアンサー
- オフィス系ソフト
- Excelマクロに、「検索」は記録されない?
A列とB列にそれぞれ文字が入っています。 A列に含まれる文字を全て検索 ↓ 見つかったセルを含む行を選択。(A列のセルだけでなくその横のB列のセルもとりたいのです) ↓ 切り取り ↓ 別のシートに貼り付け と言う処理を順次行うマクロを作りたいのですが、自動記録してみたところ、文字列の検索・選択の部分が全く記録されません。 この部分、どのように記述したらよろしいのでしょうか? また、A列のセルのみならず、そのセルを含む行全体を選択するにはどうしたらいいのでしょうか? お分かりの方がいらっしゃいましたら、どうかご教示ください。
- ベストアンサー
- オフィス系ソフト
- 特定セルから29右までを範囲選択→切り取り→
特定セルから29右までを範囲選択→切り取り→50個右に移動して貼り付け 毎回A列が先頭にあるのですが、どこのA列になるかは、データによってまちまちになってしまうため、自分自身でそこを選択してからマクロ実行をしようと考えてます。
- 締切済み
- Visual Basic
- Excel VBA アクティブセルからある一定のセルまでの範囲選択
Excel VBA アクティブセルからある一定のセルまでの範囲選択 Excel2003を使用しています。 アクティブセルからC列に『計』と入力されている行の1行上のD列までを選択状態にするマクロを作成しようとしています。 C列に『計』と入力されている行は下記のように複数あるので、アクティブセルの行以下に入力されている次のC列の『計』の1行上までとしたいのですが、どのようにコードを書いたらいいでしょうか? 例えば… A2セルをアクティブにしていてマクロを実行するとA2:D3が選択状態に A7セルをアクティブにしていてマクロを実行すると、A7:D9が選択状態になるように という具合です。 わかりづらくて申し訳ありませんが、よろしくお願いします。 A B C D 1 日付 № 品名 金額 2 1/1 1 ○○○ 1,000 3 1/2 2 ××× 1,500 4 計 2,500 5 6 7 1/1 5 ○×○ 2,000 8 1/3 6 ××○ 1,200 9 1/4 7 ×○○ 2,500 計 5,700 : :
- ベストアンサー
- オフィス系ソフト
- 任意のシートを選択して対象をコピー
例えばsheet1のA1:B10のセルの内容を、任意に選択したシートの、任意の箇所に貼り付けるにはどの様にしたらいいのでしょうか? 考えとしては、マクロを起動させて対象範囲を選択した後、シートの選択を行い「このシートでいいですか」といったメッセージボックスを出したいです。OKなら今度は貼り付け選択のメッセージボックスを出しOKなら貼り付け。シート選択でキャンセルと選択すると別のシートの選択が出来るようにしたいのです。 ユーザーの入力指示をどの様にすればいいのか全く判らず困っています。宜しくお願いします。
- ベストアンサー
- Visual Basic
- エクセルのマクロでセル選択するには
初心者です! エクセルのSheet1に30箇所のセルをマクロで選択したいのですが、 たまに選択するセルが変わります。 そこで、Sheet2のA1から下へSheet1の選択する位置を「B2」「C5」「D10」・・・としてマクロで一発で30箇所のセルを選択する方法を教えてください Sheet2のA1から下へ入力するセル位置はその都度変化します。 変化したときにそのマクロを実行すると選択できるといいのですが!! よろしくお願いします。
- ベストアンサー
- Windows NT・2000
- [マクロ]高速な検索方法
以下のマクロを作成しようと思っています。 (1)シート1のセルA1の値を変数に格納 (2)シート2のセルA1~A100の中で変数を等しい値を検索 (3)見つかったセルの右に"成功"を入力 ※(1)~(3)を複数回繰り返す(検索値が毎回変わります。) 現在は、 (1)A1を変数に格納 (2)シート2のセルA1~A100を範囲選択 (3)マクロの自動記録で作成したCtrl+Fの検索を実行 (4)見つかったセルをアクティブにする (5)アクティブセルからの相対指定で成功を記入 としています。 これだとものすっごく時間がかかってしまうのです。。。。 なんとか早くやる方法はありませんでしょうか。 ご教授お願いいたします。
- ベストアンサー
- オフィス系ソフト
- VBA)範囲指定した全セルに関数を入れたいのですが。。。
当方、始めてのマクロ作成に奮闘中の身です。 ご教授いただきたく、質問させていただきます。 ◎質問 範囲指定した全セルに関数を入力したいのですが、アクティブセルのみにしか関数が入らず困っています。 Dim abc As Integer abc = Sheets("シート名").Range("A1").CurrentRegion.Rows.Count Range(Cells(2, 12), Cells(abc, 12)).Select ActiveCell.FormulaR1C1 = "=COUNTIF(R1C1:RC[-11],RC[-11])" 一番下の部分の関数を入力したいのですが、アクティブセルのみの入力になってしまい、下から2番目の指定範囲には反映されません。 下から2番目の指定範囲セル全てに適用するにはどうしたら良いでしょうか。 よろしくお願いいたします。
- 締切済み
- その他(ビジネス・キャリア)
- マクロでセルを選択
アクティブセルが例えばC3の時に、マクロの実行でC3からE3までのレンジを選択するといったように、アクティブセルからそこを基準に3つ隣までを選択するにはどうすれば良いですか?
- ベストアンサー
- Visual Basic
- エクセルのマクロで選択範囲の合計を求めたい
A2:A10に数字があってその一つ下に合計をVBAで出したいのですがどうしたらよいでしょうか。 数字はA2:A50とかA2:A30とか毎回変わります、そしてその下に合計を出します。 マクロで記録したらその選択範囲まで記録されてしまうので 違う範囲が求められません。 とにかくある範囲のセルを選択してその選択範囲の一番下か、または選択範囲の一つ下に合計を出したいのです。 もしくはそのアクティブセル上にある数字の合計です。 どうぞご教示下さい。
- 締切済み
- オフィス系ソフト
補足
遅くなりました。説明不足ですみません。 アクティブの認識は、検索結果の確認ではなく、 検索結果(い)だったらA2~C列の最終行まで、 検索結果(え)であれば、sheet1の場合A4~C列の最終行まで 検索結果で見つかった場所から範囲を選択したいということです。 説明がへたくそですみません。 検索するのは各シートA列のみです。