エクセル セル番地の取得について

Ａ1～Ａ50のセルに関数式（条件式）が入っており、このＡ1～Ａ50のセルの値が1又は0と表示されます。その時1が表示されているセル番地を取得したい（知りたい）のですがどうすれば良いのですか？1が表示されるセルは複数あります。
たぶんマクロになると思うのですがご教示お願いします。

No.5 ベストアンサー 回答者： ka_na_de 回答日時： 2007/07/11 18:42

＃１のka_na_deです。

追加質問の件ですが、一例を示します。

Sub test2()
　　Dim r As Long
　　Dim s As Long

　　s = 1
　　Range("D:E").ClearContents
　　For r = 1 To 50
　　　　If Cells(r, "A").Value = 1 Then
　　　　　Cells(s, "D").Value = Cells(r, "B").Value
　　　　　Cells(s, "E").Value = Cells(r, "C").Value
　　　　　s = s + 1
　　　　End If
　　Next
End Sub

この回答へのお礼

レスありがとうございました。
解決しました。更なるマクロの勉強に役立てていきます。

お礼日時：2007/07/13 22:25

No.4 回答者： imogasi 回答日時： 2007/07/07 07:07

Sub test01()

Dim cl As Range
k = 1
For Each cl In Range("A1:A50")
If cl = 1 Then
Cells(k, "C") = cl.Address
k = k + 1
End If
Next
End Sub
C列に番地を出している。
関数式の有無を条件に加えるなら
If cl = 1 Then
を
If cl = 1 And cl.HasFormula Then

この回答への補足

レスありがとうございます。追加で質問させてください。
Ａ1～Ａ50のセルの値が1と表示された隣のＢとＣ列の値（数字または文字）をＤとＥ列にはき出したいです。
例）Ａ25とＡ40で1が表示→Ｂ25の値をＤ1へ、Ｃ25の値をＥ1へ、Ｂ40の値をＤ2へ、Ｃ40の値をＥ2へ、みたいに。
又、ＤとＥ列にはき出す前に、ＤとＥ列の値をクリアしたいです。（何度もこのマクロを実行するため）
お手数おかけしますがよろしくお願いします。

　　

補足日時：2007/07/09 23:54

No.3 回答者： mike_g 回答日時： 2007/07/07 02:03

ANo.2 ですが、こちらの方が簡単ですね。

任意の空きセルに次の配列数式を入力
　　{="A"&LARGE((A$1:A$50)*ROW(A$1:A$50),ROW(A1))}
そのセルに次の条件付き書式を設定
　　セルの値が　次の値に等しい　A0
　　フォント色　白

この回答へのお礼

レスありがとうございます。
こういう関数ができることを始めて知りました。
参考になりました。

お礼日時：2007/07/11 22:24

No.2 回答者： mike_g 回答日時： 2007/07/07 01:44

C1 に次の配列数式を入力

　 {="A"&SMALL((A$1:A$50)*ROW(A$1:A$50),50-SUM(A$1:A$50)+ROW(A1))}
C1に次の条件付き書式を設定
　 数式が　=ISERROR(C1)
　 フォント色　白

セル C1 を下方にズズーッと複写

No.1 回答者： ka_na_de 回答日時： 2007/07/07 00:26

目的が良く分かりませんが、

これでどうですか？


B1:
=IF(A1=1,CELL("address",A1),"")

B2:
=IF(A2=1,B1&","&CELL("address",A2),B1)

B3～B50は　B2をコピー＆ペースト

これで、B50にセル番地が列記されます。

この回答へのお礼

関数式でもできたのですね。
ありがとうございます。

お礼日時：2007/07/11 11:02