|
▼Hirofumi さん:
>手抜きの質問なので手抜きの回答
>題名ぐらいちゃんと書いたら?
>
>Public Sub Extraction()
>
> Dim i As Long
> Dim j As Long
> Dim wksData As Worksheet
> Dim wksResult As Worksheet
>
> Application.ScreenUpdating = False
>
> Set wksData = ActiveSheet
> Set wksResult = Worksheets.Add(After:=wksData)
>
> With wksData
> j = 1
> For i = 1 To .Range("A65536").End(xlUp).Row Step 6
> .Cells(i, 1).Resize(, 9).Copy _
> Destination:=wksResult.Cells(j, 1)
> j = j + 1
> Next i
> End With
>
> Set wksResult = Nothing
> Set wksData = Nothing
>
> Application.ScreenUpdating = True
>
>End Sub
ありがとうございました。
もう少しで動きそうなんですが、うまくいきません。
行は8行くらいで、列は300位あり1列目、7列目、13列目と
6列ごとにデ−タを抽出したいのです。
プログラムのどこを変更すればいいのでしょう?
お忙しいとは思いますが、教えてください。
|
|