
A 回答 (5件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
こんにちは!
とりあえずJ1000まで対応できる数式です。
表示したいセルに
=(SUMPRODUCT(LEN(J1:J1000))-SUMPRODUCT(LEN(SUBSTITUTE(J1:J1000,"×1",""))))/2
としてみてはどうでしょうか?m(_ _)m
No.3
- 回答日時:
全角半角の区別はありますから、ご注意願います。
Sub TesTCount()
MsgBox FindCount(Range("C4:J34"), "X1")
End Sub
Function FindCount(Rng As Range, Ser_Txt As String)
Dim c As Range
Dim cnt As Long
For Each c In Rng
If Not IsError(c.Value) And c.Value <> "" Then
cnt = cnt + (Len(c.Text) - Len(Replace(c.Text, Ser_Txt, "", , , vbBinaryCompare))) / Len(Ser_Txt)
End If
Next
FindCount = cnt
End Function
関数ですと、
=(SUMPRODUCT(LEN(C4:J34))-SUMPRODUCT(LEN(SUBSTITUTE(C4:J34,"X1",""))))/LEN("X1")
No.2
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
任意フォルダから画像をすべて...
-
Excelで指定した日付から過去の...
-
【Excel VBA】セルの色によって...
-
VBA実行後に元のセルに戻りたい
-
VB.NETで、EXCELの右寄せ
-
CountIf で","(カンマ)の数が...
-
【Excel】指定したセルの名前で...
-
ExcelのVBAで数字と文字列をマ...
-
エクセルvbaで、別シートの最下...
-
DataGridViewの各セル幅を自由...
-
Excel2003 複数セル1列の入力済...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
特定の範囲内に空白セルがいく...
-
Excelのプルダウンで2列分の情...
-
Excel vbaで特定の文字以外が入...
-
ExcelVBA:オートフィルタをかけ...
-
連続する複数のセル値がすべて0...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
特定行の色を変えたい(FlexGrid)
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
エクセルvbaで、別シートの最下...
-
VBA実行後に元のセルに戻りたい
-
Application.Matchで特定行の検索
-
”戻り値”が変化したときに、マ...
-
VBAでセルをクリックする回...
-
任意フォルダから画像をすべて...
-
Excel VBAで、 ヘッダーへのセ...
-
TODAY()で設定したセルの日付...
-
【Excel VBA】指定行以降をクリ...
-
Excel vbaで特定の文字以外が入...
-
ExcelのVBAで数字と文字列をマ...
-
Excel VBA、 別ブックの最終行...
-
DataGridViewの各セル幅を自由...
-
VBA ユーザーフォーム ボタンク...
-
連続する複数のセル値がすべて0...
おすすめ情報
ご返答ありがとうございます。後者です。
どうぞよろしくお願いします。