Excel VBA質問箱 IV

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

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


17502 / 76732 ←次へ | 前へ→

【64683】Re:sheet1とsheet2を比較して一致しなかったものをsheet3に張り付ける方法
発言  ponpon  - 10/3/7(日) 22:31 -

引用なし
パスワード
   こんばんは。

こんな感じでしょうか?

Sub test()
  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")
  With SH3
    .Cells.ClearContents
    .Range("A1:C1").Value = Array("行", SH1.Name, SH2.Name)
  End With
  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
           
     With SH3.Cells(Rows.Count, "A").End(xlUp).Offset(1)
        .Value = i & "行目"
        .Offset(, 1).Value = SH1.Cells(i, "H").Value
        .Offset(, 2).Value = SH2.Cells(i, "H").Value
     End With
     
    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 お礼

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