A列に4桁の番号が、500件ほどあります
B列に1000件ほど4桁の番号があります。
A列に番号がある人だけに、まるをつけたいのですが・・
仮にA列が合格番号、B列が、合格者だとしたら
合格者だけをピックアップしたいのです。
MATCH関数を使えばいいのか、わからずこまっています。お教え下さい

このQ&Aに関連する最新のQ&A

A 回答 (2件)

C列に


=IF(COUNTIF(A:A,B2),"○","")
    • good
    • 0
この回答へのお礼

できました。ありがとうございます。

お礼日時:2005/04/24 14:03

オートフィルターでは如何でしょうか。


・A列先頭に位置づけ
・データ→フィルター→オートフィルターをチェック
・プルダウンリストが出ますので、スペース以外を選択
    • good
    • 0
この回答へのお礼

ありがとうございます。ただこれは、少し意味が違いまして・・

お礼日時:2005/04/24 14:03

このQ&Aに関連する人気のQ&A

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

このQ&Aを見た人が検索しているワード

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

QAccessの抽出条件

お世話になります。
選択クエリの抽出条件の書き方がわかりません、どなかたお教えください。
質問:基本データ、の数値定義の、登録番号の、4225403~4246003の間の抽出条件で選択クエリの抽出条件セル内にどのように書けばよいでしょうか?

ちなみに私は、&[Forms]![F_抽出条件]![抽出条件]のForms、F_抽出条件、抽出条件、!、[] 等の意味がまったくわからないレベルです。
そのままセルにコピペでOKの形で教えてください。

Aベストアンサー

こんばんは。

>そのままセルにコピペでOKの形で教えてください。
あなたのデータベースのフォーム名とかテキストボックス名が
不明なのでコピペ形式の回答は無理です。

>、&[Forms]![F_抽出条件]![抽出条件]
  「F_抽出条件」というフォームの「抽出条件」というテキストボックスという意味です。
  F_抽出条件」フォームを開いておいて、クエリのデザイン画面から
  抽出条件を右クリックしてビルドでフォーム-読込まれたフォーム
  抽出条件テキストボックスとクリックしていくと簡単に抽出条件が
  入力できますよ。

 ご参考まで。

QEXCELの表、組[A列]:番号[B列] を 組[A列]:番号[行]に変換する方法

EXCELに
A列に組、B列に番号がそれぞれ反映されている表があります。
これを
A列に組、同行に番号が横並びに配置された状態に変更したいと考えております(添付画像)。

D列にはA列の組名を「重複なし」で貼り付けます。
このとき、E列~K列にどのような数式を入力すればよろしいでしょうか?
E1に入力する数式を教えていただけるとありがたいです。
何卒よろしくお願いいたします。

Aベストアンサー

こんばんは!

画像の配置だとE1セルに
=IF($D1="","",IFERROR(INDEX($B$1:$B$1000,SMALL(IF($A$1:$A$1000=$D1,ROW($A$1:$A$1000)),COLUMN(A1))),""))

配列数式になりますので、Ctrl+Shift+Enterで確定!
この画面からコピー&ペーストする場合は
上記数式をドラッグ&コピー → E1セルを選択 → 数式バー内に貼り付け →そのまま(編集可能なまま)
Ctrl+Shiftキーを押しながらEnterキーで確定!
数式の前後に{ }マークが入り配列数式になります。

最後にE1セルのフィルハンドルで列・行方向にずぃ~~~!っとフィル&コピーします。

こんな感じではどうでしょうか?m(_ _)m

QRT-PCRをするためにRNA抽出をしています。フェノールの後のクロロ

RT-PCRをするためにRNA抽出をしています。フェノールの後のクロロホルムは極性の差を大きくして、水層と油層に分けやすくするためと書いてあったのを見たんですが、この場合のクロロホルムと、本によく載っているフェノール抽出の後のクロロホルム抽出とはまた違う意味なのでしょうか?よろしくお願いします。

Aベストアンサー

ご存知かもしれませんが、フェノールはタンパク質を変性させる疎水性物質で、
細胞膜も破壊します。
私はTRIzolを使っていましたが、柔らかい組織ならvortexでかなり懸濁できます。

