2022.8.4  3

エクセルマクロ(EXCEL VBA) その13 最終行を取得する



舞台・演劇の制作業務はなるべく自動化してパソコンにやってもらおう企画

 

表の最終行を取得する

 

変数に慣れてきましたでしょうか?

変数という箱に何かの数値や文字列を入れることができると分かったので、今回は表の最終行を取得するということに挑戦します。

というのは、For Nextで繰り返し作業を仕込む時にこれまでは、
2 to 4 のように、最終行を具体的な数字で書き込んでいました。

短い表だったら見ればわかるのでいいんですが、顧客リストなどではとても長い行になる場合があります。
また、途中で行を挿入したりすると、最終行の数が変わっちゃうことになっていちいちマクロを打ち直すのが面倒です。

ということで、表の最後の行がわかると(取得できると)便利なので、今回はそれをやってみましょう。

 
例えばこういうリストがあったとします。

このように、A1にカーソルがある場合、Ctrl+↓ を押すと、A6まで飛んでくれます。
A1はCells(1, 1)なので、これをマクロで表現するには、

Sub saishugyo()
Cells(1, 1).End(xlDown).Select
End Sub

と書きます。

Ctrl+↓の書き方

これを実行すると、確かにA列の最後の行であるA6を選択してくれます。
しかしこれだと、たまたま空行がリストにあった場合、そこに飛んでしまうので、本当の最後の行まで行くことができません。

 
ということで、まずはエクセルの最後の行まで飛びます。
マクロで書くと、

Cells(Rows.Count, 1).Select

この Rows.Countというのは、「このシートの全ての行の数」という意味です。
つまりこれを実行すると、A列の最後の行(僕の環境では 1048576行)に飛びます。

本当の最後の行まで行けたので、Ctrl+↑で、リストの最後の行に飛びましょう。
マクロで表現すると、End(xlUp)を追加して

Cells(Rows.Count, 1).End(xlUp).Select

と書いてください。

解説

本当の最終行から、Ctrl+↑で戻って、選択。

ってことですね。

A6が選択できた

 
ということで、狙い通りA6が選択できたのですが、最終行の行番号である「6」を取得するにはどうしたらいいでしょう。

今は、.Selectで選択してたわけですが、ここを.Row に書き直してください。

Cells(Rows.Count, 1).End(xlUp).Row

これで行番号が取得できたはずです。
でも、これで実行するとエラーが出ちゃいますので、この取得した数をE1に入れてみましょう。
E1は、Cells(1, 5)ですので、

Cells(1, 5) = Cells(Rows.Count, 1).End(xlUp).Row

としてみましょう。

E1にA列の最終行数を入れる

これを実行すると

E1に6と入った

無事にE1に「6」と入れることができました!

ということは、B列の最終行を取得すると、きっと「3」になるはず・・・。

Cells(1, 5) = Cells(Rows.Count, 2).End(xlUp).Row

と、変更してみましょう。

B列に変更

これを実行すると

B列の最終行が取得できた

ちゃんと3になって、B列の最終行がうまく取得できていることがわかりました。

ちょっと長いんですが、

Cells(Rows.Count, 1).End(xlUp).Row

これで、「A列の最終行が取得できる」と覚えておいてください。

この「Cells(Rows.Count, 1).End(xlUp).Row」は、For Nextの中でそのまま使うことができます。
例えば、2行目から最終行までと設定したい場合は、

For 2 To Cells(Rows.Count, 1).End(xlUp).Row

と書けばよいということです。

例えば、この「A列の最終行を取得できるコード」を、変数 lastRow に入れておくと、

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

この後のコードには、lastRow と書くだけでいいので便利です。

 

宿題-13

同じ表で、D列に、
オーブ(1972)
帝国劇場(1897)

となるように、For Nextを使って表現してください。
文字列の結合は、その6で説明していますので、ご参照ください。

 

▼ クリックで解説を表示

 



もくじ(エクセルマクロ EXCEL VBA)

  

演劇の制作さんへ

→ 他にどんな作業ができたら便利か思いついたらぜひ教えてください!(うまく実現できるかわからないけど・・・。)
http://entre-news.jp/contact
 

 
(文:森脇孝/エントレ)

 

最近の記事

