投稿日 | : 2005/12/13(Tue) 18:19 |
投稿者 | : ふじた |
Eメール | : |
URL | : |
タイトル | : 条件にあったセルのコピー&ペースト |
はじめまして。初心者のふじたと申します。どうしても上手くいかないので参りました。
条件にあったセルをコピーして別シートにペーストという動作をFor..Nextを用いて作ってみたつもり
なんですが、上手くいきません。以下に書いたものを載せますのでご鞭撻のほどよろしくお願いいた
します。
Sub 抽出()
If MsgBox("要求事項の抽出を行いますか?", vbYesNo) = vbYes Then
x = Application.WorksheetFunction.CountA(Range(Cells(8, 2), Cells(127, 2)))
y = x * 6
z = Worksheets("マトリックス").Cells(128, 14)
For i = 8 To y + 7
For j = 9 To 9 + (z - 1)
Worksheets("点数").Cells(i, 14) = (Worksheets("点数").Cells(i, 13
)) / (Worksheets("点
数").Cells(8, 15))
p = Worksheets("点数").Cells(i, 14)
If p >= 2 And p <= 10 Then
Sheets("マトリックス").Select
Range(Cells(i, 3), Cells(i, 13)).Select
Selection.Copy
Sheets("要求事項").Select
Range(Cells(j, 4), Cells(j, 14)).Select
ActiveSheet.Paste
End If
Next
Next
Worksheets("要求事項").Select
End If
End Sub