A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
その検索を1度しかしないのであれば多少処理が遅くてもセル関数でやってしまう方が面倒が無くて良さそうに思えます。
シートAのA列に会社名が縦に入っていると仮定して、
B1に↓を入れて下方向へオートフィルしてください。
=COUNTIF(シートB!$1:$65536,A1)
0/1ではなく、シートBに存在した数が表示されます。
No.3
- 回答日時:
#1です。
ようは”あるか・ないか”でいいんですよね?
そうならば、IF関数とCOUNTIF関数でやるのではまずいのでしょうか?
ただ検索値が複数行&複数列であるなら無理ですけど・・・
No.2
- 回答日時:
ご提示の情報が少なすぎるのでこちらで仮定しました。
シートA⇒Sheet1とします。
シートB⇒Sheet2とします。
シートAに8000件の会社名⇒Sheet1のA1からA8000までに縦一列に入力されているものとします。
シートBの名称、ふりがな、漢字名称の全てで検索をかけたい⇒Sheet1のA1からA8000までに記入された文字列でSheet2全体を検索するという意味ですね?
横のセルに1⇒Sheet1のA1からA8000までの中でヒットしたデータの隣のセルとします。
Sub TEST01()
Dim r As Range, c As Range, i As Long
With Sheets("Sheet1") 'Sheet1で
For Each r In .Range("A1:A8000") 'A1:A8000の各セルにつき
If r <> "" Then '空白でなければ
Set c = Sheets("Sheet2").Cells.Find(What:=r.Value, LookAt:=xlWhole) 'Sheet2を完全一致検索
If Not c Is Nothing Then 'あったら
r.Offset(0, 1).Value = 1 'Sheet1の指定セルの隣に1を入力
i = i + 1 'カウント
End If
End If
Next r '次のセルで繰り返す
End With
Set c = Nothing
MsgBox i & "件を発見しました。", vbInformation, " ( ̄ー ̄)v"
End Sub
No.1
- 回答日時:
>自分なりにFindメソッド等考えてみたのですが、上手くいかなくて…
まずこのコードを提示してみては?
>ヒットしたら会社名の横のセルに1を立てたいのです!
どちらのシートに?
具体的なシート構成を提示された方が良いかも。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 16:07
- Excel(エクセル) Excel_マクロ_複数のシートのVLOOKUPで表示された#N/A以外に色付けをしたいです 1 2023/02/16 22:37
- Excel(エクセル) マクロVBAのフォルダ階層別で検索の方法 4 2022/04/03 23:23
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Visual Basic(VBA) エクセルのマクロコードの一部分を変更する方法について教えてください。 2 2023/02/17 08:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
エクセルで条件に一致したセル...
-
日付が未入力の際はゼロか、空...
-
Excelでスクロールすると文字が...
-
エクセルで1月0日と表示される!!
-
別シートのセルを絶対参照にする
-
Rangeメソッドは失敗しました。...
-
(Excel)あるセルに文字を入力...
-
自動で複数セルの内容をシート...
-
Excelシートの保護時にデータの...
-
エクセル ハイパーリンクで画像...
-
シート参照で変数を使いたい(EX...
-
Excelで複数シートの選択セルを...
-
excelでハイパーリンクになって...
-
エクセルで複写のように自動入...
-
複数シートの同じセル内容を1シ...
-
VBAで変数に関数式の結果をセッ...
-
VBAで、セル(Range)のオブジ...
-
エクセルで指定のセルのみ完全...
-
エクセルで別シートからの最大...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで条件に一致したセル...
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
(Excel)あるセルに文字を入力...
-
エクセルで1月0日と表示される!!
-
別シートのセルを絶対参照にする
-
複数シートの同じセル内容を1シ...
-
Rangeメソッドは失敗しました。...
-
Excelシートの保護時にデータの...
-
エクセルで複写のように自動入...
-
Excelで複数シートの選択セルを...
-
シート参照で変数を使いたい(EX...
-
ExcelでTODAY関数を更新させな...
-
エクセル ハイパーリンクで画像...
-
エクセルで、加筆修正したセル...
-
エクセルのセルに、マウスで選...
-
EXCEL関数でシート名が変わる可...
-
VBAで、セル(Range)のオブジ...
-
Excelのファイル容量が減らない...
-
excelでハイパーリンクになって...
おすすめ情報