妄烈キネマレコード『カムバック・トゥ・ザ・フユちゃん!』フライヤー
【名古屋】過去と現在、そして未来を繋ぐ10周年記念公演 妄烈キネマレコード『カムバック・トゥ・ザ・フユちゃん!』4月8日(土)から名古屋市東文化小劇場にて上演
5
公演日程 04月08日(土) 〜 04月09日(日)
動物電気30周年記念公演 観客に大笑いしてもらえるようにバカバカしさと人間臭さを突き詰める!『念力!山動く』6月3日(土)から東京・山梨で上演
13
公演日程 06月03日(土) 〜 06月17日(土)
犬儒派リーディングアクト『林檎とセーラー服』チラシ
犬儒派リーディングアクトの新作『林檎とセーラー服』 4月28日(金)からアトリエ三軒茶屋にて上演
5
公演日程 04月28日(金) 〜 04月30日(日)
ミュージカル『SPY×FAMILY』製作:東宝 ©遠藤達哉/集英社
スピード感のある演出とおしゃれな音楽が素敵! ミュージカル『SPY×FAMILY』観劇レビュー
5
公演中 03月08日(水) 〜 05月21日(日)
カミーユ・クローデル没後80年記念公演「ガラテイア」
カミーユ・クローデル没後80年記念公演 幻想芸術集団 Les Miroirsによる舞台『ガラテイア』5月6日(土)に静岡県立美術館にて無料公演
3
公演日程 05月06日(土) 〜 05月06日(土)
写真上段左から︓藤崎卓也、武田知大、咲山類/下段左から︓大薮丘、大野朋来、高田安男(川上和之)
「泣きすぎて、終演後すぐには立ち上がれなかった」と評される三ツ星キッチンの人気作『LOVE』6月14日からザ・ポケットで上演
11
公演日程 06月14日(水) 〜 06月18日(日)
劇団☆新感線『ミナト町純情オセロ~月がとっても慕情篇~』 撮影:田中亜紀
三宅健、松井玲奈、寺西拓人らと劇団員で作り上げる新境地 劇団☆新感線『ミナト町純情オセロ~月がとっても慕情篇~』が開幕/東京公演は3月28日まで
152
公演中 03月10日(金) 〜 05月01日(月)
ガラ劇『ファンタスマゴリ2』
2019年杉並演劇祭で大賞を受賞した劇団「ガラ劇」による珠玉の短編集『ファンタスマゴリ2』3月15日(水)より阿佐ヶ谷シアターシャインにて上演
11
公演終了 03月15日(水) 〜 03月19日(日)
KAAT神奈川芸術劇場プロデュース『掃除機』
岡田利規の話題作を本谷有希子が演出 舞台『掃除機』がKAAT神奈川芸術劇場<中スタジオ>で開幕/3月22日まで
4
公演終了 03月04日(土) 〜 03月22日(水)
ゲキ×シネ『神州無頼街』Blu-ray
福士蒼汰・宮野真守 特別対談など合計3時間におよぶ豪華特典付き! 劇団☆新感線『神州無頼街』Blu-ray 3月6日からイーオシバイで予約開始/5月19日発売
66
RISU PRODUCE『僕らが見た東京の空は』
様々な理由により東京で暮らし始めた若者達の「上京物語」 RISU PRODUCE『僕らが見た東京の空は』4月19日(水)から赤坂RED/THEATERで上演
11
公演日程 04月19日(水) 〜 04月23日(日)
『関西演劇祭 in Tokyo』
関西演劇祭で最優秀賞を受賞した「激団リジョロ」など6劇団が参加! 『関西演劇祭 in Tokyo』3月21日(火・祝)から新宿シアタートップスで開催
17
公演中 03月21日(火) 〜 03月26日(日)
溺れた魚の水揚げ式 第伍回公演『ジョンソン』
THE ROB CARLTONの村角太洋の新作書下ろしのラブコメディ! 森光冬、鈴木ありさ出演 溺れた魚の水揚げ式『ジョンソン』3月4日、5日にシアターカフェ信天翁で上演
12
公演終了 03月04日(土) 〜 03月05日(日)
創像工房 in front of. 2月公演『プレイヤ』
これより学級裁判はじめます 創像工房 in front of. 2月公演『プレイヤ』2月23日(木・祝)から慶應義塾大学日吉キャンパスで上演
8
公演終了 02月23日(木) 〜 02月25日(土)
劇団壱劇屋『6人の悩める観客』
小劇場演劇を観劇する6人のお客を観るお芝居? 劇団壱劇屋「Re:play」01『6人の悩める観客』3月3日(金)から大阪・in→dependent theatre 2ndで上演
12
公演終了 03月03日(金) 〜 03月05日(日)
©オフ・ブロードウェイミュージカル『Ordinary Days』/撮影:真来こはる
相葉裕樹主演 失敗してもまたたぐり寄せる幸せ ミュージカル『Ordinary Days』
27
公演終了 02月08日(水) 〜 02月18日(土)
ブロードウェイ・ミュージカル『ドリームガールズ』
大納得のキャストで日本初演!望海風斗主演、ブロードウェイ・ミュージカル『ドリームガールズ』観劇レビュー
63
公演中 02月05日(日) 〜 03月26日(日)
舞台『笑の大学』
内野聖陽×瀬戸康史 伝説の作品がついに復活! 舞台『笑の大学』2月8日(水)からPARCO劇場を始め合計8都市で上演
45
公演中 02月08日(水) 〜 04月21日(金)
舞台『ケンジトシ』
中村倫也・黒木華が舞台初共演で描く「宮沢賢治と妹トシ」の物語 『ケンジトシ』2月7日(火)にシアタートラムで開幕
269
公演終了 02月07日(火) 〜 03月10日(金)
舞台『トムラウシ』
和太鼓が鳴り響く!《トムラウシ監獄》で繰り広げる数々のエンターテイメント 舞台『トムラウシ』が自由劇場で開幕/2月12日(日)まで
23
公演終了 02月04日(土) 〜 02月12日(日)
『MEAN GIRLS』会見より
演出家とのディスカッションを重ね 生田絵梨花主演『MEAN GIRLS』開幕
38
公演終了 01月30日(月) 〜 02月27日(月)
マグマ∞「南四局は終わらない」
青年座のベテラン俳優たちが集結して新ユニットを結成! マグマ∞『南四局は終わらない』浅草九劇で2月1日(水)に開幕/上演は12日(日)まで
13
公演終了 02月01日(水) 〜 02月12日(日)
『舞台・エヴァンゲリオン ビヨンド』出演者
窪田正孝、石橋静河らの出演でエヴァを舞台化 『舞台・エヴァンゲリオン ビヨンド』5月6日(土)からTHEATER MILANO-Zaで上演
8
公演日程 05月06日(土) 〜 06月19日(月)
三浦涼介、鳥越裕貴、平野良らが豪華共演! CCCreation Presents 舞台『桜姫東文章』5月3日(水)から新宿スペース・ゼロで上演
37
公演日程 05月03日(水) 〜 05月10日(水)
月影番外地その7『暮らしなずむばかりで』 撮影:田中亜紀
素通り出来ない台詞だらけ! 高田聖子の月影番外地その7『暮らしなずむばかりで』下北沢ザ・スズナリで上演中/1月29日まで
4
公演終了 01月18日(水) 〜 01月29日(日)
劇団☆新感線『ミナト町純情オセロ~月がとっても慕情篇~』製作発表より 撮影:田中亜紀
三宅健、松井玲奈、寺西拓人ら 新たな挑戦に意欲 劇団☆新感線『ミナト町純情オセロ~月がとっても慕情篇~』製作発表レポート
182
公演中 03月10日(金) 〜 05月01日(月)
『Dear Me!』出演者インタビュー
川崎のとある夜間保育園で繰り広げられる、ドタバ タな親たちと、それに振り回され続ける保育士たちの物語。青春事情・大野ユウジ氏 の珠玉作『Dear Me!』出演者インタビュー ラゾーナ川崎プラザソルで1月22日から上演!
22
公演終了 01月21日(土) 〜 01月29日(日)
青春事情『キレナイ』初演
川崎のとある美容院で繰り広げられる、何かと“キレナイ”思いを抱える人たちを描く 青春事情・大野ユウジ氏の珠玉作『キレナイ』出演者インタビュー ラゾーナ川崎プラザソルで1月21日から上演!
20
公演終了 01月21日(土) 〜 01月29日(日)
骸骨ストリッパー calavera box vol.7 美女と池袋の怪異譚 『フクロウとネコ』
カフェ公演ならではの空気感を味わおう 骸骨ストリッパー calavera box vol.7 美女と池袋の怪異譚 『フクロウとネコ』1月27日(金)から池袋Honey Beat Studioで上演
1
公演終了 01月27日(金) 〜 01月30日(月)
青年座『時をちぎれ』
土田英生書き下ろし新作 室町幕府を偏愛する社長とその会社を描いたコメディ! 青年座『時をちぎれ』1月20日(金)から東京芸術劇場シアターウエストで上演
13
公演終了 01月20日(金) 〜 01月29日(日)

 ≫もっと見る
 

編集部ピックアップ!

エントレがおすすめする他の舞台



Copyright 2023 Village Inc.