Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


58361 / 76738 ←次へ | 前へ→

【23106】Re:データの抽出について
回答  かみちゃん  - 05/3/13(日) 20:20 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>それで、これのちょっと違った形なのですが、

もしかして、初めから、そういう要件ではなかったのでしょうか?
もし、そうであれば、今後ご質問される場合は、最初からできるだけ要件を出していただいたほうがよろしいかと思います。

さて、すでに、ponponさんからコメントも出ていますが、OffsetとResizeを使わず
(Offsetは一箇所だけ使っていますが)値をCopyする方法ほ紹介しておきますので
参考にしてください。

Option Explicit
Sub test2()
 Dim myRng As Range
 Dim myRng2 As Range
 Dim r As Range
 
 With Worksheets("Sheet1")
  'A2からA列の最下端のセルまでの範囲を処理する範囲とする。
  Set myRng = .Range(.Range("A1"), .Cells(.Columns("A").Rows.Count, .Columns("A").Column).End(xlUp))
  For Each r In myRng
   'M列とN列のデータを比較し、異なる値の場合のみ処理をする。
   If Cells(r.Row, .Columns("M").Column).Value <> Cells(r.Row, .Columns("N").Column).Value Then
    Set myRng2 = Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
    '品目コードと品目をコピー
    .Range(.Cells(r.Row, .Columns("A").Column), .Cells(r.Row, .Columns("B").Column)).Copy Destination:=myRng2
    'M列の値とN列の値をコピー
    .Range(.Cells(r.Row, .Columns("M").Column), .Cells(r.Row, .Columns("N").Column)).Copy Destination:=myRng2.Offset(, 2)
   End If
  Next
 End With
End Sub

あと、蛇足で、ponponさんには一度申し上げたことがあるのですが、掲示板中の引
用は、必要最小限のものでもよろしいかと思います。
ツリー表示で、一連の内容は、わかりますから。
0 hits

【23094】データの抽出について indy 05/3/12(土) 23:46 質問
【23098】Re:データの抽出について ponpon 05/3/13(日) 0:32 回答
【23102】Re:データの抽出について indy 05/3/13(日) 16:25 質問
【23105】Re:データの抽出について ponpon 05/3/13(日) 19:36 発言
【23107】Re:データの抽出について ponpon 05/3/13(日) 20:38 回答
【23113】Re:データの抽出について indy 05/3/13(日) 23:38 お礼
【23106】Re:データの抽出について かみちゃん 05/3/13(日) 20:20 回答
【23114】Re:データの抽出について indy 05/3/13(日) 23:56 お礼

58361 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free