締切済み

python　エクセル

2019/06/27 12:02

openpyxlを使ってブックを開いてシート2の１列目、最終行を選択(そのセルをアクティブに)したいのですがやり方がわかりません。よろしくお願いします。

kuroiningen
お礼率60% (46/76)

Windows系OS
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

みんなの回答

Nobu-W
ベストアンサー率39% (725/1832)

2019/06/27 12:57 回答No.1

https://www.fastclassinfo.com/entry/python_excel ご一読願います・・・　参考になりますか？　＞＜

参考URL：: https://www.fastclassinfo.com/entry/python_excel

質問者

お礼 2019/06/27 13:20

回答ありがとうございます。選択してアクティブにするという部分がこの記事にはなかったので参考にはなりませんでした。

関連するQ&A

エクセル：複数シートの一括処理

お世話になります。エクセルで１つのブックに複数のシートがあります。書式は同じですが行数がそれぞれ違います。Ａ列で、データが入力されている一番下のセルの次の行から、エクセルの最終行である６５５３６行までの行を全て選択して「削除」をしたいのです。（行の削除）しかも全シート一括で。Ａ列でデータが入っている一番下のセルがＡ５５０だった場合、５５１行～６５５３６行までを全て選択→削除を行う。これらの作業をするためのマクロを教えてください。
Excel VBA 値取得について

お世話になります。どなたかお力をお貸しください。 Excel2003 VBAでプログラムを組んでおり、エクセルのシートをデータベース代わりに利用しています。複数のブック散乱している10万個近くのテキストボックスの値を、「Ａ」というブックの「シート１」のセルに格納して行きたいと思っております。値の格納方法としては、「Ａ」ブックの「シート１」のセルＡ１からＡ２、Ａ３…Ａ列最終行（6万強）まで縦の並びにデータを格納していきます。ただし、「シート１」に格納したい値は10万個近くあるので、Ａ列だけでは足りなくなります。Ａ列の最終行まで値を格納し終えたら、自動的にＢ列に移動して、セルＢ１からＢ２、Ｂ３…Ｂ列最終行（6万強）という遷移させていきたいのです。Ａ列のみに格納していくのであれば、理解できるのですが、自動遷移がわかりません。 For i = 0 To 最終行（6万強）シート1.Range("A" & i) = 参照元 Next i よろしくお願いします。
エクセルについての質問です。

エクセルについての質問です。ＢＯＯＫ1、ＢＯＯＫ2、ＢＯＯＫ3のエクセルデータがありＢＯＯＫ1をメインと考えてＢＯＯＫ2、ＢＯＯＫ3のシートの指定したセル（たとえばシート1のＡ列1、2、3行Ｂ列1、2、3行Ｃ列1、2、3行）からデータをＢＯＯＫ1のシート1にその部分のデータを取り込む方法が知りたいです。色々と調べてみましたがわかりません。初心者ですのでご教授お願いします。宜しくお願いします。
【再】エクセル2013 マクロをご教示ください

Sheet1で選択しているセルの行をSheet2に転写したいです。 Sheet1とSheet2の4行目に見出し。 Shet1にはA～U列までデータがあります。(途中空白セルの場合もあり) Sheet1の5行目以降の、あるセルを選択してマクロを実行すると Sheet1のC～S列までをSheet2のA～Q列へコピペしたいです。 Sheet1は　H列に必ずデータがあるのでそれらを最終行の判断基準とします。 Sheet1での選択セルは複数の場合もあります。ただし、同じ行のセルを複数選択しても Sheet2への貼り付けは1行とします。マクロを実行する度に、Sheet1での選択セルの該当行が Sheet2へ追加されるようにしたいです。 (Sheet2へコピペされたデータは残します) また、Sheet2への貼り付け内容が同じだった場合は注意喚起のため　メッセージで　「重複データが存在します」を表示したいです。重複の判断基準はSheet2の　B、D、F列とします。宜しくお願い致します。
Excelのセルのコピー　マクロ

一つのBookに複数のワークシートが入っています。それぞれのワークシートのセルのA1からそれぞれのワークシートの A列に値が入っています。（ワークシートの最終行はそれぞれ違います。）それぞれのワークシートのA1の値を、ワークシート毎に最終行までコピーしたいのですがどのようなマクロを組めばよいでしょうか？ A1の値は、ワークシート毎に異なっています。
エクセルで入力済みのセルのみ見つけて・・

