Excel VBA質問箱 IV

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

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


67988 / 76734 ←次へ | 前へ→

【13293】Re:データを比較して別のシートに貼り付けたいのですが。。
回答  Jaka  - 04/4/30(金) 17:14 -

引用なし
パスワード
   私もこんな感じに1個1個比較して処理する方法しか思いつきませんでした。

Sub njdn()
  Dim MyRa As Range, i As Long, She2G As Variant
  Set MyRa = Sheets("Sheet1").Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row). _
    SpecialCells(xlCellTypeVisible)
  For i = 1 To MyRa.Count
    MsgBox "オートフィルタしたSheet1のA列の値" & MyRa.Cells(i, 1).Value & vbCrLf & _
        "オートフィルタしたSheet1のA列の行" & MyRa.Cells(i, 1).Row
    
    She2G = Application.Match(MyRa.Cells(i, 1).Value, Sheets("Sheet2").Columns(1), 0)
    If IsError(She2G) = True Then
      MsgBox "Sheet2には、ありませんでした。"
    Else
      MsgBox "Sheet2の" & She2G & "行目にありました"
      'ここで、詳細の比較 & コピペ
    End If
  Next
End Sub

2 hits

【13272】データを比較して別のシートに貼り付けたいのですが。。 natuko 04/4/29(木) 21:03 質問
【13285】Re:データを比較して別のシートに貼り付け... Jaka 04/4/30(金) 10:57 発言
【13289】Re:データを比較して別のシートに貼り付け... natuko 04/4/30(金) 13:36 質問
【13290】Re:データを比較して別のシートに貼り付け... Asaki 04/4/30(金) 13:48 回答
【13293】Re:データを比較して別のシートに貼り付け... Jaka 04/4/30(金) 17:14 回答
【13341】Re:データを比較して別のシートに貼り付け... Hirofumi 04/5/2(日) 19:19 回答
【13352】Re:データを比較して別のシートに貼り付け... Hirofumi 04/5/2(日) 21:34 発言

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