No.7
- 回答日時:
A列の全体の数-(1である数)-(10である数)でも求められると
思います。
VBAでやろうとするといろいろ策がありますから、
○○をやりたいけども「xxx」を使った対応サンプルを知りたい、
とかにした質問のがいいと思います。
No.6
- 回答日時:
一例です。
数字(数値)を対象に1、10以外があった場合にB1に「×」を設定
Sub A列チェック()
Range("B1") = ""
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If LenB(Cells(i, 1)) > 0 And IsNumeric(Cells(i, 1)) Then
If Cells(i, 1) <> 1 And Cells(i, 1) <> 10 Then
Range("b1") = "×"
End If
End If
Next i
End Sub
No.5ベストアンサー
- 回答日時:
こんにちは!
一例です。
Sub test()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) <> 1 And Cells(i, 1) <> 10 Then
Cells(1, 2) = "×"
End If
Next i
End Sub
こんな感じですかね?
参考になれば幸いです。m(__)m
No.4
- 回答日時:
(1)Excel VBA で・・
こんな内容はVBAでも極く学習初期にやる易しいこと。
A列の各セルの値が「1か10以外の数字があ」るかどうかIF分で聞いて、あればRange("B1")の値を”X"にする。
見つかったところでやめるもよし、最後行までやるのよし。
IF文は1か10以外はOr条件でつなぐ
下記のようにA列最終行が必要なやり方をするかもしれない。
繰り返し法
Sub test01()
s = "": Cells(1, "B") = ""
For i = 1 To Range("a65536").End(xlUp).Row
If Cells(i, "A") = 1 Or Cells(i, "A") = 10 Then
Else
s = "x"
MsgBox Cells(i, "A")
End If
Next
Cells(1, "B") = s
End Sub
空白セルは特別扱いするのかどうか。
(2)エクセル関数
こんなのエクセルでは関数でA:Aに1か10以外のセル数をクンとして”X”をセットすればしまいだ。
(3)関数法
VBAでCOUNTIF関数を使う方法もある
(4)その他
フィルタやFindを使う方法もあるかもしれない。
(余談)抜き出す場合、フィルタオプションの設定でする場合
データ
1
1
2
10
1
10
3
a
の場合
条件は、横のセルに並べて
データデータ
<>1<>10
結果
データ
2
3
a
No.3
- 回答日時:
EXCELの配列数式を使用しています。
範囲はA1~A列の最終行です。
※必要なら変更して下さい。
Sub 検査1か10()
置換範囲 = "A1:" & Cells(Rows.Count, "A").End(xlUp).Address
Range("B1").FormulaArray = Replace("=sum((範囲<>1)*(範囲<>10))", "範囲", 置換範囲)
Range("B1") = IIf(Range("B1") = 0, "", "×")
End Sub
No.2
- 回答日時:
Sub Macro1()
GYOU = Range("A65536").End(xlUp).Row '終了行
For i = 2 To GYOU '開始行と終了行
If Cells(i, 1) <> 1 And Cells(i, 1) <> 10 Then
Cells(i, 2) = "×"
End If
Next i
End Sub
開始行が分からなかったので、2行目から始まるようにしています。
No.1
- 回答日時:
COUNTで、A列の数値の個数を求め、COUNTIFでA列の1と10の個数を求めます。
数値の個数と、1と10の個数の合計が等しければ1と10以外無しとなります。
=IF(COUNT(A:A)=(COUNTIF(A:A,1)+COUNTIF(A:A,10)),"○","×")
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Excel(エクセル) Excelの空文字判定について 7 2023/01/06 13:25
- Visual Basic(VBA) EXCEL VBAで教えてください。 1 2022/12/22 04:20
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) Excelで数式をそのままコピーしたい どうすればいいですか? 4 2022/09/16 02:16
- Excel(エクセル) Excel表示形式 2 2022/09/09 09:57
- Excel(エクセル) B列に、A列の数字が偶数の場合は1減算した数字、奇数の場合はそのまま数字を自動表示したい 4 2022/04/16 12:01
- Excel(エクセル) A列が指定数値以上になったらD列の計算式を変更 3 2022/07/11 11:03
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
-
4
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
5
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
6
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
7
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
8
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
9
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
10
エクセルで空白以外のセルの値を取りたいのですが
その他(Microsoft Office)
-
11
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
12
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
13
excel2010 マクロで複数シート検索し、一致した行をコピーしたい
Excel(エクセル)
-
14
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
-
15
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
16
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
17
VBA 列全体を別シートの列と比較し、同じ値がある行の、右端に値をコピーする方法について
Excel(エクセル)
-
18
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
19
エクセルエラー13型が一致しませんの直し方教えて下さい。
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数の文字列のいずれかが含ま...
-
Excelの入力規則で2列表示したい
-
SUMに含まれる範囲から特定のセ...
-
数式が入ったセルを含めて、数...
-
列の数字に100をかけたい
-
エクセルで表示されている数字...
-
エクセル:横長の表を改行して...
-
スペースとスペースの間の文字...
-
エクセルでセルの値分の個数の...
-
Excel上でのデータ数字が連番で...
-
別のセルに値が入力されたら、...
-
入退社日より各月末の在籍者数...
-
エクセルのsumifでかけ算してか...
-
エクセルで2行まとめて並び替...
-
時間を「昼間」と「夜間」に分...
-
フィルターかかってる時のSU...
-
エクセルで1列全部10倍したい
-
【EXCEL】指定したセルの値を他...
-
エクセルで小数を含む数値の抽出
-
HYPERLINKとADDRESSとMATCHの組...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数の文字列のいずれかが含ま...
-
Excelの入力規則で2列表示したい
-
SUMに含まれる範囲から特定のセ...
-
数式が入ったセルを含めて、数...
-
Excel上でのデータ数字が連番で...
-
列の数字に100をかけたい
-
スペースとスペースの間の文字...
-
別のセルに値が入力されたら、...
-
エクセルで表示されている数字...
-
エクセルでセルの値分の個数の...
-
エクセル:横長の表を改行して...
-
[関数について]わかる方教えて...
-
エクセル関数に詳しい方教えて...
-
エクセルで、毎日の走行距離(...
-
エクセルのsumifでかけ算してか...
-
HYPERLINKとADDRESSとMATCHの組...
-
エクセルで曜日に応じた文字を...
-
入退社日より各月末の在籍者数...
-
エクセルで1列全部10倍したい
-
エクセルで小数を含む数値の抽出
おすすめ情報