|
▼banboo さん:
>▼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列ごとにデ−タを抽出したいのです。
> プログラムのどこを変更すればいいのでしょう?
> お忙しいとは思いますが、教えてください。
|
|