• ベストアンサー

エクセルで文字最終行の空白セルへ移動

エクセル2000です。 1000行内で間にとびとび(順不同)に空白セル、他は文字有りです。 (1000行目は文字あり) シートが10個あり、各シートともばらばら(ウィンドー枠固定位置)ですが、ウィンドー枠固定内の行に「最終行へ移動」のボタンを設け、いずれの行からも、最終文字入力の次の行空白セル(AからZ列のいずれか)へ移動したいです。 方法がありますでしょうか? VBAの場合、素人につきVBAへの入力方法等も一緒にお願いします。またVBAの場合、ソフトを立ち上げたら直ぐに実行できるようにしたいです。(立ち上がり時のマクロ警告はあり) よろしくお願いいたします。

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

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.1

時間がたっているのに解答が付かないのは、多分質問者がVBAを勉強していないのに、丸投げでコードを教えくれというのが賛同を得ていないのでは。全く経験の無い人にコードを書いても、質問者の情況の場合・変化で修正してもらえなくて無駄になることが多い。 素人であれば勉強することが筋。 >間にとびとび(順不同)に空白セル、 が難しくしてるのかな。 下記でやれることかどうか? Sub test01() c = ActiveCell.Column ActiveSheet.Cells(65536, c).End(xlUp).Offset(1, 0).Select End Sub をボタンに登録して、やってみて、これでは条件に合わないなら、質問文を工夫して、再(別)質問したら。 列の指定は、アクチブにしているセルの列で決めている。 ボタンに登録は Googleで「エクセル マクロ ボタン 登録」で照会し http://www11.plala.or.jp/koma_Excel/contents4/mame4034/mame403405.html これ以下を読んで勉強して。 ーー >(ウィンドー枠固定位置 が障害になるかどうか「分からない。

hirota3310
質問者

お礼

ご回答ありがとうございます。 ご指摘通り、「依頼、丸投げ」とみなされてもおかしくありません。 大変失礼しました。 マクロを実行したら、うまく出来ました。感動ものです。 ボタンはオートシェイプで作成しました。(一応ネット検索内で勉強しました) >VBAへの入力方法とは・・・ book内シート全てに適用させたかったので、標準モジュールに記入なのか、 ThisWorkbookなのかはよく分かりませんでした。

その他の回答 (2)

  • chonami
  • ベストアンサー率43% (448/1036)
回答No.3

>空白セルが青くなりますが、tabキーを押していくと空白セルへ移動・・・と言う意味でいいでしょうか? やってみるとわかると思いますよ。 意図した動きでなければまた補足して下さい。

  • chonami
  • ベストアンサー率43% (448/1036)
回答No.2

VBAでなくていいなら、Ctrl+G→セル選択→空白セル で空白セルが選択できるので、1個のセルを入力したらTabを押していくと次の空白セルへ移動できます。 一番上の空白セルが最初に選択されてしまうのでフレキシブルな感じにはならないかも知れませんが…

hirota3310
質問者

補足

ご回答いただきありがとうございます。 こんな方法もあるんですね。 >Ctrl+G→セル選択→空白セル >で空白セルが選択できるので、1個のセルを入力したらTabを押していくと次の空白セルへ移動できます。 空白セルが青くなりますが、tabキーを押していくと空白セルへ移動・・・と言う意味でいいでしょうか?

