• ベストアンサー

行位置の設定について

ランダムに行が増えていく（挿入などをして増やす）データに対して、 そのファイルを開いたときに一番行の下（何も入っていない行）の A列のセルをアクティブにする方法ってないのでしょうか。 今は、一つ一つデータがないかを検索してアクティブにする マクロにしております。 すいませんが教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • hallo-2007
  • ベストアンサー率41% (888/2115)
回答No.1

VBエディター起動して 左側のプロジェクトの中の　ThisWorkbook　クリックして Private Sub Workbook_Open() Range("A65536").End(xlUp).Offset(1, 0).Activate End Sub をコピイします。 Private Sub Workbook_Open() ・・・ End Sub はファイルを開いたとき Range("A65536").End(xlUp).Offset(1, 0).Activate A列の最終の行から上へ移動して空白でない行の１つ上の行をアクティブに です。

meteo14
質問者

お礼

ありがとうございます。 すごく参考になりました。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルマクロ、空白行（セル）の挿入

    データがA、B、C、D、E列100行まであります。 このうちD、E列を除き、エクセルのマクロで1行ごとに空白で10行挿入したいです。 （A、B、C、D列のデータに空白セルを10行分挿入し、下にシフトするイメージ。D、E列はそのまま。） ご教授頂きたく、お願いします。

  • エクセルで複数行のデータを1行にする方法

    エクセルで複数行のデータを列挿入--切り取り--貼り付けで1行にしたいのですが、 その様なセルの並びが沢山あります。 VBAマクロなどで一度に出来る方法が有りましたらどうか教えて下さい。 データはこんな感じです。 ┌─┬─┬─┬─┬─┐ │01│04│07│10│13│ ├─┼─┼─┼─┼─┤ │02│05│08│11│14│ ├─┼─┼─┼─┼─┤ │03│06│09│12│15│ ├─┼─┼─┼─┼─┤ │16│19│22│25│28│ ├─┼─┼─┼─┼─┤ │17│20│23│26│29│ ├─┼─┼─┼─┼─┤ │18│21│24│27│30│ ├─┼─┼─┼─┼─┤ この様に並び替えたいのです。 ┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐ │01│02│03│04│05│06│07│08│09│10│11│12│13│14│15│ ├─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤ │16│17│18│19│20│21│22│23│24│25│26│27│28│29│30│ ├─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤ 何卒宜しくお願いいたします。

  • エクセルマクロ、集計行の上に空白行挿入

    エクセルデータがA、B、C、D、E列1000行まであります。 C列基準でE列を合計するマクロを作成しましたが（集計行はデータの下に挿入）、実行の結果、新たに挿入される集計行の上に空白行を1行挿入していくということを、作成したマクロに付加できるでしょうか？ ご教授頂きたく、お願いします。

  • 空白行削除

    宜しくお願いします。 1枚のファイルシートに14ブロックのデータが貼り付けてあります。各ブロック行の長さは違く、ランダムに貼り付けてあります。例えば、データ 何百行の空白 データ…と繰り返されており、約3万5千行ぐらいあります。 空白行削除で多分半分近くまで上に詰められれば良いのですが、たくさんあるのでマクロで教えていただければと思います。ネットでころがってるデータ試してみたのですが(1部) ENDLESSに実行されて、出来てるのかどうかも確認はとれてません。ちなみに自分のシートに貼ってあるデータはA列からAS列まであり数字、文字混在です。また各ブロックの終わりは集計行となっており、空白セルがまじってます。宜しくお願いします。

  • 特定文字のある行の前に空白行を挿入したい

    5000行ほどあるエクセルファイルで、 「■」の文字がある行の直前に空白行を挿入したいと思っています。 「■」のある行が1500行ほどあるので、 手作業は大変かと思い、マクロでやるのはどうかな？と おもったのですが、既存のマクロを少し修正することはあっても 初めからマクロを組んだことがないので、 どう書けばよいかわかりません。 データはA列にしか無い状態で、 「■」がある行の直前に空白行を挿入するマクロは どのように書けばよいのでしょうか？ ご教授のほどお願いします。

  • マクロ、セルの値から行挿入して転記する方法

    エクセル2013です。 セルA1に 1,8,9,15 セルA2に 7,12 セルA3に 20,14,28 と入力されているとします。 For～Nextで回して セルA1のカンマの数を InStr関数で数えて カンマが3個だから その3を変数に入れて それを利用して A2から3行行挿入します。 で カンマで区切られた順に A1には1 A2には8 A3には9 A4には15 と転記させる カンマは消してしまう で、この時点で 元々セルA2だった所は セルA5になっていて 7,12 が入力されているはずです。 で同じくそこを見させて カンマが1個だから A5の下に1行挿入したうえで A5に7 A6に12 と転記 カンマは消す。 すると元々セルA3だった所は セルA7になっていて そこには20,14,28が入力されているはず ここも同じように処理し 下の列へ進めて行く。 カンマが無いセルは 行挿入せず この処理はしないで A列のデータが有る最終行まで 繰り返す。 と いうマクロを作成したいのですが どういう方法で行えばいいか うまく思いつきません。 配列は苦手でなのですが 配列を使わないと無理でしょうか？ どうかよろしくお願いします。

  • 複数行に空白行を一括で挿入したいのですが

    エクセルに関する質問です。 セルＡ列の14行目から30000行まである数字が入力されています。 各行間に一行ずつ空白行を挿入したのですが マクロを使ったやりかたでもかまいませんので 一括でする方法があれば教えていただけないでしょう？

  • Excelマクロ　選択したセルに対応する文字を設定

    A1からA5000までとB1からB5000までにデータが入っているとします。 その、A1からB5000までのデータを配列として収納して、選択したセルでマクロを実行するとA列から検索して対応するB列の値を一つ右のセルに挿入するマクロを作りたいと思います。 このようなマクロを作るには、 １．データを収納するマクロ ２．検索して出力するマクロ を作る必要があると思うのですが、どのような方法で実現するのがよいでしょうか？

  • エクセルで三行ごとのデータを１行ごとに表示させたい

    下のように三行ごとにあるセルを参照し、他のセルに一行ごとに表示する方法（関数、もしくはマクロなど） 　　Ａ　Ｂ　Ｃ　Ｄ １　あ　　　　　あ ２　　　　　　　い ３　　　　　　　 ４　い ５ ６ ７　う ８ あるいはあるセルに入力されている数値を数式内の行、または列として指定する方法を探しています。 （たとえばA1に４、A2に３と入力されていたとき、B2でその数値を取得しC3の内容を表示する、といった感じです） 簡単そうなきがするのですが私の検索が悪いのか、見つけることが出来ませんでした。ご存知の方お願いします

  • 文字列の数抽出、行挿入マクロ

    急きょ下記処理を実施することになったのですが、本やネットで下記処理ができるような マクロを色々探していもなかなか見つからず…。（T_T) どなたか詳しい方がいらっしゃいましたら教えていただけませんでしょうか？ ・A列に特定の文字列(；）があった場合、その列をコピー。 ・その列の下に文字列（；）の数と同数の行を挿入。 ・挿入した行のAセルに、文字列（；）のすぐ後ろの１ケタを貼り付け。 ・（挿入行が２行の場合） さらに下に挿入した行のAセルに、左から２つ目の文字列（；）の 　すぐ後ろの１ケタを貼り付け。 なお、Ａ列の行数は、現時点で５００行ほどあり、今後増える可能性もあります。 【処理する前】 　　　　　　Ａ列　　　　　　Ｂ列　　　 Ｃ列 １行目　　１；３２　　　　 ５５５　　　ＡＡＡ ２行目　　２９；１；４　　 ２２２　　　ＧＧＧ ３行目　　６００　　　　　 １１１　　　ＦＦＦ 【マクロ実行後】 　　　　　　Ａ列　　　　Ｂ列　　　Ｃ列 １行目　　１　　　　　５５５　　　ＡＡＡ ２行目　　３２　　　　５５５　　　ＡＡＡ ３行目　　２９　　　　２２２　　　ＧＧＧ ４行目　　１　　　　　２２２　　　ＧＧＧ ５行目　　４　　　　　２２２　　　ＧＧＧ　 ６行目　　６００　　　１１１　　　ＦＦＦ どうぞよろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する