|
こんにちは
>まず、セルごとに10,30,45,60・・・と数字が入っています。
>その数字に対応する行番号のところに「1」を入れて、
>それ以外のところには「0」を入れることで、
>1列のバイナリデータを作成したいのですが、
>もとの数字のデータが大量で、
>一つ一つ手作業でやっていくわけにもいかない状況です。
数字がどういう形で(どのセルに)入ってるのかわからなくて、
どの列に「1」「0」を入れていくのかわからないので、
適当に、B列に数値がタテに入っていて、A列に「0」「1」を
入れていくとして・・・
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
2段階にわけた、ベタなやりかたですけど・・・
B列に数値以外が入ってたりするとエラーになると思うので、
そういうことがあったら、エラー処理が必要になると思いますです。
|
|