エクセルで入力済みのセルだけを見つけ出して、指定した場所に並べる作業をマクロで１発で出来るようにしたいのですが、その方法を教えてください。シートが３７シートあります。（sheetA1～sheetA12,sheetB1～sheetB12,sheetC1～sheetC12,sheet37）それぞれセルＣ５からＣ２０まで数値が入っていますが、最終行はＣ２０とは限りません。(sheet37はまとめるためのシートで空白）Ｃ１５が最終行の場合もあれば、Ｃ１８が最終行の場合もあります。各シートそれぞれ最終行が違います。（列は同じですスタートもＣ５です）各シートのＣ列の入力済みのセルの数値をsheet37のＢ１セルから順番に縦に並べたいのです。 A,B,Cのシート順にＣ列に入力された数値を縦に並べます。空白は無しで詰めて並べます。これを１回の作業でできるマクロを教えてください。それから入力済みの最終行を見つけ出すマクロの部分を表示して頂けるとありがたいです。宜しくお願いします。
Excel

A.xlsとB.xlsの２つのブックがあります。 A.xlsのSheet1のB2セルに文字列が入っています。その文字列にはJ3など列と行の組み合わせの値になってます。このA.xlsのSheet1のB2のセルの文字列を使ってB.xlsのSheet1の上記のB2に書かれた位置のセルの値を取得したい。これを実現するにはどうすればいいですか？ご教授お願い致します
エクセルマクロ：指定シートは外した全てまとめる

エクセルのブック内にある全てのシートを一つのシートにまとめたいのですが、２点ほど困っている部分があり、助けて頂けますと幸いです。 (1)シートをまとめる際に除きたいシートがある。シート名『検索』『目次』など。 (2)まとめたい部分がA1セルからではなくて、B5セルから最終行と最終列の部分をまとめたい。 B5から見出しが始まって、その下部分そ全てまとめたい。まとめたシートは見出しの部分を入れ込んで、全て見れる様にしたいです。色々調べたのですが、どうしても上記に対応しているマクロが無かったため、ご質問をさせて頂きました。ご回答を頂けますと大変助かります。
エクセル最終行の下に貼り付け

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

急ぎの回答です！！関数式の入っているセル（空白表示）を印刷範囲に入れずに印刷する方法を教えてください。別シートのデータを関数で引っ張てきてひな形のセルに表示しています。行→$1:$6 列→$A:$Agは印刷タイトルに設定。Ａ列7行目から1.2.3... とNo.が入っており、Ｂ.～Ｊ. 列7行目からはデータが最終の50まで入力してます。（関数式=IF(COUNTIF(コード,$S$1)<ROW(A1),"",OFFSET([元リスト.xlsx]商品一覧!A1,MATCH($S$1,コード,0),1)) ）Ｋ.～AG.列7行目からは書式データ（同じ文面の繰り返です。最終の50まで入っています）Ｂ～Ｊ列の7行目から関数（データ）=IF(COUNTIF(コード,$S$1)<ROW(A1),"",OFFSET([元リスト.xlsx]商品一覧!A1,MATCH($S$1,コード,0),1))をコピぺと一部を変更しセルへ入力して別シートからデータを引っ張てきてます。この関数だと該当する値がない場合はセルは表面上は空白セルに見えますが、セルには数式が入っている状態です。セルデータの最終行を習得し印刷に設定すると関数入力されているところで最終行と認識し、関数式を入れている50行まで印刷してしまいます。したいことは、データが表示されている30行までなら30行まで印刷という感じにはできないでしょうか？シートを様式一枚ずつ作成しており、1ブックには20シートずつ保存しています。そしてこのブックはおよそ30ブックあります。 1ブック内の全てのシート（20シート）に反映できるようしたいです。 ※30行までデータが表示されている場合、C～Ｊには途中とちゅうで空白欄がありますが、Ｂ列は30行全てデータの表示（該当する場合）されます。 Excel マクロ VBA に詳しい方回答お願いします！ B７からはB56まですべて関数式を入力しています（最大50までデータが表示されるように）シート枚数と、元のデータ数が行で7000程とかなり多く、このような関数式になりました。できればマクロ、VBA等での処理が望ましいです（時間がないので＞＜）よろしくお願いいたします！！！
Excel VBA 他のシートからセル範囲をコピー

宜しくお願いします。 Excel2003でVBAを利用しています。他のブック内にある（sheet1）のセル範囲（B9:D64)の値を現在開いているブック内の（sheet8)の指定した位置に貼り付けたいと思っています。コピーしたセルはB,C,Dと3列あるのですが、 B列を（sheet8）のB列に、C列を（sheet8）のF列に、 D列を（sheet8）のJ列のそれぞれ12行目を頭にして貼り付ける、という作業をしたいのです。上記のようなコピー作業が、列や行がばらばらで50箇所くらいあります。マクロ記録で、２，３箇所試しにやってみたのですが、 1列づつ、クリップボードを経由して行わなければならず、冗長なコードになってしまい、もっと良い方法があるのではないかと思い、書込みしました。現在のコードです。 workbook(1).Activate 'コピー元のセルを選択してクリップボードへ Worksheets(sheet1).Range("B9:B64").Copy '1枚目　日付列 '現在のブックを選択して貼り付け ThisWorkbook.Activate Range("B12").Select '1枚目　日付列 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '形式を選択して値を貼り付け上記のように、1列づつコピーしては貼り付けている状態です。もっとスマートな方法がありましたら教えてください。宜しくお願いします。
イベントプロシージャについて（エクセル）

