教えてください。

Aセルに数字(1、2、3~8、5、1~3)といったように入力されていて、「~」が入っているものだけに「複数」というテキストをそのセルの横に入力したい場合、どうすれば良いでしょう。

「~」を含む行だけをフィルターにかければ簡単なのですが、できれば関数を使用して一気に最終行までコピーしたいのです。

宜しくお願いします。

A 回答 (1件)

=IF(COUNTIF(A1,"*~*")=1,"複数","")


参考HPも紹介します

参考URL:http://www2.odn.ne.jp/excel/waza/function.html#S …
    • good
    • 0
この回答へのお礼

ありがとうございました。
countifは、個数を数えるだけのものと理解していたので、勉強になりました。

お礼日時:2001/10/22 14:52

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

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

Q特定の文字を含むセルとそのセルを含む4行下のセルまで同じ色をつけたい。

ヨガのクラススケジュール表を作っています。
クラスの種類がいろいろあって、所要時間もそれぞれ違います。
添付画像のようにクラス名によって4行分だったり3行分のセルに色をつけたい場合、条件付き書式や関数で行えるでしょうか?
行える場合そのやり方、関数式を教えて頂けると嬉しいです。
宜しくお願い致します。

Aベストアンサー

いろいろ考えてみました。
条件付き書式でよいのかと思いましたが、
「ヨガ1」「ヨガ2」と数字が入っていますから、それで判別してみたらどうでしょうか。

>4行分だったり3行分のセルに色をつけたい
これ自体は、問題はありません。

例えば、その表が、B56からあるとすれば、色塗りの範囲を全部含めて、その先頭のセルの文字列に対して、

それぞれの設定で、COUNTIFで、結合セルの中の単語や文字を探します。

=COUNTIF(B56,"*1*")>0  として、書式-色の塗りつぶしの設定をします。

=COUNTIF(B56,"*2*")>0

=COUNTIF(B56,"*3*")>0

また、結合セルのセルの行数を取る方法を、マクロでは、MergeAreaというプロパティは知られていますが、マクロなしでは、今のところ見当たらないです。

QActiveセルの最終列の値を代入し、セル最終行までコピーするには

最終列の値の代入をここで教えていただいてできました。

J = Range("IV2").End(xlToLeft).Column
For i = J to 1 Step -1
If InStr(Cells(2, i).Value, "単価") > 0 Then
Cells(3, i).Value = Cells(3, J).Value
End If
Next i
この、Cells(3, i).Value = Cells(3, J).Value を、

"単価"列の最終行までコピーするには
どのような記述をしたらいいでしょうか?
しばらく悩んでいますができません。。。

お力を貸してください。!

Aベストアンサー

#2です。

> 一番右の列には、単価列と同じ行数あります。

A列ではなく、2行目の一番右の列の行数を基準にするんですね?

Sub TEST()
Dim i As Integer, x As Integer
Application.ScreenUpdating = False
x = Cells(2, ActiveSheet.Columns.Count).End(xlToLeft).Column
For i = x To 1 Step -1
If InStr(Cells(2, i).Value, "単価") > 0 Then
For r = 3 To Cells(ActiveSheet.Rows.Count, x).End(xlUp).Row
Cells(r, i).Value = Cells(r, ActiveSheet.Columns.Count).End(xlToLeft).Value
Next r
End If
Next i
Application.ScreenUpdating = True
End Sub

ではおやすみなさい。

#2です。

> 一番右の列には、単価列と同じ行数あります。

A列ではなく、2行目の一番右の列の行数を基準にするんですね?

Sub TEST()
Dim i As Integer, x As Integer
Application.ScreenUpdating = False
x = Cells(2, ActiveSheet.Columns.Count).End(xlToLeft).Column
For i = x To 1 Step -1
If InStr(Cells(2, i).Value, "単価") > 0 Then
For r = 3 To Cells(ActiveSheet.Rows.Count, x).End(xlUp).Row
Cells(r, i).Value = Cells(r, ActiveSheet.Columns.Count).End(xlToLeft).Value
...続きを読む

Q入力セルが空白の時 隣りと隣のセル(こちらも入力セル)を空白にできるかどうか?

こういったことできないでしょうか。

 A1  B2  C3
9:00  ~  10:00 と場合に

A1とC3に直接値を入力しています。

A1セルに値がはいらないとき B2のチルダも C3の値も 空白になってくれると
よいなと思うのですが 良い方法はありますでしょうか。

ご存知の方ご教示いただければ助かります。

Aベストアンサー

こんばんは!

>C3のセルのことを B2に入力した式で
>管理できないかと思っているのですが・・・

関数では無理だと思います。
VBAになりますが一例です。

画面左下の操作したいシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A1・C3セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から//
If Intersect(Target, Range("A1,C3")) Is Nothing Then Exit Sub
If Target.Count = 1 Then
With Target
If .Row = 1 Then
If .Value <> "" Then
If Range("C3") <> "" Then
Range("B2") = "~"
End If
Else
Range("B2,C3").ClearContents
End If
Else
If .Value <> "" Then
Range("B2") = "~"
Else
Range("B2").ClearContents
End If
End If
End With
End If
End Sub '//この行まで//

※ A1セルがC3セルより大きな値になった場合などの細かいエラー処理はしていません。

こんな感じをお望みなのでしょうか?m(_ _)m

こんばんは!

>C3のセルのことを B2に入力した式で
>管理できないかと思っているのですが・・・

関数では無理だと思います。
VBAになりますが一例です。

画面左下の操作したいシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A1・C3セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から//
If Intersect(Target, Range("A1,C3")) ...続きを読む

QA列の空白のセルを含んだ最終列を削除するには・・・

マクロを使用してA列の空白のセルを含んだ最終列およびその左隣の列を削除するにはどうしたらよいのでしょうか?
よろしくお願いします。

Aベストアンサー

A列の最終行のセルを選択する方法です。

参考URL:http://www.moug.net/skillup/nksw/nksw01-02.htm

Qエクセル あるセルに文字を入力した後ボタン一つでそのセルを入力の状態ではなく只その同じセルを選択している状態にしたい

選択したセルに文字を入力するときF2キーで入力できるようになると思うのですが、その逆をやりたいのですが、ボタンひとつできる方法はありますか。入力して縦線が点滅しているのを、ただセルを選択した状態にしたいのです。
今はいったんenterかtabを押してから、矢印キーで再度そのセルに戻っているのですが、ボタンひとつでできる方法があると面倒でなくなると思うので。
具体的には入力した直後に、そのセルをコピーして別のセルに貼り付けたいのです。
ちょっと分かりづらくて申し訳ありませんが教えてください。

Aベストアンサー

CtrlキーとEnterを同時押しすればセル移動しませんよ。


人気Q&Aランキング

おすすめ情報