| |
こんにちは
>まず、セルごとに10,30,45,60･･･と数字が入っています。
>その数字に対応する行番号のところに｢1｣を入れて、
>それ以外のところには｢0｣を入れることで、
>１列のバイナリデータを作成したいのですが、
>もとの数字のデータが大量で、
>一つ一つ手作業でやっていくわけにもいかない状況です。
数字がどういう形で（どのセルに）入ってるのかわからなくて、
どの列に「１」「０」を入れていくのかわからないので、
適当に、Ｂ列に数値がタテに入っていて、Ａ列に「０」「１」を
入れていくとして・・・
Sub test()
Dim i As Long
For i = 1 To Range("b65536").End(xlUp).Row
Cells(Cells(i, 2).Value, 1).Value = 1
Next i
For i = 1 To Range("a65536").End(xlUp).Row
If Cells(i, 1).Value = "" Then
Cells(i, 1).Value = 0
End If
Next i
End Sub
２段階にわけた、ベタなやりかたですけど・・・
Ｂ列に数値以外が入ってたりするとエラーになると思うので、
そういうことがあったら、エラー処理が必要になると思いますです。
|
|
つん
- 04/1/6(火) 15:05 -
