- 締切済み
VBA:各ページの先頭セルを選択するコマンドを教えてください
VBA:各ページの先頭セルを選択するコマンドを教えてください --Page 1------ A列 | B列 1 | 4 2 | 5 3 | 6 --Page 2------ 7 | 11 8 | 12 9 | 13 10 | 14 --Page 3------ ... 元は印刷用に作ったこのような表があります。A列だけにして、数字順にずらっと並べ替えたいと思っています。 各ページの行数はバラバラで、規則性がありません。実際に入力されているデータは連番ではなく任意の文字列(ページごとにタイトルなどもなく規則性もありません)です。 作ろうとしているマクロは、各ページの末尾にそのページで使われている行数分だけ行挿入→そのページのB列をカット&ペーストでA列のお尻に付けるというものです。 各ページの先頭セル/末尾セルを指定するコマンドがわかれば実現できると思うのですが調べても見つけられませんでした。 (ページ関連となると印刷系ばかりで、、) 恐れ入りますが、お教えいただけますでしょうか。
- qoozy
- お礼率73% (31/42)
- その他(プログラミング・開発)
- 回答数1
- ありがとう数6
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- hallo-2007
- ベストアンサー率41% (888/2115)
>作ろうとしているマクロは、各ページの末尾にそのページで使われている行数分だけ行挿入→そのページのB列をカット&ペーストでA列のお尻に付けるというものです。 ページとはシートのことですよね。 だいぶ手抜きですが、 Sub ボタン1_Click() For i = 1 To Worksheets.Count Worksheets(i).Range("B2:B1000").Copy Worksheets(i).Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Next i End Sub Worksheets(i).Range("B2:B1000").Copy は 一枚のシートに最大1000行までデータがあるとしてです。 各シートの末尾の行がわからなくてもたっぷりとコピィして、 貼り付けてしまえば、これで十分かと思います。
関連するQ&A
- エクセルVBAでセル選択
エクセル2000でリストを作成し、VBAで編集しようとしています。 A列に入力されているコードの先頭に「’」をつけて文字列とするための関数をB2のセルからA列のデータが入力されている最後のセルの隣までコピーしたいと思っています。 A列の最終セルを取得するVBAは分かったのですが、その値をB列の選択範囲として使用する方法がわかりません。 エクセルVBAは全くの初心者です。 どなたか教えてください!
- ベストアンサー
- オフィス系ソフト
- VBAで印刷する行数に合わせて改ページを自動指定
お世話になります。 表題の通り、VBAにて印刷する行数に合わせて改ページを自動で指定したいのですが、 どうやればよいのでしょうか? 印刷する行数は毎回異なります。用紙はA4横、印刷範囲はA~U列で列は1ページに収めたいです。 印刷タイトルとして、行タイトル"$1:$7"、列タイトル"$A:$U"が指定してあります。 行の改ページは8行目から13行毎に改ページを入れたいです。 例 総行数50行とした場合、 1ページ目:印刷タイトル+行8~行20 2ページ目:印刷タイトル+行21~行33 3ページ目:印刷タイトル+行34~行46 4ページ目:印刷タイトル+行47~行50 どなたか教えて頂けないでしょうか?
- ベストアンサー
- Excel(エクセル)
- マクロ 指定行数で改ページ 不足行を追加
グループごとに連番を振ってある表があり、 マクロを活用して、指定行数で改ページ印刷をしたいのですが、 やり方がわかりません。 ご存知の方教えていただけますでしょうか。 【表】 Aグループ 1~30の連番 Bグループ 1~25の連番 【やりたいこと】 20行ごとに改ページ印刷 20行未満は空白行を挿入する 【出力イメージ】 1ページ目はAグループ1~20で印刷 2ページ目はAグループ21~30と空白行10行で印刷 3ページ目はBグループ1~20で印刷 4ベージ目はBグループ21~25と空白行15行で印刷
- 締切済み
- Excel(エクセル)
- エクセルVBAで付番をしたい
例えば、 Sheet1のA列に連番で1~10まで番号が振ってあって、作成したコマンドボタンをクリックしてにA列の最後の番号10の次の番号11をセルB1に表示させる方法はありませんか?なにぶん初心者なのでよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 特定のセルに文字が入力されているページの印刷VBA
エクセルVBAで質問が2つあります。 エクセルシートは改ページプレビューでページ毎の印刷範囲が見えるようになっています。 (1)コマンドボックスを押したらE4~E963又はB4~B963のセルに文字が入力されているページのみ印刷するVBAはどの様にすれば宜しいでしょうか? (2)コマンドボックスを押すとインプットボックスが表示され、その中に数字を入力したら、その入力されたページのみを印刷するVBAはどの様にすれば宜しいでしょうか?
- ベストアンサー
- Excel(エクセル)
- Excelでセルを次の行の先頭の列に移動させる方法を教えてください。
Excelでセルを次の行の先頭の列に移動させる方法があれば教えてください。 例えば、A1、B1、C1と順に入力し、C1のセルでEnterキーを押すと次の行の先頭列A2に入力セルが移動されるといった場合です。
- ベストアンサー
- オフィス系ソフト
- VBA 先頭一文字だけ残し、色を無しにしたいです
office365です。 A列に文字が入っており、必ず先頭は何かしらの記号が入っています。 セルには、塗りつぶし書式がかかっている個所があり、色は「黄」で統一です。 A列を検索し、セルに塗りつぶしがされていた場合、そのセルの先頭の文字だけ残して削除し、かつ色無し。 色が塗りつぶしされていないセルは、変化無しです。 という命令を作りたいのですが、どう作ればいいか戸惑っています。
- ベストアンサー
- Excel(エクセル)
- エクセルでつないだセルの結果を先頭のセルにもってこれるのでしょうか?
エクセル上でなのですが、 例えば、A1に『おれたちは』A2に『天使じゃ』A3に『ない』と それぞれ入力してあるセルがあるとして、それらをつないだ結果を 先頭の“A1”に表示することは可能でしょうか? (A1が『おれたちは天使じゃない』となり、A2とA3は空にしたいのです) 別セルに&やらCON…なんとかで結果を出しておいてそれをA1に 形式を選択してペースト…その後A2とA3のセルの内容を削除すればいいのですが、()の作業をする回数があまりに多くいので… しかも、その一連の作業をワンクリックでやりたいのです。 バージョンは2008なのですが、マクロは使えないとのうわさ(?)も 聞いており、結構泣き入っています。 なんとかなりますか?
- 締切済み
- オフィス系ソフト
補足
ご回答ありがとうございます! 質問の仕方が稚拙で申し訳ございません。 ページとはシートではなく、改ページのことでした。 知人に調べていただいたところ 改ページが挿入されているセルは ActiveSheet.HPageBreaksでHPageBreaksコレクションを取得 HpageBreaksのLocation.Addressプロパティで取得できるかも ということでした。今時間がないのですが、後で試してみます。 とは言えVBA初級に至っていないレベルなのでできるか謎ですが、、 ご回答ありがとうございました!