Excel VBA質問箱 IV

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

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


17499 / 76738 ←次へ | 前へ→

【64692】Re:sheet1とsheet2を比較して一致しなかったものをsheet3に張り付ける方法
発言  ponpon  - 10/3/8(月) 16:19 -

引用なし
パスワード
   >シート2の内容がシート3に丸々コピーされただけでした。

シート1とシート2のH列を見て
違っていたら、シート3にシート2の内容をコピーするですよね?
こちらでは、出来てますがこれでは?

Sub test3()
  Dim i As Long
  Dim SH1 As Worksheet, SH2 As Worksheet, SH3 As Worksheet
 
  Set SH1 = Sheets("Sheet1")
  Set SH2 = Sheets("Sheet2")
  Set SH3 = Sheets("Sheet3")

  SH3.Cells.ClearContents
  For i = 1 To SH1.Cells(Rows.Count, "H").End(xlUp).Row
    If Not SH1.Cells(i, "H").Value = SH2.Cells(i, "H").Value Then
      SH2.Rows(i).Copy SH3.Cells(Rows.Count, "A").End(xlUp).Offset(1)
    End If
  Next
End Sub

0 hits

【64682】sheet1とsheet2を比較して一致しなかったものをsheet3に張り付ける方法 VBAは初心者です。 10/3/7(日) 21:17 質問
【64683】Re:sheet1とsheet2を比較して一致しなかっ... ponpon 10/3/7(日) 22:31 発言
【64684】Re:sheet1とsheet2を比較して一致しなかっ... VBAは初心者です。 10/3/7(日) 23:29 発言
【64685】Re:sheet1とsheet2を比較して一致しなかっ... かみちゃん 10/3/8(月) 5:16 発言
【64687】Re:sheet1とsheet2を比較して一致しなかっ... ponpon 10/3/8(月) 10:23 発言
【64688】Re:sheet1とsheet2を比較して一致しなかっ... VBAは初心者です。 10/3/8(月) 13:17 質問
【64689】Re:sheet1とsheet2を比較して一致しなかっ... ponpon 10/3/8(月) 13:42 発言
【64690】Re:sheet1とsheet2を比較して一致しなかっ... VBAは初心者です。 10/3/8(月) 15:58 発言
【64692】Re:sheet1とsheet2を比較して一致しなかっ... ponpon 10/3/8(月) 16:19 発言
【64694】Re:sheet1とsheet2を比較して一致しなかっ... VBAは初心者です。 10/3/8(月) 16:56 お礼

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