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ランキング
-
お肉の下のシートを煮込んでし...
-
エクセルを利用して、日計と累...
-
excel シート1の奇数(偶数)...
-
条件にマッチする行を抽出するV...
-
エクセルのシートをコピーして...
-
2つのシート間での重複データ...
-
エクセルで2つのシートに同じ名...
-
エクセルでフラグがたっている...
-
エクセルで○のついた項目を抽出
-
チュロス袋の代用
-
毎日の日計を別シートに自動で...
-
エクセルで1行だけ数式が反映さ...
-
EOMONTH関数の代わり
-
指定した条件でTRANSPOSE関数を...
-
A1セルに入力したら、入力時間...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
複数の文字列のいずれかが含ま...
-
エクセルの複数のセルを一括で...
-
Excelで同じセルに箇条書きをし...
-
Excelの入力規則で2列表示したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
お肉の下のシートを煮込んでし...
-
エクセルを利用して、日計と累...
-
エクセルのシートをコピーして...
-
2つのシート間での重複データ...
-
エクセルで1行だけ数式が反映さ...
-
条件にマッチする行を抽出するV...
-
エクセルで2つのシートに同じ名...
-
毎日の日計を別シートに自動で...
-
エクセルで○のついた項目を抽出
-
指定した条件でTRANSPOSE関数を...
-
エクセルでフラグがたっている...
-
エクセル ○印がついている行を...
-
チュロス袋の代用
-
Excelで複数のシートに列のグル...
-
excel シート1の奇数(偶数)...
-
EXCELで受験票を作成したい(名...
-
excelマクロで複数シート間のデ...
-
複数シートのセルの 記号の数...
-
VBA 縦のデータを横にするコード
-
エクセル シート毎に数字を変...
おすすめ情報