Excel VBA質問箱 IV

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

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


71211 / 76738 ←次へ | 前へ→

【10023】Re:excel(デ−タ抽出)
回答  Kein  - 03/12/31(水) 14:57 -

引用なし
パスワード
   フィルターを使ってみました。

Sub JUST_Data()
  Dim MyR As Range
 
  Set MyR = Range("B2", Range("H65536").End(xlUp))
  Application.ScreenUpdating = False
  Range("B2", Range("B65536").End(xlUp)) _
  .Offset(, 25).Formula = "=IF(MINUTE(B2)=0,1,"""")"
  Range("AA:AA").AutoFilter 1, "=1"
  MyR.SpecialCells(12).Copy
  ActiveSheet.AutoFilterMode = False
  Range("J2").PasteSpecial
  Range("AA:AA").ClearContents
  With Application
   .CutCopyMode = False
   .ScreenUpdating = True
  End With
  Set MyR = 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 お礼

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