Excel VBA質問箱 IV

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

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


39583 / 76732 ←次へ | 前へ→

【42259】Re:処理時間の短縮
回答  Kein  - 06/9/5(火) 10:11 -

引用なし
パスワード
   仮に Sheet2 の E列 を基準とするなら・・

Sub MyData_Copy()
  Dim MyR As Range

  On Error Resume Next
  With Worksheets("Sheet2")
   With .Range("E1", .Range("E65536").End(xlUp)).Offset(, 251)
     .Formula = "=IF(Sheet1!$E1<>$E1,1,"""")"
     Set MyR = .SpecialCells(3, 1)
   End With
   On Error GoTo 0
   If Err.Number <> 0 Then
     MsgBox "Sheet1のE列と違うデータはありません", 48
     .Range("$IV:$IV").ClearContents: Exit Sub
   End If
   Worksheets("Sheet3").Cells.ClearContents
   Intersect(MyR.EntireRow, .Range("$A:$IV")) _
   .Copy Worksheets("Sheet3").Range("A1")
   .Range("$IV:$IV").ClearContents
  End With
  Set MyR = Nothing
End Sub

0 hits

【42228】処理時間の短縮 06/9/4(月) 16:26 質問
【42229】Re:処理時間の短縮 かみちゃん 06/9/4(月) 17:00 発言
【42287】Re:処理時間の短縮 06/9/5(火) 16:45 お礼
【42235】Re:処理時間の短縮 ハチ 06/9/4(月) 19:14 回答
【42261】Re:処理時間の短縮 06/9/5(火) 10:27 お礼
【42291】Re:処理時間の短縮 ハチ 06/9/5(火) 17:18 発言
【42307】Re:処理時間の短縮 06/9/6(水) 10:16 お礼
【42236】Re:処理時間の短縮 Hirofumi 06/9/4(月) 19:42 回答
【42238】Re:処理時間の短縮 飛ばない豚 06/9/4(月) 20:08 回答
【42256】Re:処理時間の短縮 飛ばない豚 06/9/5(火) 9:22 回答
【42259】Re:処理時間の短縮 Kein 06/9/5(火) 10:11 回答
【42308】Re:処理時間の短縮(解決) 06/9/6(水) 10:24 お礼

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