• 締切済み

ページ追加方法 について VBA

noname#252888の回答

noname#252888
noname#252888
回答No.1

VBAでやりたい事なんてググれば大抵出て来ますよ。 貴方がしたいのは このサイトの中盤に有る「特殊な表の場合」のケースですね。 https://excel-ubara.com/excelvba4/EXCEL222.html

beeeeyan
質問者

お礼

回答ありがとうございます。 そちらのサイトは存じております。 私の説明が悪く分かりづらくて申し訳ありませんが、調べても分からないので聞いております 最終列を取得する、used～などネットにあるものは色々試しているのですが細かいところが理解できないのでお尋ねした次第です

この回答がついた質問に戻る
回答 全件
No.1,2です。 No.3さんが答えだしてくれたので 私は組みませ…
  • noname#252888
    noname#252888
https://okwave.jp/qa/q9643009.html …
なるほど。 じゃあ今日の夜にちょっと家で組んでみますかね。 夜回答しま…
  • noname#252888
    noname#252888
  1. カテゴリ
  2. ビジネス・キャリア
  3. 職種
  4. SE・インフラ・Webエンジニア

関連するQ&A

  • エクセルのＶＢＡで

    ある列（仮にＡ列とします）の最終行がＡ３０であり Ａ２５までは空白だとします。 この時に、Ａ３０の値をＡ２９～Ａ２５＝データの入力されていないセルに入力（コピー）するにはＶＢＡでどのように記述すればいいのでしょうか？ 最終行から、上にその最終行の値をデータの入力されているセルに達するまで入力（コピー）したいのですが。 分りづらい表現で申し訳ありませんが、よろしくお願い致します。

  • VBA 一つのシートにまとめる

    下記の条件でVBAではどうすればいいのか、教えて頂けませんでしょうか・ TEST1.xls TEST2.xls TEST3.xls ・上記には、それぞれDATA1シートとDATA2シートがあります。 ・このうち、3つのブックのDATA1シートのB列からT列の２行目から最終行までを、matome.xlsのmatomeシートの最終行から追加していきたいのです。 仮に、matome.xlsのmatomeシートの最終行（データがある行）が50行目だった場合、 TEST1.xlsのB列からT列の２行目から最終行を51行目に貼り付け、それが75行目までだったとすると、TEST2.xlsのB列からT列の２行目から最終行のデータは76行目からといった感じです。 わかりづらくて申し訳ありませんが、よろしくお願い致します。

  • vbaで・・・

    vba初心者でよろしくお願いします。 vbaで別のシートにある、条件に一致したデータの入っているセルの一つ下のセルから横方向に空白のひとつ前までを選択し、コピーをしたいのですが・・・具体的には 別のシートにある、 あ　あ　あ　あ　空白　い　い　い　い　空白 １　２　３　４　空白　５　６　７　８　空白 の、最初の"い"の下のセル（つまり"５"のセル）から横に空白のセルまでをコピーして、さらに、列と行を入れ替えて別のシートにコピーしたいのですが、ちんぷんかんぷんです。 どなたか力を貸して下さい。お願いします。

  • 不規則エリアの連続計算方法（VBA)

    度々お世話になっております。 エクセルVBA勉強中の初心者です。 現在、下記のような数値データが入力されています。 処理したいのは、 A列・・・・・・・・・・・・処理後B列 1行目　空白・・・・・・空白 2行目　1・・・・・・・・・・・1 3行目　2・・・・・・・・・・・2 4行目　3・・・・・・・・・・・3 5行目　4・・・・・・・・・・・4 6行目　5・・・・・・・・・・・5 7行目　空白・・・・・・空白 8行目　1・・・・・・・・・・・6→第一エリア目の最終行と足し算 9行目　3・・・・・・・・・・・8→同上 10行目　4・・・・・・・・・・・9→同上 11行目　6・・・・・・・・・・・11→同上 12行目　空白・・・・・・空白 13行目　2・・・・・・・・・・・13　→第二エリア目の最終行と足し算 14行目　4・・・・・・・・・・・15　→同上 15行目　7・・・・・・・・・・・18　→同上 　・　　　　　　　　 　　　　　　　・ 　・　　　　　　　　　 　　　　　　・ 各エリアは、各1000行程度、エリアの数は、10～20になるため、どうしてもVBAで処理したいと考えております。 （空白～空白をエリアと名付けています。） 各エリアの数、行数ともに区々ですが、最大値を迎えた後、空白行が必ず入るようにデータが入力されています。 このようなデータをVBAで処理したいのですが、可能なのでしょうか？ 参考書、過去ログなどを見てあれこれやってみたのですが、パニック状態です。 わかりにくい質問で恐縮ですが、良い方法をご教授いただければ幸いです。 宜しくお願いいたします。

  • 複数列を１列に表示させて追加する方法。

    どなたかご存じでしたらご回答をお願いします。 エクセルシートのＡ列～Ｊ列に値が入っており、それぞれの最終行に値を追加しております。 【質問】 　Ａ列～Ｊ列まで値の入ったエクセルシート（各種値）を別エクセルシート（纏め）のＡ列に 　１つに纏め、エクセルシート（各種値）のＡ列～Ｊ列の最終行に追加されるたびに 　エクセルシート（纏め）の最終行に追加する方法が知りたいです。 ●エクセルシート（各種値） 　Ａ　　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ　　Ｇ　　Ｈ　　　Ｉ　　　Ｊ　 　　　　　　　　　　　　　　： 　111　222　333　444　555　666　777　888　999　000 　123 456　789　112　223　334　445　556　222　778　<=　最終行追加！ ●エクセルシート（纏め） 　Ａ 　　： 　111 　222 　333 　444 　555 　666 　777 　888 　999 　000 　123　<=　Ａ列最終行 　456　<=　Ｂ列最終行 　789　<=　Ｃ列最終行 　112　<=　Ｄ列最終行 　223　<=　Ｅ列最終行 　334　<=　Ｆ列最終行 　445　<=　Ｇ列最終行 　556　<=　Ｈ列最終行 　222　<=　Ｉ列最終行 　778　<=　Ｊ列最終行 【注意事項】 　　・Ａ列～Ｊ列に入っている値には同じ値が入る場合があります。（重複あり） 　　・使用するエクセルは２０１０です。 以上、よろしくお願いします。 　 　

  • VBAで行のコピー

    タイトルの通りなのですが、VBAで行のコピーを行いたいのですが、うまくいきません。教えて下さい。 　あ　1　(空白) 　い　2　A 　う　3　(空白) 　え　4　(空白) 　お　5　B この様な表があるのですが、3列目に空白以外の文字があった場合その下に1行コピーをしたいのです。 上の表の場合は3列目にAがあるので"い"と"う"の間に"い"の行をコピーしてもう一行入れたいです。Bについても同様です。 すいませんが、教えていただければありがたいです。 よろしくお願いいたします。

  • Excel 任意の行数・列数のデータを合体VBA

    VBAで、Sheet1のデータの最終行に Sheet2の同じ並びのデータを続けてくっつけ、 Sheet3に（Sheet1とSheet2のデータが）連続した状態をつくる場合のVBAの書き方を教えてください。 ちょうどSheet1のブルーの範囲（ただし最終行はn行＝データは様々で最終行は不特定だが最終行の下にはもうデータはない、最終m列の右にはまだデータが膨大にあるが、今回はA～m列（ここではA～AX列と指定可能）をコピーしたい） に Sheet2の黄色い範囲（ただし最終行はn行＝データそれぞれで不特定だが最終行の下にはもうデータはない、最終m列はSheet1と同じ構成＝A～AX列） をくっつけたい。 ・アウトプットはSheet3。 （Sheet1とSheet2はいじらずそのまま残す） ・コピーして貼り付ける（複写する）のは、値だけ （罫線とか計算式は不要） です。 よろしくお願いします。

  • ＶＢＡ　印刷について（空白ページを印刷しない）

    エクセル　ＶＢＡで空白のシート及び空白ページを印刷しない方法を教えてください。 見積明細シートが明細１、明細２と９まであります。 各シート見積もりの内容によりページ数が異なり 入力の無いシートもあります（明細３以降入力無し等） 又、２行目まではタイトル行のためシートに最初から入力済みです。 縦横とも罫線を引いてあります。 A 　　　B 　 C 　　D 　　 E　　　Ｆ 1 項目　　適用　　単価　　単位　　金額　　　備考←　タイトル行 2　　　　　　　　　　　　　　　　　　　　　　　　←　タイトル行 3　ここから入力 4 5 ↓ 1ページ２３行 例えば、明細１　２４行まで入力した場合、２ページめの最後（44行目まで） 印刷したい。 明細２以降　タイトル行以外にデーターが有れば印刷、なければ印刷しない。 様な感じです。 最終行まで印刷するところまでは自力でたどり着いたのですが、それだと最終行よりしたの罫線が印刷されなくて困っています どなたかご教示願います

  • エクセル2003のVBAを教えて

    エクセル2003のVBAを教えてください。 次の対象データで、(1)(2)(3)の作業が出来るエクセルVBAを教えて下さい。 (1)(2)(3)個々のVBAでお願いします。 ●対象データ：種類(A列)、文字(B列)、 　　　データの行数：不特定なので、データのある最終行までとします。 ●教えていただきたい項目 　(1)：種類だけを(C列)に取り出す。 　(2)：種類の先頭に空白の行を3行入れて、追加の２行目の種類(A列)に文字(B列)を入れる。 　(3)：種類が5行以上あるときは、5行ごとに空白行を追加する。 ●対象データ 種類(A列)　　　文字(B列) AA　　　　　　　あああ BB　　　　　　　いいい BB　　　　　　　いい BB　　　　　　　いいい CC　　　　　　　うう CC　　　　　　　うう DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ ●(1)のVBAの結果(このようになるVBAを教えてください。) (C列) AA BB CC DD ●(2)、(3)のVBAの結果(このようになるVBAを教えてください。) 種類(A列) 　　　文字(B列) あああ AA　　　　　　　　あああ いいい BB　　　　　　　　いいい BB　　　　　　　　いいい BB　　　　　　　　いいい うう CC　　　　　　　　うう CC　　　　　　　　うう ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ

  • 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等での処理が望ましいです（時間がないので＞＜）よろしくお願いいたします！！！

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する