|
[10008]の方と同じ人ですね
其方の表示に合わせました
以下を標準モジュールに記述して下さい
データの有るシートをアクティブにして実行して下さい
>もう少しで動きそうなんですが、うまくいきません。
>行は8行くらいで、列は300位あり1列目、7列目、13列目と
>6 列ごとにデ -タを抽出したいのです。
> プログラムのどこを変更すればいいのでしょう?
行と列を間違えていませんか?
6行ごとに抽出する様に書いて有りますが?
Public Sub Extraction2()
Dim i As Long
Dim j As Long
Dim wksData As Worksheet
Application.ScreenUpdating = False
Set wksData = ActiveSheet
With wksData
j = 2
For i = 2 To .Range("A65536").End(xlUp).Row Step 6
.Cells(i, 2).Resize(, 7).Copy _
Destination:=.Cells(j, 10)
j = j + 1
Next i
End With
Set wksData = Nothing
Application.ScreenUpdating = True
End Sub
|
|