フェノールは疎水性とはいえ、OH基があるため若干の水溶性があります。
なので、フェノールと水を混ぜて遠心すると二層に分かれますが、水層にも多少溶けています。フェノールは変性作用があるため、後々のPCR等の酵素反応を阻害してしまいます。
フェノールを使ってタンパク質を変性させ、タンパク質の疎水基を露出させることによって中間層に集めるわけですが、後のことを考えてできるだけフェノールは水層から取り除きたいわけです。

クロロホルムにはフェノールのような変性作用はありませんが強力な疎水性物質なので、フェノール+水の溶液に加えるとフェノールを疎水層にほぼ完璧に溶解させることができます。

なのでRNA抽出でもDNA抽出でもクロロホルムの作用はその強力な疎水性でタンパク質を
中間層に集める作用(これはフェノールでも可)とフェノール自体を水層からできるだけ
除去するという作用があるのだと思います。

ご存知かもしれませんが、フェノールはタンパク質を変性させる疎水性物質で、
細胞膜も破壊します。
私はTRIzolを使っていましたが、柔らかい組織ならvortexでかなり懸濁できます。

フェノールは疎水性とはいえ、OH基があるため若干の水溶性があります。
なので、フェノールと水を混ぜて遠心すると二層に分かれますが、水層にも多少溶けています。フェノールは変性作用があるため、後々のPCR等の酵素反応を阻害してしまいます。
フェノールを使ってタンパク質を変性させ、タンパク質の疎水基を露出させること...続きを読む

QExcel2013 VBA A列とB列の文字をA列とB列とC列に移動させる方法

A列とB列に文字が入っているのですが、下記のようにA列とB列とC列に文字を移動させたいです。
(A列の数字は必ず奇数のA列に入っています。)
VBAのコードを教えて下さい。

例えば
A1 1  B1 cat
A2 空白 B2 猫
A3 空白 B3 dog
A4 空白 B4 犬
A5 2  B5 whale
A6 空白 B6 クジラ
A7 3  B7 rabbit
A8 空白 B8 ウサギ

とデータがある場合

A1 1  B1 cat  C1 猫
A2 空白 B2 dog  C2 犬
A3 2  B3 whale  C3 クジラ
A4 3  B4 rabbit C4 ウサギ

としたいです。

実際、データは、A5196まであります。

Aベストアンサー

No.1です。

>実際、データは、A5196まであります。

前回のコードは一つずつカット&ペーストしていますので
かなりの時間を要すると思います。
↓のコードに変更してみてください。

