08/08/08 10:47:54
>>730
速度気にするなら無駄多すぎｗ
Sub hoge()
Const DATA_N As Integer = 50
Const DATA_ROW As Integer = 250
Dim Buf As Variant
Dim iC As Integer, iC2 As Integer, X As Integer
Buf = Sheet1.Range("A1").Resize(DATA_ROW, DATA_N).Value
For iC = 1 To DATA_ROW
If Buf(iC, 1) = "A" Then
X = X + 1
For iC2 = 1 To DATA_N
Buf(X, iC2) = Buf(iC, iC2)
Next iC2
End If
Next iC
Sheet1.Cells(DATA_ROW + 2, "A").Resize(X, DATA_N).Value = Buf
End Sub