あるエクセルのブックの全てのシートに適用されるようなイベントプロシージャを作りたく思っています。１、あるセルをダブルクリックする２、そのセルが含まれている行を選択する３、メッセージボックスで「現在の行を削除する」　旨の確認を求めて　「はい」ならば削除　「いいえ」なら何もしない１、あるセルをシングルクリックする２、そのセルが含まれている行を選択する３、メッセージボックスで「現在の行をコピーして　　自身の一つしたの行に挿入する」　旨の確認を求めて　「はい」ならば実行　「いいえ」なら何もしないという二つのモノを作りたく思っています自分で色々ＨＰを見たり　書籍も見てみたのですがなかなかわかりませんでした「ブック上での全てのシートで適用される」という記述はどうしたらよろしいのでしょうか？皆様よろしくお願いします
EXCEL VBAで複数のシートの中から該当値を検索する方法について

すいません、EXCEL　VBAで複数のシートの中から該当する値を検索する方法について教えていただきたいことがあります。　　　　　Sheet1　　　　　　　　　　　　A列　　　B列　　C列　　 1行　　11　　りんご　　31　 2行　　12　　バナナ　　32　 3行　　13　　みかん　　33　 4行　　14　　ぶどう　　34　　・　　　・　　　・　　　　　・　　　　　　　Sheet2　　　　　　　　　　　　A列　　　B列　　C列　　 1行　　31　　すいか　　11　 2行　　32　　レモン　　12　 3行　　33　　パイン　　13　 4行　　34　　ざくろ　　14　　・　　　・　　　・　　　　　・というデータが入っているブックについて「全部のシートを検索し、A列に11の値が入っているセルの行数及びその行のB列の値」をSheet1のD1セルとE1セルにそれぞれ返す方法はどうしたらよろしいんでしょうか。 For Each を使うのではないかと思って色々やってみたのですが、どうも上手く作動してくれません。よろしくお願いいたします。
エクセルで、「開く」「保存」に30秒かかる

　エクセルで約80シート使っている1つのブックが、とても重く(動作が遅く)なってしまったので、軽くしたいのです。　ファイルを開くと約30秒、保存するのも約30秒かかってしまうのです。重く(動作が遅く)なった原因は、セルの「塗りつぶし」を80シートを一度にした事だと思います。　どうすれば、この状態を改善できるでしょうか？　1シート毎に印刷すればA4サイズになる書類で(全シート同じレイアウト)、60行×I列で空白セルが多く、そのブックのファイルサイズは769KBです。　これからもそのブックはよく使いますし、書類は増えていきます。
Excelで集計

Excelで請求書を作っています。この請求書の集計表を自動的に別シートもしくは別ブックに作成されるようにしたいのですが、可能でしょうか？具体的には以下のような具合です。 1.請求書の雛型があり、金額、各項目を入力し「名前をつけて保存」で保存していく 2.金額、各項目を別シートもしくは別ブックに自動的に作成されていく私のレベルでは例えば「sheet1」のセルA1に何らかの文字列が入るとsheet2のセルA1に同じものが作成されるが、もし、sheet2のセルA1に何らかの文字列が存在する場合、次の行（sheet2のセルA2）に作成され、さらにsheet2のセルA2にも何らかの文字列が存在したらさらに次の行…、といった感じなのですが、何か良い方法はないでしょうか？ちなみにマクロやAccessはさっぱり分かりません。Excelで関数を駆使して出来る範囲でお願いします。分かりにくい点があるかもしれません。その際はどしどし補足要求してください。
エクセル　VBA　find　は別シートを検索できますでしょうか？

