教えてください。
自分はエクセル2016を使っているのですが、今大量のデータを整理しなくてはいけなくて困っています。1万以上の行数があるエクセルデータから複数の行をコピーしたいのですが、これを手作業でやるには時間がかかる上に、ミスをすると最初からになってしまうためどうにかしたいです。
いくらか調べてみましたが、VBAを使用するとよいという事は分かったのですがうまく理解できませんでした。
データは画像の通りでメインのデータはシート2にあるデータです。
面倒な質問をして申し訳ございません。
お判りになる方いましたら教えていただけませんでしょうか。
よろしくお願いします。
No.2
- 回答日時:
複数行ということは抽出する対象の行のデータには一定の条件があるのですよね?
その条件がわからないと回答のしようがありません。
抽出条件が決まっているならVBAを使わなくてもオートフィルタでできそうな気がしますが、オートフィルタは試しましたか?
No.3
- 回答日時:
その複数の行(コピー対象)は、どうやって決まるのですか?
規則性があるのですか?
規則性があるとか、事前にパターンが決まっているとか
そう言うものであれば、マクロ等の活用も有効ですが
規則性が無くその都度、操作する人が目で見て決まるような場合にはいまいちでしょう
私なら
規則性が全くないようなケースであれば、A列前に一列追加して仮にマーク列のようにします
で、目で確認しながらコピー対象なら、マーク列に何か印を入力する
で全体の確認が終了した時点で、フィルター機能を使ってマーク列に印の有るモノだけを抽出してコピーするとかするでしょう
※この部分をマクロ化するとかなら容易に作成可能
結局、対象の選択の規則性次第ですね
ある一定の数値としての規則性はないのですが、500行目と800行目のデータを新しいシートにコピーするという風に考えてます。
あと同じようなデータがたくさんあるため、1列追加するような操作は時間がかかるのと、このデータを他にも使用するのでなるべく列の追加などはしたくありません
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.5
- 回答日時:
>500行目と800行目のデータを新しいシートにコピーするという風に考えてます。
ならさぁ
「ミスをすると最初からになってしまうためどうにかしたいです。」
ミスする余地がほとんどないし、万が一ミスしてもやり直しなんてすぐじゃん
なんか最初の話と状況が違ってない?
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行目にしてあります。
新規シート(白紙の状態)これでいいのではないですか?
どうもシート名の勘違いのように思います。
もしかして別ブックにしたいとか・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルのシート毎の容量
-
excelの不要な行の削除ができな...
-
Excelでシートの違うデータでグ...
-
複数シートからデータを拾って...
-
シート削除して同名シート追加...
-
他のシートの一番下の行データ...
-
トランジスタの選び方
-
EXCELで2つのファイルから重複...
-
コンボボックスの参照先(ListF...
-
【エクセルマクロ】複数シート...
-
オートフィルタで抽出したデー...
-
1分ごとの数値のマクロ
-
エクセルのカメラ機能について
-
【Excel】マクロでグラフ系列に...
-
エクセル マクロ "特定の日付...
-
時間帯の重複を除いた集計について
-
エクセルのデータ移動(マクロ...
-
エクセル VBA VLOOKUP
-
Excelで日付変更ごとに、自動的...
-
エクセルで名簿を50音で切り分ける
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelの不要な行の削除ができな...
-
エクセルファイルのシート毎の容量
-
複数シートからデータを拾って...
-
Excelでシートの違うデータでグ...
-
シート削除して同名シート追加...
-
EXCELで2つのファイルから重複...
-
VBAで CTRL+HOMEの位置へ移動...
-
トランジスタの選び方
-
Excelで日付変更ごとに、自動的...
-
他のシートの一番下の行データ...
-
エクセル マクロ "特定の日付...
-
【エクセルマクロ】複数シート...
-
エクセル VBA VLOOKUP
-
時間帯の重複を除いた集計について
-
エクセル 縦に長い表の印刷時...
-
エクセルで名簿を50音で切り分ける
-
Excelマクロ 差分抽出の方法が...
-
エクセルのカメラ機能について
-
EXCEL 複数行のデータを1行にま...
-
Excel 売上管理シートに入力し...
おすすめ情報
例として500行目と800行目といっただけで、実際には複数の行をコピーしたいと思っています。
言葉足らずでした。申し訳ございません。
わざわざありがとうございます。
試してみたのですが、500行目と800行目のデータではなく1行目と2行目のデータがコピーされてしまいました。
一応元データとしましては、シート1~1(50)までのA列にデータがあり、シート2にそれらのデータを=Sheet1!A1、='Sheet1 (2)'!A1 というようにまとめています。
このまとめたデータが悪さをしているのかわからないのですがうまくいきませんでした。