| |
▼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
>
>
> ありがとうございました。
>もう少しで動きそうなんですが、うまくいきません。
>行は８行くらいで、列は300位あり１列目、７列目、１３列目と
>６列ごとにデ−タを抽出したいのです。
> プログラムのどこを変更すればいいのでしょう？
> お忙しいとは思いますが、教えてください。
|
|
banboo
- 03/12/30(火) 14:00 -