こんばんわ。マクロ初心者です。皆さんいつも親切なご回答ありがとうございます。早速ですが質問内容を記入いたします。・ブックA　を開いています。選択している行のC列セルの値を検索キーワードにして、ブックB　内を検索し、検索結果のセルの３つ左のセルの値を、ブックA　で選択していたセルの同じ行のO列（15列目）に入力したいです。 ※ブックBをアクティベートする事無く行えますでしょうか？（他の処理と組合わせて行い、回数も多いので、　ブックA⇔ブックB　アクティベートの往復は避けたいです。）下のようなマクロを作成してみましたがうまくいきません。どうかご指導よろしくお願いいたします。 --------------------------------------------------------------- dim 検索品目 as string dim fcell as object dim i as integer i = Selection.Row '選択行の3列目セルの値を変数『検索品目』に格納検索品目 = Cells(i, 3).Value 'オブジェクト変数『fcell』に検索したセルを格納 Set fcell = Cells.Find(What:=検索品目, After:=Workbooks("ブックB.xls").Worksheets("sheet1").Range("G2"), LookAt:=xlWhole, searchorder:=xlByColumns) '検索したセルの3行左のセルの値を変数『オーダ番号』に格納オーダ番号 = fcell.Offset(, -3).Value 'ブック A　の選択行の15列（O列）にデータ入力 Cells(i, 15) = オーダ番号
至急お願いします。エクセルのマクロに関してです。

かなり至急です＞＜エクセル2010のマクロの質問です。 2つ質問があります。 1つ目です。以下の一連の作業を1つのマクロで行いたいのですが、どうしたらいいでしょうか？現在は、シート1にデータがあります。 (1)選択した3列を、B~D列に移動する (2)B列に含まれるセルのうち、0（空白）でないセル数分だけシートを追加する。 (たとえば、シート1のB14~B18に数字がはいっていたら、シートを5枚追加するという感じです。) (3)B列に含まれるセルのうち、0（空白）でないセル数分に対し、2行ずつ各シートの3・4行目にコピーする。 (たとえば、シート1のB14~B18に数字がはいっていたら、シート2の3・4行にシート1の14・15行のコピーを貼り付け、シート3の3・4行にシート1の15・16行のコピーを貼り付け、シート4の3・4行にシート1の16・17行のコピーの貼り付ける・・・という感じです。) 現在は (1)Sub () Selection.Cut ActiveCell.Columns("A:C").EntireColumn.Select Selection.Cut Columns("B:B").EntireColumn.Select Selection.Insert Shift:=xlToRight End Sub (2) Sub Macro() Dim n As Long For n = 14 To 18 ' Sheets.Add Next End Sub (3) Sub Macro() Dim n As Long For n = 14 To 18 ' Sheets("Sheet1").Rows(n & ":" & n + 1).Copy _ Sheets("Sheet" & n - 252).Range("A3") Next End Sub と別々のマクロに分けてます。また(2)(3)でみられる For n = 14 To 18 ' の部分の数字は手動でいれてますが、かなり時間をくってしまうので・・・。 2つ目です。複数ブックに同じ動作をするエクセルのマクロが知りたいです。現在100ほどブック(Book1~100)を開いていて、100のブックすべてのSheet1のA1のセルに「１」と入れたいのですが、そのようなマクロはどうくんだらよろしいでしょうか。ちなみにExcel2007です。困っているので、お願いします。
エクセルVBAで指定したセルへジャンプするコード

こんにちは。ファイル内の各シートのセルに順にジャンプするVBAのコードを教えていただけないでしょうか。以下のような条件や構成にしたいと考えています。・「操作ブック」と名づけたファイルに「設定」シートをつくり次のようにする A列B列の2行目以下に「シート名」「セル番地」を入力し、ジャンプするセルを入力 (例) A B←うまく表になりませんがB列がセル番地です Sheet1 E9 Sheet1 U7 Sheet2 S2 ・ジャンプする先は「操作ブック」内ではなく、開いている“もうひとつのブック内”の各シート・ジャンプして選択したセルに一時的に色をつけ、次に進む時は色を元に戻す(難しいのであれば結構ですが、できればすごくうれしいです) ・「設定」シートに入力した上から下に順にジャンプする。ジャンプする前にメッセージで、「次に進みますか？」と聞き、「はい」で次のセルにジャンプするという設定にしたいのですが、マクロでジャンプの記録をとってみましたが、私にはとてもできない記述なので、教えていただきたく参りました。よろしくお願いします。
エクセルで1列置きに書式変更

