![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
シート2のA列に注文者の名前が有るとして。
例えばC1セルに次の式を入力して下方にドラッグコピーすることでシート1に同じ名前の参加者が有る場合にその方の会場番号を表示します。=IF(OR(A1="",COUNTIF(Sheet1!B:B,A1)=0),"",INDEX(Sheet1!A:A,MATCH(A1,Sheet1!B:B,0)))
印をつけるとの作業は上の作業で良いのでしょうか。
シート1のB列の名前がシート2の注文者の名前と一致すればシート1のC列に○などの表示をさせるのでしたらシート1のC1セルには次の式を入力して下方にドラッグコピーします。
=IF(COUNTIF(Sheet2!A:A,B1)=0,"","○")
=
この回答へのお礼
お礼日時:2012/11/08 09:34
助かりました。○印をつけるより、会場番号を表示させた方がありがたかったので、上の方法で処理しました。多くのデータがあったので困ってましたが、解決しました。ありがとうございました。
No.3
- 回答日時:
'マッチングプしたデータをマークして指定された列をコピー
Option Explicit
Sub MakingCells()
Const xFrom = "Sheet1" 'データ元
Const xTo = "Sheet2" 'コピー先
Const xSign = "印" 'マーキング
Const xKey_From = "B" 'キー列データ元
Const xKey_To = "A" 'キー列コピー先
Const xPick_From = "A" 'コピー列データ元
Const xPick_To = "E" 'コピー列コピー先
Const xHeads = 1 'ヘッダ行数
Dim kk As Long
Dim nn As Long
Dim xSheet_From As Worksheet
Dim xSheet_To As Worksheet
Dim xLast_From As Long
Dim xLast_To As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSheet_From = Sheets(xFrom)
Set xSheet_To = Sheets(xTo)
xSheet_To.Columns(xPick_To).Clear
'最終行チェック
xLast_From = xSheet_From.Cells(Rows.Count, xKey_From).End(xlUp).Row
xLast_To = xSheet_To.Cells(Rows.Count, xKey_To).End(xlUp).Row
For kk = 1 + xHeads To xLast_To
If (xSheet_To.Cells(kk, xKey_To) <> Empty) Then
For nn = 1 + xHeads To xLast_From
If (xSheet_From.Cells(nn, xKey_From) <> Empty) Then
If (xSheet_To.Cells(kk, xKey_To) = xSheet_From.Cells(nn, xKey_From)) Then
'xSheet_To.Cells(kk, xKey_To) = xSheet_To.Cells(kk, xKey_To) & xSign
xSheet_To.Cells(kk, xKey_To) = xSheet_From.Cells(nn, xKey_From) & xSign
xSheet_To.Cells(kk, xPick_To) = xSheet_From.Cells(nn, xPick_From)
End If
End If
Next nn
End If
Next kk
Epilogue:
xSheet_To.Select
Application.CutCopyMode = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
No.1
- 回答日時:
Sheet1のC2セルに以下の式を貼り付けて、下にドラッグコピーし、
=A2
(Sheet2のA2セルから下に注文者の指名が記載されているとした場合)
Sheet2のB2セルに以下の式を貼り付けて、下にドラッグコピーしてみてください。
=VLOOKUP(A2,Sheet1!B:C,2,FALSE)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) Excel セルに入っている日付を参照して、別シートのリストを表示させたい 1 2022/04/12 17:02
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) エクセル関数について 8 2023/06/28 17:04
- その他(パソコン・スマホ・電化製品) エクセル初心者です。 仕事でエクセルを使っていて、普段は素人でもできる簡単な関数を使ったことがある程 1 2022/05/25 11:17
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Excel(エクセル) Excel関数 情報引用する方法 4 2022/07/31 20:59
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Visual Basic(VBA) VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。 1 2023/03/16 18:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
お肉の下のシートを煮込んでし...
-
毎日の日計を別シートに自動で...
-
エクセルで1行だけ数式が反映さ...
-
エクセルで○のついた項目を抽出
-
エクセルを利用して、日計と累...
-
チュロス袋の代用
-
条件にマッチする行を抽出するV...
-
2つのシート間での重複データ...
-
Excelで複数のシートに列のグル...
-
エクセルでフラグがたっている...
-
指定した条件でTRANSPOSE関数を...
-
カップルシートがあるダイニン...
-
フライパンで魚を焼く時のフラ...
-
エクセルシート 移動またはコピー
-
エクセル入力で項目別に複数シ...
-
excelに詳しい方お願いします ...
-
Excel 指定セルの内容を別シー...
-
エクセルのシートをコピーして...
-
エクセルで特定の値を含む行を...
-
excel シート1の奇数(偶数)...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
お肉の下のシートを煮込んでし...
-
エクセルを利用して、日計と累...
-
エクセルのシートをコピーして...
-
2つのシート間での重複データ...
-
毎日の日計を別シートに自動で...
-
条件にマッチする行を抽出するV...
-
エクセルで1行だけ数式が反映さ...
-
エクセルで2つのシートに同じ名...
-
指定した条件でTRANSPOSE関数を...
-
excel シート1の奇数(偶数)...
-
エクセルでフラグがたっている...
-
チュロス袋の代用
-
Excelで複数のシートに列のグル...
-
エクセル ○印がついている行を...
-
EOMONTH関数の代わり
-
EXCELで受験票を作成したい(名...
-
エクセルで○のついた項目を抽出
-
複数シートのセルの 記号の数...
-
VBA 縦のデータを横にするコード
-
複数シートの列、幅の一括変更方法
おすすめ情報