ここから質問投稿すると、最大10000ポイント当たる!!!! >>

excelで同じ行に
1,1,-1,1,-1,-1,1
とあるときに,符号の変化を数える関数はありますでしょうか.

-1の個数ではなく,符号の変化なので,
上の例では4回となるような関数にしたいのですが.

もし,数える方法があるのであれば教えてください.
よろしくお願いします.

A 回答 (1件)

こんな感じで良いかな


=SUMPRODUCT((A1:G1*B1:H1<0)*1)
    • good
    • 0
この回答へのお礼

できました
本当にありがとうございます

お礼日時:2008/07/23 14:07

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q複数のエクセルファイルからデータ抽出とまとめる方法について。

500のエクセルファイルがあり、それぞれのエクセルデータのA2からF2までのデータのをまとめた一覧表(1行目は、1枚目のエクセルファイルのA2-F2、2行目は2枚目のエクセルファイルの・・・、という感じでです)のを、新しいエクセルファイルもしくはテキストなどにでも手早く作れる方法をご存知の方、ご教授ください。コピペでやっていますが嫌になってしまいました。。マクロも触っては見たのですが、2枚目のエクセルファイルを2行目に、3枚目のエクセルファイルを3行目になどの方法の解決は思いつかず、挫折しました。よろしくお願いいたします

Aベストアンサー

対象のフォルダをcドライブの「sample」とした場合で回答します。
新規エクセルブックのシート名タブを右クリックし「コードの表示」
右側のエディタエリアに下記コードを貼り付け、実行して下さい。
G列にファイル名が入るようになっています。不要であれば
Cells(rIdx, 7).Value = fName
を削除して下さい。


Sub getA_F()
Const myPath As String = "c:\sample\"
Dim rIdx As Long
Dim fName As String
fName = Dir(myPath & "*.xls")
Do Until fName = ""
Workbooks.Open Filename:=myPath & fName
rIdx = rIdx + 1
Me.Range(Cells(rIdx, 1), Cells(rIdx, 6)).Value = ActiveSheet.Range("A2:F2").Value
Cells(rIdx, 7).Value = fName
Windows(fName).Close
fName = Dir
Loop
End Sub

対象のフォルダをcドライブの「sample」とした場合で回答します。
新規エクセルブックのシート名タブを右クリックし「コードの表示」
右側のエディタエリアに下記コードを貼り付け、実行して下さい。
G列にファイル名が入るようになっています。不要であれば
Cells(rIdx, 7).Value = fName
を削除して下さい。


Sub getA_F()
Const myPath As String = "c:\sample\"
Dim rIdx As Long
Dim fName As String
fName = Dir(myPath & "*.xls")
Do Until fName = ""
Workbooks.Open ...続きを読む

Qエクセル・数値が変化したらカウントしたい

画像左のように、IDとして数字がランダムで並んでいるとします。
また、同じ数字が再登場することもあります。

とにかくこの数字が変化するたびに、1、2、3・・・と数えていきたいのです。
1からスタートして、数字が変わらない限りは同じ数字を返して欲しいです。

最終的に、画像右のような状態にしたいです。

どなたか、簡単にこの作業をこなせる方法をご存知の方がいらっしゃいましたら、ご教授ください。

使用しているのはExcel2010です。

Aベストアンサー

C2に1
C3に=IF(A3<>A2,C2+1,C2)
C3から下にフィル


人気Q&Aランキング