Excel VBA質問箱 IV

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

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


71208 / 76732 ←次へ | 前へ→

【10020】Re:excel(デ−タ抽出)
回答  Hirofumi E-MAIL  - 03/12/30(火) 14:32 -

引用なし
パスワード
   以下を標準モジュールに記述して下さい
データの有るシートをアクティブにして実行して下さい

Public Sub TimeExtraction()

  Dim i As Long
  Dim j As Long
  Dim wksData As Worksheet
  
  '画面更新の停止
  Application.ScreenUpdating = False
  
  'データの有るシートの参照を設定(コードではアクティブシート)
  Set wksData = ActiveSheet
  
  'データシートに就いて
  With wksData
    '書き込み行を2行目からに設定
    j = 2
    '読み込む行を2行目から最終行まで繰り返す
    For i = 2 To .Cells(65536, 2).End(xlUp).Row
      'もし、時刻の分が0なら
      If Minute(.Cells(i, 2).Value) = 0 Then
        'セルのB列から7列をCopyしてセルのJ列に張り付け
        .Cells(i, 2).Resize(, 7).Copy _
            Destination:=.Cells(j, 10)
        '書き込み行を更新
        j = j + 1
      End If
    Next i
  End With
  
  'データの有るシートの参照を破棄
  Set wksData = Nothing
  
  '画面更新を再開
  Application.ScreenUpdating = True
  
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 お礼

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