Excel VBA質問スレ Part7

Excel VBA質問スレ Pa ..

731:デフォルトの名無しさん
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

次ページ

続きを表示

1を表示