お願いします。
ゆうちょ からの引落しデータを精査するエクセルを作らなくなり
困ってます。条件に合うものだけ抽出したいのです
引落しデータは
口座・得意先NO・得意先氏名・金額・結果
の項目があります。
精査は「結果」を調べます。
「結果」の内容は
0=振替え済み 1=残高不足 2口座なし 3預金取り消し
4=契約なし 7=照会事故 8事業主取消し 9その他
です。 数字のみが入力されてます。
抽出したい「結果」の数字は 0 1 4 のみです。
マクロでどう記述しれば良いのでしょうか?
エクセルシートは作業3にデータがあり抽出したデータを
作業4に書き出ししたいのです。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
Sub 抽出()
Dim i As Long
Dim j As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lastline As Long
Set ws1 = Worksheets("作業3") '作業3をws1とする
Set ws2 = Worksheets("作業4") '作業4をws2とする
lastline = ws.Cells(Rows.Count, 1).End(xlUp).Row '作業3の最終行を取得
'両方のシートとも1行目は見出しが入っていると仮定2行目から処理
j = 1
For i = 2 To lastline
Select Case Cells(i, 5) '5列目 結果を調べる
Case 0, 1, 4 '0,1,4だったら
j = j + 1 '作業4に転記する行を1増やす
With ws1
.Range(.Cells(i, 1), .Cells(i, 5)).Copy ws2.Cells(j, 1) '1列目から5列目をCopy
End With
End Select
Next
End Sub
ありがとうございます。
とてもわかりやすいですね。
感謝。
実行したら、デバックしました。
lastline = ws.Cells(Rows.Count, 1).End(xlUp).Row '作業3の最終行を取得
どうしてでしょか?私なりに問題は無いように見えますが・・・・
No.3
- 回答日時:
lastline = ws.Cells(Rows.Count, 1).End(xlUp).Row '作業3の最終行を取得
を
lastline = ws1.Cells(Rows.Count, 1).End(xlUp).Row '作業3の最終行を取得
に変更してください。
前提として
対象はAからEまでの5列、A列のデータが入っている最後の列まで
ありがとうございます。
「物」を知らずにご面倒をおかけしました。
また、もっと質問の内容を詳しく書くように今後いたします。
でも、目から鱗 でした。
ありがとうございます。
No.2
- 回答日時:
>lastline = ws.Cells(Rows.Count, 1).End(xlUp).Row '作業3の最終行を取得
どうしてでしょか?私なりに問題は無いように見えますが・・・・
回答者の回答では
wsは ws1 になってます。SET部分を質問者が改めて、変えなければ、ws1 では?
質問でシート名や列名らしいものの名前を,質問にはっきり書いてください。
>精査は「結果」を調べます
結果という項目名の列と思うが、列番号で言えば、A,B,Cなど何ですか。
>作業3
「作業3」というシート名のシート
「作業4」というシート名のシート
>、デバックしました。
普通はエラーが出ました、と書く。
具体的にどんなエラーメッセージが出たか書くものです。
===
l>astline = ws.Cells(Rows.Count, 1).End(xlUp).Row '作業3の最終行を取得・・
結果はA列にあるのでしょうね(確認)。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) エクセルのマクロで複数条件に当てはまるものを全て抽出したいです 7 2022/05/21 08:51
- Excel(エクセル) エクセルで沢山のレコードの最後に追記するには? 7 2023/04/10 13:27
- Excel(エクセル) Excelの関数でこんな処理ができますか 1 2023/02/08 13:46
- Visual Basic(VBA) Sheet2の日付をキーにオートフィルターで2023年1月のデータを抽出し、Sheet3へ書き出すた 2 2023/03/06 23:57
- Excel(エクセル) エクセルの関数を教えてください。② 9 2023/05/25 15:28
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Oracle 質問です。 下記のテーブルとデータがあり、 取得想定結果のように出力したいです。 下記のsqlだと0 2 2023/05/23 19:10
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Excel(エクセル) エクセルで2つの表を比較して、文字列が同じだが、その行のある値が違うものを抽出したい 1 2022/10/06 21:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
既婚で現役のAV女優さんは居ま...
-
VBA ソートすると、1、11、...
-
別ブックの空白行に転記
-
VBAが止まります。
-
1日3回セックスって多いですか...
-
射精したあとの匂いって他人に...
-
おっぱいを舐める
-
精液のにおいがほとんど無いの...
-
夫にセックスがないのなら他人...
-
彼とのエッチで、彼がイクのが...
-
先日彼氏とラブホに行ったら電...
-
彼女をオカズにして抜くのって...
-
男の精子ってどんな匂いですか、
-
手マンしたあと それとなく指の...
-
彼のペニスが挿入時に柔らかく...
-
手マンした手って臭いですか?
-
あそこって・・みんな 舐める?
-
高校三年生の彼女がいるのです...
-
彼女との初体験後、気持ちの変...
-
手マンしたあと彼氏の指に私の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
既婚で現役のAV女優さんは居ま...
-
大昔から、クンニ、フェラって...
-
VBA ソートすると、1、11、...
-
CDレコの曲の消し方を教えてく...
-
別ブックの空白行に転記
-
VBAが止まります。
-
私は今年で60歳で孤独です。40...
-
直線コネクタの中央にコネクタ...
-
EXCELで3行を一組にして結合す...
-
エクセル最終行の下に貼り付け
-
シンナーの夏型と冬型の違いは?
-
データの平均を1分値にまとめる...
-
Word 黒塗り部分の文字のみ削除...
-
最適な組み合わせの自動計算
-
VBA AB列”3000”以上の数字の行...
-
性欲自体はあるのにセックスで...
-
相対参照から絶対参照に変換す...
-
bluetoothのclass1とclass2の互...
-
EXCELの関数でエンコードをしたい
-
エクセルのマクロの作り方で、...
おすすめ情報