Sub Sample2()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(1, "C"), Cells(lastRow, "C"))
.Formula = "=IF(MOD(ROW(),2)=1,B2,"""")"
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Application.ScreenUpdating = True
MsgBox "完了"
End Sub

少しは短縮できると思います。m(_ _)m

No.1です。

>実際、データは、A5196まであります。

前回のコードは一つずつカット&ペーストしていますので
かなりの時間を要すると思います。
↓のコードに変更してみてください。

Sub Sample2()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(1, "C"), Cells(lastRow, "C"))
.Formula = "=IF(MOD(ROW(),2)=1,B2,"""")"
.Value = .Value
.SpecialCells(xlCellTypeB...続きを読む

Qエクセル2000フィルター抽出条件式について

フィルター抽出条件がうまく抽出出来ません教えてください。
抽出条件式 別シートで作っている。(Bシート) 
巡視日     巡視日
>=2002/05<=2002/07
条件式の意味
2002年5月以上で2002年7月以下のデータを抽出する。
2002年5月以上のデータは抽出できるが、2002年7月が抽出されない
2002年5月と2002年6月しか出てこない。

データベース(Aシート)
C列
巡視日
4月8日
5月11日
5月11日
6月5日
7月4日
7月4日

エクセル操作(データ→フィルター→フィルターオプション設定)で
検索条件範囲を
巡視日     巡視日
>=2002/05<=2002/07
指定してやるとデータベース(Aシート)のC列の抽出が
2002年5月以上のデータは抽出できるが、2002年7月が抽出されない
2002年5月と2002年6月しか出てこない。
何故でしょうかよろしくお願いします。

Aベストアンサー

こんにちは

>2002年5月と2002年6月しか出てこない。
手入力で 2002/5 とか 2002/7 とすると
EXCELが 2002/5/1 や 2002/7/1 と勝手に
判断して変換されている筈です。

2002/7/1以下と指定したのと同様です

月間を抽出するのにそれぞれ違う月末を考えながら
入力するのも面倒な場合は

巡視日    巡視日
>=2002/5/1  <2002/8/1

の方が楽ですね(^^;

QA列とB列の重複を抽出したいのですがA列とB列の値は一部だけ同じ文字です。ご教示お願いします。

エクセル初心者です。重複を見つけるのが仕事です。いろいろやってみたのですがうまくできません。
お知恵をお貸しください。

A列には企業名が入力されています。
B列にも企業名が入力されていますが全く同じ文字ではないのです。

たとえばこういうことです。
A1 (有)雪見酒      B1  雪見
A2 株式会社豪雪地帯   B2 (株)豪雪地帯
A3 ゆきかき本舗     B3 (有)ゆきかき本舗

A列にある企業名とB列にある企業名が同じであればセルを塗りつぶすか○を表示させるように
したいのです。
重複を見つけるのが目的なので、ほかの方法でもかまいません。
すみません、A列のセルとB列のセルが全く同じ名前ならば重複が見つけられたのですが
ここから先がどうしてもわからないのです。。。
申し訳ありませんがどうか教えてください。。。

Aベストアンサー

No4です。以下のマクロを標準モジュールへ登録してください。
--------------------------------------------------
Option Explicit
Public Sub 重複チェック()
Dim maxrow1 As Long
Dim maxrow2 As Long
Dim row1 As Long
Dim row2 As Long
Dim nameT1() As String
Dim nameT2() As String
Dim t1, t2 As Variant
t1 = Time
maxrow1 = Cells(Rows.Count, "A").End(xlUp).row '最大行取得
maxrow2 = Cells(Rows.Count, "B").End(xlUp).row '最大行取得
ReDim nameT1(maxrow1)
ReDim nameT2(maxrow2)
Range("C1:" & "D" & maxrow2).Value = ""
Call makeTable(nameT1, "A", maxrow1)
Call makeTable(nameT2, "B", maxrow2)
For row1 = 1 To maxrow1
For row2 = 1 To maxrow2
If Cells(row2, "C") = "" Then
If Mymatch(nameT1(row1), nameT2(row2)) = True Then
Cells(row2, "C").Value = "○"
Cells(row2, "D").Value = row1
End If
End If
Next
Next
t2 = Time
MsgBox ("チェック完了 処理時間=" & Minute(t2 - t1) & "分" & Second(t2 - t1) & "秒")
End Sub
'余分な文字を削除した結果をテーブルに格納する
Private Sub makeTable(ByRef nameT() As String, ByVal col As String, ByVal maxrow As Long)
Dim row As Long
Dim ary As Variant
Dim name As String
Dim i As Long
ary = Array("㈱", "(株)", "株式", "(有)", "有限", "会社")
For row = 1 To maxrow
name = Cells(row, col).Value
For i = 0 To UBound(ary)
name = Replace(name, ary(i), "")
Next
nameT(row) = name
Next
End Sub
'企業名が一致かどうか判定する
Private Function Mymatch(ByVal name1 As String, ByVal name2 As String) As Boolean
Mymatch = False
Dim pos As Variant
pos = InStr(1, name1, name2, vbTextCompare)
If pos > 0 Then Mymatch = True
End Function
-----------------------------------------------------
一致の精度が悪ければその旨補足してください。
(一致すべきものが一致しない、一致してはいけないものが一致している)
100%解決できる保証はありませんが、多少のチューニングは行います。

No4です。以下のマクロを標準モジュールへ登録してください。
--------------------------------------------------
Option Explicit
Public Sub 重複チェック()
Dim maxrow1 As Long
Dim maxrow2 As Long
Dim row1 As Long
Dim row2 As Long
Dim nameT1() As String
Dim nameT2() As String
Dim t1, t2 As Variant
t1 = Time
maxrow1 = Cells(Rows.Count, "A").End(xlUp).row '最大行取得
maxrow2 = Cells(Rows.Count, "B").End(xlUp).row '最大行取得
ReDim ...続きを読む

QExcelのワイルドカードでの抽出で・・・

ワイルドカードの「?」は任意の1文字という意味ですよね?

住所リストからデータの抽出をおこなうのに、渡辺??」という抽出をおこなったところ、「渡辺○○子」「渡辺○○美」などという結果が出てしまいました。

これってどんな原因が考えられますか?

ワイルドカードはきちんと半角で入力してあります。

Aベストアンサー

#1,2のmshr1962です。
すみません。"が1個余計でした。
="=渡辺??"
で抽出できます。

Q例えば、AさんからGさんまでがA列に縦に並んでいてB列に数字が入っています。B列にある数字の合計をA

例えば、AさんからGさんまでがA列に縦に並んでいてB列に数字が入っています。B列にある数字の合計をA-Gさん別々に出したいんですが簡単なvbaの記述方法はないでしょうか?
お願いします。

Aベストアンサー

こんばんは!

A列のA~Gさんは複数存在しているのでしょうか?
そうであればSUMIF関数で対応できると思いますが、VBAをお望みだというコトですので
一例です。

元データはSheet1にあり、Sheet2に表示するとします。
尚、Sheet1の1行目は項目行でデータは2行目以降にあるという前提です。
標準モジュールにしてください。

Sub Sample1()
Dim lastRow As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
wS.Cells.ClearContents
With Worksheets("Sheet1")
.Range("A:A").AdvancedFilter Action:=xlFilterCopy, copytorange:=wS.Range("A1"), unique:=True
lastRow = wS.Cells(Rows.Count, "A").End(xlUp).Row
With Range(wS.Cells(2, "B"), wS.Cells(lastRow, "B"))
.Formula = "=SUMIF(Sheet1!A:A,A2,Sheet1!B:B)"
.Value = .Value
End With
End With
End Sub

こんな感じではどうでしょうか?m(_ _)m

こんばんは!

A列のA~Gさんは複数存在しているのでしょうか?
そうであればSUMIF関数で対応できると思いますが、VBAをお望みだというコトですので
一例です。

元データはSheet1にあり、Sheet2に表示するとします。
尚、Sheet1の1行目は項目行でデータは2行目以降にあるという前提です。
標準モジュールにしてください。

Sub Sample1()
Dim lastRow As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
wS.Cells.ClearContents
With Worksheets("Sheet1")
.Range("A:A...続きを読む

Qニコサウンドで 音声抽出の為の遵守報告

ニコサウンドで、音楽ダウンロードしようとしたら、抽出ボタンがなく

>音声抽出には、音声に著作権上の問題が無い旨の具体的な遵

守報告が必要です<

とありました。これは どういう意味なのでしょうか?

また具体的に報告してください……と 何行か書く欄があったんで

すが、何をどう書けば良いのか迷っています。音声抽出できるよう

にする為には 何をどう書けば良いのか教えて頂けないでしょうか?

音楽配信の知識があまりないので、基本的な質問かもしれませんが

今 困っています

音声抽出できるようになる 方法を 詳しく教えて頂けると

ありがたいです……

Aベストアンサー

二通り考えられます。

1、投稿者によって、抽出出来ないようにロックされている

2、元動画が著作権法、或いはその他法律違反を犯しているため、動画自体が削除されている

原因がわかったところで対処のしようがないのですが…
1の場合なら、「DL-video」(ググってみてください)
というサイトにてニコ動のURLをコピペして一旦PCに動画ごと保存
その後mp3tubeにて変換という方法があります。
(今でも通用するかどうかは不明ですが…)

2の場合ならお手上げです。どうしようもありません

QエクセルでB列の数値がA列(A1:A10)の範囲に存在するかどうかを知りたい

こんばんは。
エクセルでこのようなことができるのかどうか分からないので、教えてください。

B列の数値がA列(A1:A10)の範囲に含まれる数値なら○、含まれない数値なら×と、C列に表示したいのですが、エクセルでそのようなことはできるのでしょうか。
できるのであれば方法を教えていただけますでしょうか。
よろしくお願いいたします。

<<最終的な結果は以下のように表示したいです>>

  A B C

1 12 19 ○

2 15 20 ○

3 19 28 ○

4 20 30 ×

5 23 34 ○

6 28 35 ×

7 32 38 ×

8 34 39 ○

9 39

10 40

Aベストアンサー

セル C1 に式 =IF(COUNTIF(A:A,B1),"○","×") を入力して、此れを下方にズズーッと複写


人気Q&Aランキング

おすすめ情報