作業環境は以下の通りで、Excelの知識は初心者です。
OS:Windws7 / 使用ソフト:Excel2003
商品.xlsには3つのシートが存在します。
シートはそれぞれ、1行目は見出し行としています。
・商品データが入った「生データ」シート
・「生データ」シートから必要な情報を参照や加工する数式がA2~AG2に入った「詳細」シート
・「生データ」シートから必要な情報を参照や加工する数式がA2~G2入った「カテゴリ」シート。
「詳細」「カテゴリ」共に数式の入った行を「生データ」の数(行)に合わせて、オートフィルコピーし、最終的にcsvファイルを作成します。
他に、商品.xlsと同じ作りのファイルが複数あり、それらは「生データ」の行数がバラバラの為、VBAで処理したく検索したところ以下のページを発見しました。
http://www.excel.studio-kazu.jp/kw/2011051307363 …
VBAは初心者の為、このVBAの意味を検索しながら以下の様に理解して修正したのですが、思うように処理できずにいます。
何が違っているか教えて頂けないでしょうか。
また、できれば数式だけが入ったファイルを雛形として用意し、
生データだけのファイルは別に持ち、処理する形が望ましいのですが
VBAで可能な事なのでしょうか?
lasとは、生データの最後尾を定義
詳細のA1~AG2セルから1つ下のセルの値を消去し、2行目をコピーし
生データの2行目~最後尾までの行分の数式を貼り付ける
カテゴリにも同じ処理を与える
Sub データ抽出()
Dim las As Long
las = Sheets("生データ").Range("A" & Rows.Count).End(xlUp).Row
With Sheets("詳細")
.Range("A1").CurrentRegion.Offset(1).ClearContents
.Range("2:2").Copy
.Range("2:" & las).PasteSpecial xlFormulas
End With
With Sheets("カテゴリ")
.Range("A1").CurrentRegion.Offset(1).ClearContents
.Range("2:2").Copy
.Range("2:" & las).PasteSpecial xlFormulas
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで入力シートから別シ...
-
エクセルで入力→日付を自動判別...
-
VBA セルの値と同じ名前のシー...
-
Excelの中央値の複数条件について
-
【エクセルVBA】処理速度を...
-
Excel日付変更との参照先の連動
-
VBAの解説
-
エクセル シフト勤務表から、...
-
VBAでシート名をセルから取得し...
-
エクセル自動の年月
-
エクセルのワークシートが重く...
-
EXCEL VBA 作業用シートの使い回し
-
VBAのoffsetの動き方について教...
-
エクセル 毎日更新する表のデ...
-
EXCELの日付データをWORD文書に...
-
Excel 複数のシートからグラフ...
-
指定した日付の範囲内でデータ...
-
IF, ISNUMBER, INDIRECTの組み...
-
エクセル マクロを使って日々...
-
テキストボックス内の文字のふ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで入力シートから別シ...
-
Excel 複数のシートからグラフ...
-
Excelの中央値の複数条件について
-
エクセル シフト勤務表から、...
-
IF, ISNUMBER, INDIRECTの組み...
-
エクセルのワークシートが重く...
-
ExcelVBAで、指定したシートに...
-
VBA セルの値と同じ名前のシー...
-
Excel ハイパーリンク先のセル...
-
エクセル自動の年月
-
VBAのoffsetの動き方について教...
-
エクセルで入力→日付を自動判別...
-
エクセル マクロを使って日々...
-
エクセルVBA:表の内容を担当者...
-
エクセルについて質問です 日付...
-
ピボットテーブルから抽出デー...
-
VBAでシート名をセルから取得し...
-
Excelの選択肢をポップアップリ...
-
VBAを利用しオートフィルタで日...
-
Excel日付変更との参照先の連動
おすすめ情報