Excel VBA質問箱 IV

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

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


71203 / 76732 ←次へ | 前へ→

【10025】Re:excel(デ−タ抽出)
回答  Jカーター  - 03/12/31(水) 15:36 -

引用なし
パスワード
   こんにちは。
フィルタオプションはどうでしょう?
--------------------------------------------------------------------
Sub JTmp()
  Dim RngA As Range
  Dim RngC As Range
  Dim RngP As Range
  With Sheets("Sheet1")
    Set RngA = .Range("A1").CurrentRegion
    Set RngC = .Range("IV1:IV2")
    Set RngP = .Range("J1").Resize(, RngA.Columns.Count)
  End With
  
  RngP.Value = RngA.Rows(1).Value
  RngC(1).Clear
  RngC(2).FormulaR1C1 = "=MINUTE(" & RngA(1).Value & ")=0"
  RngA.AdvancedFilter xlFilterCopy, RngC, RngP
  Union(RngC, RngP).ClearContents
  RngC.Parent.UsedRange
  
  Set RngA = Nothing
  Set RngC = Nothing
  Set RngP = Nothing
End Sub

違ったらすいません。

0 hits

【10008】excel(デ−タ抽出) 安藤聖一 03/12/29(月) 9:52 質問
【10009】Re:excel(デ−タ抽出) ぴかる 03/12/29(月) 13:06 回答
【10035】LOOKUP関数で こう 04/1/4(日) 14:41 発言
【10037】Re:excel(デ−タ抽出) banboo 04/1/4(日) 16:07 お礼
【10020】Re:excel(デ−タ抽出) Hirofumi 03/12/30(火) 14:32 回答
【10023】Re:excel(デ−タ抽出) Kein 03/12/31(水) 14:57 回答
【10027】Re:excel(デ−タ抽出) banboo 03/12/31(水) 19:27 お礼
【10025】Re:excel(デ−タ抽出) Jカーター 03/12/31(水) 15:36 回答
【10026】Re:excel(デ−タ抽出) banboo 03/12/31(水) 19:23 お礼

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