Excel VBA質問箱 IV

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

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


35706 / 76738 ←次へ | 前へ→

【46228】Re:特定のセルだけコピーしたい
回答  Kein  - 07/1/27(土) 13:42 -

引用なし
パスワード
   必ず日付が昇順ソートされている、という前提ならば

Sub Test1()
  Dim MyR As Range
  Dim Xdy As Long
   
  With Sheets("Sheet1")
   Set MyR = .Range("C65536").End(xlUp)
   Xdy = WorksheetFunction _
   .Match(CLng(MyR.Value), .Range("$C:$C"), 0)
   .Range(.Cells(Xdy, 1), MyR.Offset(, -2)) _
   .Copy Sheets("Sheet2").Range("V6")
  End With
  Set MyR = Nothing
  Application.Goto Sheets("Sheet2").Range("V1"), True
End Sub

というようなコードでも出来ますが、私ならたぶん、以下のように数式で判定・処理
する方法を選ぶでしょうね。

Sub Test2()
  Dim Ad As String
 
  With Sheets("Sheet1") _
  .Range("C1", Sheets("Sheet1").Range("C65536").End(xlUp))
   Ad = .Address
   With .Offset(, 253)
     .Formula = "=IF(RANK($C1," & Ad & ",0)=1,1)"
     .SpecialCells(3, 1).Offset(, -255) _
     .Copy Sheets("Sheet2").Range("V6")
     .ClearContents
   End With
  End With
  Application.Goto Sheets("Sheet2").Range("V1"), True
End Sub

0 hits

【46222】特定のセルだけコピーしたい さや 07/1/27(土) 6:26 質問
【46224】Re:特定のセルだけコピーしたい ichinose 07/1/27(土) 8:49 発言
【46226】Re:特定のセルだけコピーしたい さや 07/1/27(土) 12:58 質問
【46227】Re:特定のセルだけコピーしたい かみちゃん 07/1/27(土) 13:12 発言
【46230】Re:特定のセルだけコピーしたい さや 07/1/27(土) 14:34 質問
【46231】Re:特定のセルだけコピーしたい かみちゃん 07/1/27(土) 14:58 発言
【46233】Re:特定のセルだけコピーしたい さや 07/1/27(土) 15:25 発言
【46235】Re:特定のセルだけコピーしたい さや 07/1/27(土) 15:37 発言
【46236】Re:特定のセルだけコピーしたい かみちゃん 07/1/27(土) 15:46 発言
【46238】Re:特定のセルだけコピーしたい さや 07/1/27(土) 16:22 発言
【46239】Re:特定のセルだけコピーしたい かみちゃん 07/1/27(土) 16:35 発言
【46240】Re:特定のセルだけコピーしたい さや 07/1/27(土) 16:39 お礼
【46229】Re:特定のセルだけコピーしたい ichinose 07/1/27(土) 14:02 発言
【46234】Re:特定のセルだけコピーしたい さや 07/1/27(土) 15:27 お礼
【46228】Re:特定のセルだけコピーしたい Kein 07/1/27(土) 13:42 回答

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