VBA初心者の
図2と3を見比べてみてください。
図1から必要な列だけを選択して1列丸ごとコピーするのですが
図2を見てください。1行丸ごと項目でつぶしているところがあり
このままだと1項目づつコピーしなければなりません。その際、コピーするデータ量が一定ではないため、可変行における変動するコピー開始位置の設定が問題となります。
この手の話でよく出る、vbaの最終行指定offset+count index+countaはいずれも開始位置が固定した上で、終了位置の変動位置に対応するというものであり、この話には対応できません。
コピーした後、値を合計し(vbaのEnd xlup)追加行を挿入しないといけませんが、(vbaのResize10)
いづれも、検索のみでは、開始位置が変動する場合の話はありませんでした。
そこで、考えた結果、フォーマットを変更することにしました(図3)。項目を列の一つと設定し、それにより開始位置を固定した上でデータを全項目一括でコピーすることにしたのです。
開始位置が固定した上で、データ量が変動する、コピー・合計の話はネット上によくあるので、今それを参考にコーディングしてる最中です。
どう思われますか?この話。かなり無駄があるような気がするのですが・・・・
No.2ベストアンサー
- 回答日時:
画像がぼやけて見えない。
補足で画像を大きく(狭い範囲を)あげることが出来ないなら、別質問したら。色々書いているが、
ーー
自分の思考過程など長々と書いているが
文章でやりたいことの要点を絞れないのか。
また自分の生のデータ(画像)を質問に使わず、質問に適当な長さの、特徴を盛り込んだ、要点が判るデータを考えること。
ーー
左列や、上行に空白セルがあって、例えばデータの開始行や開始列を知りたいなら、End(xlUp)やEnd(xlDoun)を使えないのか。
例データ
A1:B7
ーは空白セルをあらわす
データ1データ2
ー -
a -
bx
cy
ーz
ーu
ーーーー
Sub test01()
r = Cells(1, Columns.Count).End(xlToLeft).Column
'MsgBox r
For j = 1 To r
u = Cells(2, j).End(xlDown).Row
'MsgBox u
'MsgBox Rows.Count
d = Cells(Rows.Count, j).End(xlUp).Row
MsgBox j & "列は" & u & "行から" & d & "行までデータがあります"
Next j
End Sub
こういう問題でなければすみません。無視して。
ーー
表現
>図2と3を見比べてみてください。
>どう思われますか?
問題出題者のような表現になっている。質問する立場なのだから、考えて。
質問の仕方がまずいとわかりました。
文章・データで自分のやりたいことを明確にし
それをスクリプトで記述する。
申し訳ありませんでした
No.1
- 回答日時:
画質の問題か、添付の図から質問をうまく読み取れない状態ですが。
「図1にある内容をコピーしたい。図2へのコピーだと面倒なので図3の形式にしたい」ですか?
データを例示してみていただけませんか?
はい、そのとおりです。図2の形式だと1項目づつのコピーなので、データ量によりコピー開始位置が変動してしまい、VBAでその位置を指定するのが困難です。
例)タイプ1(全30件等)のABC(2・2・4等)の値をコピーした後に、タイプ2(全50件等)の ABCの値をコピーする
またはタイプ5のABCの値をコピーした後にタイプ4のABCの値をコピーする
そして最終的に全タイプのコピー、合計(150・180・190等)、不足行の挿入
図の3の形式だと項目名を列の1つとすることになるので、開始位置を固定した上での変動するデータのコピー・合計の話になると思いました。
例)タイプ12345のABCの値を一括でコピー、合計(200件分)、不足行(全200行コピー、不足分50行追加)の挿入
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数ブックの統合について Excel VBA 1 2022/05/13 09:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Visual Basic(VBA) 最終行の指定について教えてください。 複数シートを1シートへまとめる下記マクロでは各シートの6行目を 1 2022/10/04 18:37
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Visual Basic(VBA) 2つの条件に合うセルにデータを転記したい 4 2022/12/02 11:05
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
教えて下さい
-
多量のSUMIF式を軽くしたい
-
【エクセル】測定時間がバラバ...
-
シーケンサにパソコンからアク...
-
[C言語] コメント文字列を無視...
-
ウィンドウ枠の固定を行の2箇所...
-
メモ帳(テキストデータ)をExc...
-
配列でデータが入っている要素...
-
複数のブックのデータを集めて...
-
クリップボードのデータをセル...
-
外部データの更新がうまくでき...
-
VBA 空白セルを削除ではない方...
-
ビットシフトについて
-
不規則なデータのfft処理
-
VBA ユーザーフォーム テキス...
-
モジュラス103の算出方法について
-
VBA 毎日取得するデータを順番...
-
【VBA】データを入力後に,同一...
-
0が含まれる幾何平均が「#NUM!」
-
Excelのマクロでワードのテキス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
配列でデータが入っている要素...
-
【エクセル】測定時間がバラバ...
-
メモ帳(テキストデータ)をExc...
-
エクセルで2つの時系列のデー...
-
二分探索の平均探索回数
-
VBA 空白セルを削除ではない方...
-
多量のSUMIF式を軽くしたい
-
ブレーカー落ちで壊れたりしな...
-
この行は既に別のテーブルに属...
-
ACCESSからEXCELに出力する際、...
-
ユーザーフォームのテキストボ...
-
シーケンサにパソコンからアク...
-
EXCELVBAでSQLserverからデータ...
-
VBAを使ってOutlookメール本文...
-
S9タイプからXタイプにデータ...
-
ウィンドウ枠の固定を行の2箇所...
-
プログラミング python pandas ...
-
Accessで該当データにフラグを...
-
カンマからスラッシュに
おすすめ情報