教えてください。
自分はエクセル2016を使っているのですが、今大量のデータを整理しなくてはいけなくて困っています。1万以上の行数があるエクセルデータから複数の行をコピーしたいのですが、これを手作業でやるには時間がかかる上に、ミスをすると最初からになってしまうためどうにかしたいです。
いくらか調べてみましたが、VBAを使用するとよいという事は分かったのですがうまく理解できませんでした。
データは画像の通りでメインのデータはシート2にあるデータです。
面倒な質問をして申し訳ございません。
お判りになる方いましたら教えていただけませんでしょうか。
よろしくお願いします。
No.4ベストアンサー
- 回答日時:
固定の2行だけを新しいシートに、でいいのですね。
Sub Sample()
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Worksheets("Sheet2")
Set sh2 = Worksheets.Add
sh1.Rows("500").Copy sh2.Rows("1")
sh1.Rows("800”).Copy sh2.Rows("2")
End Sub
No.6
- 回答日時:
シート名が間違っていませんか?
貴方がシート2と書いたものはSheet2としています。
Set sh1 = Worksheets("Sheet2")
sh1.Rows("500").Copy sh2.Rows("1")
sh1.Rows("800”).Copy sh2.Rows("2")
このコードでSheet2の1行目と2行目が新規シートにコピーするはずありません。
コピー先は1行目と2行目にしてあります。
新規シート(白紙の状態)これでいいのではないですか?
どうもシート名の勘違いのように思います。
もしかして別ブックにしたいとか・・
No.5
- 回答日時:
>500行目と800行目のデータを新しいシートにコピーするという風に考えてます。
ならさぁ
「ミスをすると最初からになってしまうためどうにかしたいです。」
ミスする余地がほとんどないし、万が一ミスしてもやり直しなんてすぐじゃん
なんか最初の話と状況が違ってない?
No.3
- 回答日時:
その複数の行(コピー対象)は、どうやって決まるのですか?
規則性があるのですか?
規則性があるとか、事前にパターンが決まっているとか
そう言うものであれば、マクロ等の活用も有効ですが
規則性が無くその都度、操作する人が目で見て決まるような場合にはいまいちでしょう
私なら
規則性が全くないようなケースであれば、A列前に一列追加して仮にマーク列のようにします
で、目で確認しながらコピー対象なら、マーク列に何か印を入力する
で全体の確認が終了した時点で、フィルター機能を使ってマーク列に印の有るモノだけを抽出してコピーするとかするでしょう
※この部分をマクロ化するとかなら容易に作成可能
結局、対象の選択の規則性次第ですね
ある一定の数値としての規則性はないのですが、500行目と800行目のデータを新しいシートにコピーするという風に考えてます。
あと同じようなデータがたくさんあるため、1列追加するような操作は時間がかかるのと、このデータを他にも使用するのでなるべく列の追加などはしたくありません
No.2
- 回答日時:
複数行ということは抽出する対象の行のデータには一定の条件があるのですよね?
その条件がわからないと回答のしようがありません。
抽出条件が決まっているならVBAを使わなくてもオートフィルタでできそうな気がしますが、オートフィルタは試しましたか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでシートの違うデータでグ...
-
excelの不要な行の削除ができな...
-
エクセルファイルのシート毎の容量
-
複数シートからデータを拾って...
-
CMOS-IC CD4007UBEのnmosfetの...
-
エクセルで名簿を50音で切り分ける
-
VBAで CTRL+HOMEの位置へ移動...
-
シート削除して同名シート追加...
-
Googleスプレッドシートフィル...
-
【Excel】マクロでグラフ系列に...
-
【エクセルマクロ】複数シート...
-
エクセル VBA VLOOKUP
-
ファンモータが作動しない。
-
時間帯の重複を除いた集計について
-
EXCEL 複数行のデータを1行にま...
-
(VBAにて)日付でデータを抽出す...
-
Excelマクロ 差分抽出の方法が...
-
EXCEL の表を一行ずつシートに...
-
VBAでデータを縦結合する方法
-
エクセル 縦に長い表の印刷時...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelの不要な行の削除ができな...
-
エクセルファイルのシート毎の容量
-
複数シートからデータを拾って...
-
Excelでシートの違うデータでグ...
-
シート削除して同名シート追加...
-
VBAで CTRL+HOMEの位置へ移動...
-
トランジスタの選び方
-
Excelで日付変更ごとに、自動的...
-
【エクセルマクロ】複数シート...
-
EXCELで2つのファイルから重複...
-
他のシートの一番下の行データ...
-
エクセル 縦に長い表の印刷時...
-
エクセル マクロ "特定の日付...
-
【Excel】マクロでグラフ系列に...
-
エクセル VBA VLOOKUP
-
EXCEL 複数行のデータを1行にま...
-
エクセルで名簿を50音で切り分ける
-
エクセルのカメラ機能について
-
時間帯の重複を除いた集計について
-
オートフィルタで抽出したデー...
おすすめ情報
例として500行目と800行目といっただけで、実際には複数の行をコピーしたいと思っています。
言葉足らずでした。申し訳ございません。
わざわざありがとうございます。
試してみたのですが、500行目と800行目のデータではなく1行目と2行目のデータがコピーされてしまいました。
一応元データとしましては、シート1~1(50)までのA列にデータがあり、シート2にそれらのデータを=Sheet1!A1、='Sheet1 (2)'!A1 というようにまとめています。
このまとめたデータが悪さをしているのかわからないのですがうまくいきませんでした。