こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excelの一つのセルに検索結果を表示する方法

添付画像の様に要素の有り無しで検索をし、エクセルの一つのセルに検索結果を表示させる方法はありませんか?
そして要素の有り無しの結果は別のExcelファイルに出力させたいです。

もしVBA等を使ってでもできる方法があれば教えてください。

投稿日時 - 2020-02-19 12:02:46

QNo.9714558

困ってます

質問者が選んだベストアンサー

単純なものでしたら
Sheet1に元データを置いて置くとして
Sheet2に結果を取り出して、Sheet2を新しいブックとして新規に開きます。

Sub Test()
Dim i As Long
Dim yoso1 As String: yoso1 = ""
Dim yoso2 As String: yoso2 = ""

With Sheets("Sheet1")
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
If .Cells(i, "B").Value = "◯" Then
yoso1 = yoso1 & .Cells(i, "A").Value & "、"
End If
If .Cells(i, "C").Value = "◯" Then
yoso2 = yoso2 & .Cells(i, "A").Value & "、"
End If
Next
End With
With Sheets("Sheet2")
.Range("B1").Value = Left(yoso1, Len(yoso1) - 1)
.Range("B2").Value = Left(yoso2, Len(yoso2) - 1)
.Copy
End With
End Sub

投稿日時 - 2020-02-19 12:41:29

お礼

ご回答ありがとうございます。
"yoso1"と”yoso2”の受け皿を作って、ifで該当する項目を検索して、受け皿に溜まったものを指定のB1,B2に吐き出すのんですよね?

ありがとうございます。

投稿日時 - 2020-02-19 13:16:29

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問