データ抽出

Dim lastrow(100) As Long
Dim Youbi As Integer
Sub main()

Workbooks("1min_2008(kakou)").Activate
lastrow(0) = Cells(1, 1).End(xlDown).Row 'MA40最終行
Youbi = InputBox("何曜日を抽出しますか？（月＝1：火＝2：水＝3：木＝4：金＝5")
For i = 1 To lastrow(0)
Cells(i, 7) = WorksheetFunction.Weekday(Cells(i, 1), 1)
Next

For i = 1 To lastrow(0)
If Cells(i, 7) <> Youbi Then

For ii = i To lastrow(0)
If Cells(ii, 7) = Youbi Then
Workbooks("1min_2008(kakou)").Activate
Range("A" & i, "G" & ii - 1).Select
Selection.Clear
i = ii
Exit For
End If
Next
End If
Next

'lastrow(0) = Cells(1, 1).End(xlDown).Row 'MA40最終行
For k = 1 To lastrow(0)
If Cells(k, 1) = "" Then
For kk = k To lastrow(0)
If Cells(kk, 1) <> "" Then
Exit For
End If
Next
Rows(k & ":" & kk - 1).Select
Selection.Delete shift:=xlUp
lastrow(0) = lastrow(0) - (kk - k)
If k > lastrow(0) Then
Exit For
End If
'IL = IL + 1
End If
Next k

End Sub


エクセルのマクロは初中級レベルです(´・ω・｀)

前回DLしたデータを特定の曜日のみ抜き出してそれ以外を

消去したうえで上に詰めるということをやってみました。

これでもまだデータが多いなぁ。

今度はこの中から特定の時間帯をさらに抜き出してみます。
今日の1位はどこかしら
↓　↓　↓　↓

にほんブログ村

タグ：エクセル データ 抽出

コメント 1

モノグラモフラージュ財布小物大量入荷!
お客さんたちも大好評です：
新品種類がそろっています。
とっても安いし、作りも素敵です。
いい物がたくさんありますので、気に入ってます！
販売LUISVUITTON、CHANEL、GUCCI、HERMES、COACH
http://gys.clcmall.com

by 渡辺智子 (2012-08-10 13:22)