お世話になります。シートの特定の範囲のみセルの書式を変えたいと思っています。具体的にはシートの一部について 1行置きに書式を変えたいです。但し、1行置きとは言っても一部は変えたくない場所があります。現状は変更したい範囲を手動で飛び地で選択し、まとめて変更しています。これを簡潔にできないでしょうか？現状の表は以下の様な感じです　　　　　A列　　　　B列　　　　C列・・・・ 1行目 2行目 3行目・・・この内１・３・５・・・・の行について書式を変更したいのです。ただし、A列についてはセルを結合していることもあり変更はしたくありません。また、このシートにはいくつかの表が混在しています。それらの表それぞれについて1行置きに書式を変えたいと思っています。したいことを一言で言うと・変更したいセル範囲を手動で選択する。・その後、なんらかの方法（マクロ？）にて選択したところの書式を1行置きに変える。こういうことは可能でしょうか？
エクセル：マクロの起動条件

お世話になります。以下の条件でのマクロを起動する方法、及びそのマクロを教えてください。《条件》ブックを開いた時、あるシートのＣ列でデータが入っている最下行の行番号とＡ列のデータが入って最下行の行番号の差が１００以下だった場合、マクロを実行する。（なおＣ列の行番号の方が必ず大きいです）ちなみに実行したいマクロは１～６の手順です。１．ブックを開いたとき２．「入力用」という名前のシートのＣ列でデータが入っている最下行の行番号とＡ列のデータが入っている最下行の行番号の差が１００以下だった場合３．「入力用」というシートにかかっているシートの保護をはずし４．データが入っているＣ列の最下行のＡ～Ｚ列を選択して、５０行分　下にコピーする。　（例えば、Ｃ列の最下行が３５０行の場合、Ａ３５０～Ｚ３５０まで　を選択したあと４００行まで下にコピーする。）５．再度シートの保護をかけ６．Ａ列でデータが入っている最下行の１つ下のセルを選択するちなみに、２の条件に当てはまらないときはマクロを実行しません。またＣ列の最下行よりＡ列の最下行が大きい数字になることはないはずですが、もし同じかＡ列の方が大きい場合、「エラー：Ｃ列よりＡ列が大きくなっています」と画面に表示させたい。なお、行番号の差：１００、選択するＡ～Ｚ行、５０行分下にコピー　は変わる可能性があるので、修正する場合どの部分を修正すればよいかも教えてください。よろしくお願いします。

python　エクセル

みんなの回答

お礼 2019/06/27 13:20

関連するQ&A

エクセル：複数シートの一括処理

Excel VBA 値取得について

エクセルについての質問です。

【再】エクセル2013 マクロをご教示ください

Excelのセルのコピー　マクロ

エクセルで入力済みのセルのみ見つけて・・

Excel

エクセルマクロ：指定シートは外した全てまとめる

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

Excel　マクロ・VBAの印刷方法について

Excel VBA 他のシートからセル範囲をコピー

イベントプロシージャについて（エクセル）

EXCEL VBAで複数のシートの中から該当値を検索する方法について

エクセルで、「開く」「保存」に30秒かかる

Excelで集計

エクセル　VBA　find　は別シートを検索できますでしょうか？

至急お願いします。エクセルのマクロに関してです。

エクセルVBAで指定したセルへジャンプするコード

エクセルで1列置きに書式変更

エクセル：マクロの起動条件

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

python エクセル

みんなの回答

お礼 2019/06/27 13:20

関連するQ&A

エクセル：複数シートの一括処理

Excel VBA 値取得について

エクセルについての質問です。

【再】エクセル2013 マクロをご教示ください

Excelのセルのコピー マクロ

エクセルで入力済みのセルのみ見つけて・・

Excel

エクセルマクロ：指定シートは外した全てまとめる

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

Excel マクロ・VBAの印刷方法について

Excel VBA 他のシートからセル範囲をコピー

イベントプロシージャについて（エクセル）

EXCEL VBAで複数のシートの中から該当値を検索する方法について

エクセルで、「開く」「保存」に30秒かかる

Excelで集計

エクセル VBA find は別シートを検索できますでしょうか？

至急お願いします。エクセルのマクロに関してです。

エクセルVBAで指定したセルへジャンプするコード

エクセルで1列置きに書式変更

エクセル：マクロの起動条件

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

python　エクセル

Excelのセルのコピー　マクロ

Excel　マクロ・VBAの印刷方法について

エクセル　VBA　find　は別シートを検索できますでしょうか？

カテゴリ
一覧

専門家に質問してみよう
専門家登録