関連するQ&A

  • セル内文字を切取りその行範囲の列の空白セルに貼付

    B列3行目から添付のようにセル内にカンマを含む文字がありカンマで区切った文字ごとに切り取り矢印右のように同B列の次の空白行に順に貼り付けたく、その際カンマは削除したいです。また等間隔の名前の行がある中で枠内の空白に文字を張付けたく等間隔行数枠が多くてできればVBAコードがお分かりなる方宜しくお願いします。 環境はwindows7 office2013です。

  • 空白のセルを行削除する。EXCELマクロなのですが・・

    VBA初心者です。 データーをHPから、単純にコピーしてきて、 EXCELに貼り付けています。 フィルターをかけても、画像かなにかがセルに張り付いているのか、 空白行をすべて削除できません。 いろいろ試して(HPから、空白セルの行削除について書かれてあるマクロを貼り付けて)動いたのが、このVBAです。 しかし、遅いので、早いVBAに簡略できればいいのですが。。 大体、1000行ぐらいの文字を貼り付けて、3/1ぐらいが空白行です。A行のセルの空白のみを、削除したいのですが。  まったくの素人なので、わかりません。 どうかよろしくお願いいたします。 Sub 空白の削除() x% = Worksheets("sheet1").Range("A65536").End(xlUp).Row For i = x% To 1 Step -1 If Worksheets("sheet1").Cells(i, 1).Value = "" Then Worksheets("sheet1").Rows(i).Delete Next End Sub

  • エクセルで空白セルを寄せたい

    エクセル2002使用です VBAは使わずに関数だけで空白セルがあるセルを詰めて表示したいのですが・・・   A|B|C|D|E|F|G 1 あ い う え お か き 2 ○   ○ ○   ○ の表を   A|B|C|D|E|F|G 1 あ う え か  2 ○ ○ ○ ○ のように表を書き換えたいのです。 1行目には必ず文字が入力されています。 2行目には入力されているセルと空白セルが不定期に入力されています。 2行目のセルが空白ならば、1行目のセルも削除して左へ詰めて 表を転記したいのです。 よろしくお願いします。

  • excelで入力の最終行に移動するには

    excelで上から順に入力していきます。次第に行が増えて400行とかなってしまうんですが、それをVBAのコマンドボタンか何かで最終行(次に入力するセル)まで一発で移動できませんか? 大変困っていますのでよろしくお願い致します

  • マクロを使って最終行を取得して、範囲内の空白セルに

    マクロを使って最終行を取得して、範囲内の空白セルに指定の文字列を表示させたいです。 お世話になります。 要件としてはタイトルの通りです。 Excel2013を利用しています。 A列を参照して最終行を取得し、 B列の1~最終行までの空白セルに対して「未入力」という文字列を入力したいです。 この場合、考え方はいろいろあるのでしょうが どのようにコードを組めば良いでしょうか? 自分では、まったく書けていないというのが正直なところです。 そこで御手数ですが、ご協力をお願いいたします。

  • Excelで空白行を削除したい

    2500行位使用しているシートのなかに、どのセルも空白になっている不要な行が300行くらい混ざっています。 この行を自動的に削除するにはどうすれば良いでしょうか。 ただ、その行のA~Eセルは空白でもFセルに値が入っているなど完全に空白でない行は削除できません。 メニュー、関数、VBAなど有れば教えてください。

  • EXCELで最終行への簡単な移動

    EXCEL2000を使用して、列15x行5000くらいのデータを操作しています。 1.列Cの最終行に簡単に移動できるキーボード操作がわかったら教えてください 2.列Cの最終行を検索するVBAを教えてください 3.列Cの第1行から最終行までのうち、「あ」という文字を検索するVBAを作りたいのですが、簡単な作り方を教えてください。

  • Excel 一つのセルに文字を2行ずつ入るようにしたい

    Excelのセルに文字を入力するとき 一つのセルに1行~2行の文字を入れたいのですが どのようにしたらいいのでしょうか。 具体的にはこういうことです。 一つのセルに↓ 氏名 電話番号 またあるセルには↓ 氏名だけ (氏名の下は空白)

  • エクセルで空白のセルを探して貼り付け

    エクセルVBAでSheet2の指定のセルをコピーして、 Sheet1にある表の中の指定の列の空白セルを探して貼り付けるVBAを作成したいのですが、うまく出来ません。 Sheet1の表は1行目、2行目は見出しの項目が並んでいます。 3行目から50行目までは値を入力するようになっていて、 51行目はそれらをの集計が表示されるようになっています。 下記のVBAを作成したら3行目~50行目までの空欄に貼り付けず、 52行目に貼り付けてしまいます。 ----------------------------------------------------------- Sheets("Sheet2").Range("B6").CurrentRegion.Copy Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Offset(1).PasteSpecial xlPasteValues Application.CutCopyMode = False ------------------------------------------------------------ 修正して頂けないでしょうか? 宜しくお願いします。

  • エクセル最終行の下に貼り付け

    VBAで以下の作業を教えて下さい。 Sheet1のB列に入力済みのセルが何行かあります。 その入力済みのセルの値をコピーして、Sheet2のA列の入力済みの最終行のすぐ下の行に貼り付ける。 *Sheet1のB列の入力済みのセルの行数は毎回変わります。 *Sheet2のA列には一番最初は何も入力されていない状態です。 宜しくお願い致します。

専門家に質問してみよう