VBA】抽出したデータを書式へこんにちはゲストさん。VBA】抽出したデータを書式へExcel2003を使用しています。Excelで作成→送付されてくる全店データの中から自店のデータのみを抽出し、全店データと同じ書式で自店のみのデータを作成したく、下記のようにコードを書きました。扱いやすい(?)かと思い、上記のように書いてみました。自店のデータが1ページ分(14件分28行で、セル34行目~61行目)内に収まる場合は問題ないのですが、それ以上になった場合をどのように記述すればよいのか躓いています。341行目~396行目このような書式にデータを代入する場合は、上記の方法では難しいでしょうか?説明が分かりづらくて申し訳ありませんが、よろしくお願いします。15:55:01通報するQNo.5124988KOH3193困ってます質問者が選んだベストアンサーjの値の初期値(=34?)が設定されていないようですが、jの値がご提示のように行数に応じて変化してくれればいいのですよね?現状のものを修正するのであれば、少々わかりづらいかも知れませんが...j=j+2として次に記入すべき行を求めていますが、この時に、ページの終わりだったらj=j+13としてあげればよいと思われます。記入している件数をカウントする変数(例えばcnt)を作成しておきます。これに対して、記入すべき行数が求められる関数を作成しておいて、その関数が示す行に記入するという考え方もできます。・・・・となるようなもの。73の1行で表すことができますが、こうしておけば、もっと複雑な場合や、単に数式だけでは表せない場合などでも対応可能ですし、そのような場合は別関数にしてしまえば扱いやすくなると思います。17:12:42お礼アドバイスありがとうございます。jの値の初期値(=34?)が設定されていないようですがあーでもないこーでもないとコードを書き換えながら試した後、質問文にコードをコピペしましたので、jの初期値(=34)を記述するのを忘れていました...。今回の場合は規則性があるので、Ifで条件を追加すれば、うまく動作しそうなのに、その条件をどのように表示してよいかわからず、質問させていただきましたが、丁寧に説明してくださったおかげで理解することができ、無事、解決に至りました。ありがとうございました。回答(5)ANo.5_Kyle#3さまと基本的に同趣旨の内容ですが...。下記のように【自店○件目のデータを■行目に転記すればよいか】を計算で求めてやれば、ご要望のように動作するはずです。被除数が負数のときの結果が異なるので注意が必要です。22:30:15お礼アドバイスありがとうございます。記載していただいたコードで試してみたところ、希望通り動作しました。順を追って詳しく説明していただいたおかげで、わかりやすくて助かりました。自店○件目のデータを■行目に転記すればよいか↑をうまく計算で求めることができませんでした。VBAのMOD演算子は今回初めて使用しましたが、大変勉強になりました。ありがとうございました。(0)通報するANo.4imogasiエクセルでは「書式」は特別な意味が有るから、この質問には使わないで、様式やフォーマットや項目の配置などと表現すべきと思います。実際は行も列も多いのでしょうが、コードを書くより、少数列、行の模擬実例にして、質問に書いてください。後自分の場合に引きなおすのは簡単なはずです。あなたの表の様子が読者には見えません。読者でコードから逆解析せよ、質問文でわかる人だけ答えろと言うのは、質問者として、配慮が足りない。ここの質問コーナーは個人の要求を満たす一方、公器でもあるとおもう。2は全店分で元の表が2行ずつなのか?そういうことも例を見ないと判りにくい。21:05:12お礼アドバイスありがとうございます。少数列、行の模擬実例にして表として記載することが難しかったため、コードを記載させていただきましたが、幸い今回は他の方からいただいた回答で無事解決いたしました。直接の回答ではない細かいところまでアドバイスをいただき、お手数をおかけしました。(0)通報するANo.2Sinogi>書式のページ間は不要データではなく、小計や合計を表示する行などが含まれているので、全て削除することはできません。列データに影響があるということかな?作業シートでの処理ですから、1.元シートを全セルコピーし、作業シートに値貼り付け2.ページ間の行を削除を提示コードの当初に実行し、Sheets("全店データ").をSheets("作業シート").に変更するということです。再度のアドバイスありがとうございます。データ転記先の「自店データ」シートも元シートの「全店データ」シートと同じ書式のため、転記するデータが1ページ分以上になった場合に、例えば2ページ目の1件目のデータを転記するセルをどのように指定したらよいのかがわからず、質問させていただきました。今回は他の方からいただいた回答で解決できました。何度もお手数をおかけして申し訳ありません。ありがとうございました。(0)通報するANo.1Sinogi私なら作業シートを作成しページ間の不要データを削除します。16:05:10お礼アドバイスありがとうございます。説明不足で申し訳なかったのですが、書式のページ間は不要データではなく、小計や合計を表示する行などが含まれているので、全て削除することはできません。Excel2003を使っています。Sheet1に作りたいグラフがあります。↓のようなコードがあります。VBAの配列でわかりません。調べて下記の構文が出来たのですが、あと一歩が足りません。Excel2003を使用しています。現在、下記のようなコードを書いています。データベース検索について教えて下さい。Reserved.掲載情報の著作権は提供元企業等に帰属します。