![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.7ベストアンサー
- 回答日時:
たびたびどうも(笑)
>シート1、2で同一だったデータも表に書き入れる
というのは
「相違が無ければ、元データをそのまま表示する」
ということですか?
シート1のA1に 50という数字
シート2のA1に 50という数字があるとして
シート3のA1にも 50と表示させたい
ということでしょうか?
その場合でしたら
チョッと式を変更して
=IF(Sheet1!A1=Sheet2!A1,Sheet1!A1,"違います")
という具合でどうでしょう?
シート1と2のA1を比較して、同じなら
シート1のA1を表示する
違っていれば 違います と表示する
という意味の式になります。
こういうことで宜しいのでしょうか??
おはようございます!
昨日はどうもありがとうございました。
今朝一番に作業をしました。とても見やすい表になりました。
エクセルってすごいですね。感動です。
tizzyさん、またきっとお力を借りるときがくると思いますが、その時はよろしくお願いします!!!(^-^)
(慣れ慣れしくてごめんなさい)
No.6
- 回答日時:
> データが700行のEZ列まであるのでどうしようかと。
。。→まさか。
コピーとペーストは分かりますか?「編集」というところにありますよ。
・1行目に式を入れた後、2行目に移って、また1行目に戻ってから、式をコピー(ctrlを押しながらcキーを押す)します。
・再度2行目に移って、shiftを押しながら、↓キーか、PageDownキーを押して、2行目から700行目まで選んで、ペースト(ctlキーを押しながらvキーを押す)してください。
もしくは、
・700行目になにかデータを入れます。なんでもいいです。
・1行目に式を入れた後、2行目に移って、また1行目に戻ってから、式をコピー(ctrlを押しながらcキーを押す)します。
・再度2行目に移って、shiftとctlを押しながら↓キーを押すと、2行目から700行目まで一気に選ばれますから、ペースト(ctrlキーを押しながらvキーを押す)してください。
No.5
- 回答日時:
No.2です。
「シート1と2のデータのある範囲と同じ範囲のセルにコピー」
というのは、シート1.2のデータが
例えば、A1からH20までの中に記入されているとすると
シート3のA1からH20のセルすべてに
先程の式を入れるということです。
ひとつずつ入れると大変ですので
はじめのひとつのみを入力してあとは
コピー、貼り付けをします。
先程提示した式の中のA1という部分は
貼り付けられるセルの位置によって
自動で変わりますのでご安心を。
1. A1に =IF(Sheet1!A1=Sheet2!A1,"",1)
と入力してEnter。
2. A1のセルをコピーします
3. A1からH20までのすべてのセルを選択します
4. 選択したものの上で右クリック>>貼り付け
という手順です。
ひとつ忘れていましたが
表示される文字を「1」などの数字以外のものを
指定したい場合には
=IF(Sheet1!A1=Sheet2!A1,"","違います")
というように " " で囲むようにしてください。
上の式ですと違いが見つかったセルに
「違います」と表示されます。
説明がわかりにくかったようで申し訳ないです。
また分からなければ再度お尋ねください。
tizzyさん
丁重なお返事ありがとうございます!!
おかげさまで、想像していたとおりにできました!!
本当にありがとうございました。
これで充分なのですが、ちょっと欲がでて(^^;)
今は相違データのみ書き出されているのですが、シート1、2で同一だったデータも表に書き入れるのは難しいですか?
しつこく質問してすみませんm--m
No.4
- 回答日時:
#1です。
横入りで恐縮ですが> 「シート1と2のデータのある範囲と同じ範囲のセルにコピー」と言う意味
→シート1のA1セルと、シート2のA1セルを比べた結果であるところの「同一/相違」なり「Yes/No」なりという表示をどこかにしなければならないでしょう?
それを、シート3に表示させるとして、ではシート3のどのセルにそれを表示させればわかりやすいですか?
やっぱりA1でしょう?という意味ですよ。
もしくは、相違のあるセルの番地を列挙させたかったですか?それはVBA使わなきゃツラすぎます。
この回答への補足
アドバイスありがとうございます。
せっかくアドバイスを頂いているのに、初心者の私が使いきれてないので申し訳ないです。。。
やりたいことはこの方法でいけそうなのですが、これはセルにひとつずつコピーをしていかないといけないのでしょうか?
データが700行のEZ列まであるのでどうしようかと。。。
No.3
- 回答日時:
マクロでよければ一例として・・・
使い方
・データ検証
"Sheet1"と"Sheet2"に検証データを貼り付ける
"Sheet1"の一番左上のセルをクリックして「データ検証」を実行
終われば終了メッセージが出ます
"Sheet1"と"Sheet2"の違う箇所の文字の色が赤くなり、赤くなった列の一番上のセルも赤くなる
時間がかかって検証範囲を狭めたかったら65535(Const lngRow As Long = 65535)と
255(Const lngCol As Long = 255)を変更する
・ジャンプ
「データ検証」を実行した後
一番上の行で赤い文字のセルをクリックして「ジャンプ」を実行
その列の次の赤い文字のセルに"Sheet1"と"Sheet2"共に移動します。
赤い文字のセルが他になければメッセージが出ます
下のがマクロ
Const lngRow As Long = 65535
Const lngCol As Long = 255
Sub データ検証()
Dim lngCnt1 As Long
Dim lngCnt2 As Long
Worksheets("Sheet1").Activate
For lngCnt1 = CLng(ActiveCell.Column) To lngCol
For lngCnt2 = CLng(ActiveCell.Row) To lngRow
With Worksheets("Sheet1").Cells(lngCnt2, lngCnt1)
If .Value = Worksheets("Sheet2").Cells(lngCnt2, lngCnt1).Value Then
.Font.Color = vbBlack
Else
.Font.Color = vbRed
Worksheets("Sheet1").Cells(1, lngCnt1).Font.Color = vbRed
End If
End With
Next lngCnt2
Next lngCnt1
MsgBox ("Finish!")
End Sub
Sub ジャンプ()
Dim lngCnt1 As Long
Dim lngRet1 As Long
Dim lngCol1 As Long
Worksheets("Sheet1").Activate
lngCol1 = CLng(ActiveCell.Column)
For lngCnt1 = CLng(ActiveCell.Row) + 1 To lngRow
With Worksheets("Sheet1").Cells(lngCnt1, lngCol1)
If .Font.Color = vbRed Then
Worksheets("Sheet2").Activate
Worksheets("Sheet2").Cells(lngCnt1, lngCol1).Select
Worksheets("Sheet1").Activate
.Select
Exit For
End If
End With
Next lngCnt1
If lngCnt1 > lngRow Then
MsgBox ("There is nothing!")
End If
End Sub
アドバイスありがとうございます。
マクロは使ったことがないのですが、(超初心者で。。。)本を見ながらこの式を貼り付けましたが。。。
まだまだ勉強がたりませんね(^-^)
これを機にもっとがんばろうと思いました。
そして、いつかマクロでこれを使います!
どうもありがとうございました。
No.2
- 回答日時:
99bluesさん
まったく同じ形の表があるシート二つの照合として
ひとつの案ですが
シート1とシート2があるとして
もう1枚シート3を用意してそのシートのA1に
=IF(Sheet1!A1=Sheet2!A1,"",1)
と式を入れてシート1と2のデータのある範囲と
同じ範囲のセルにコピーします。
1と2で同じデータなら空欄になり
違いがあると1が表示されます。
表示する文字は式の最後の「1」の
ところで決められますので×とかcheck
などお好きなものでお試しください。
こういったことで宜しいのでしょうか?
お尋ねになっていることと違っていたら
ごめんなさいm(__)m
この回答への補足
どうもありがとうございます。
アドバイスどおりにやっているのですが、「シート1と2のデータのある範囲と同じ範囲のセルにコピー」と言う意味がよくわからなくて。。。
お忙しいところすみませんが、お時間があればもう一度アドバイスよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Excel(エクセル) 簡単なエクセルマクロについて 4 2023/02/20 10:22
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- その他(パソコン・スマホ・電化製品) エクセル初心者です。 仕事でエクセルを使っていて、普段は素人でもできる簡単な関数を使ったことがある程 1 2022/05/25 11:17
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/03/01 15:44
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
- Excel(エクセル) excelの列幅高さが勝手に変わる(特定のPCだけ) 8 2022/07/14 16:51
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで別シートの同じ位置...
-
シート全体を他のブックのシー...
-
EXCELでコピーしたグラフのデー...
-
エクセルの下部のシートタブの...
-
ワークシートの行が途中から表...
-
エクセルでセルの書式設定がで...
-
VBA アクティブでないシートの...
-
ロックしたセルのコピー&貼り付け
-
エクセルで数式は残したまま他...
-
Excelで保護のかかったシートの...
-
excelで勝手にテキストボックス...
-
Excelで大量の2000個のリストを...
-
行の挿入ができなくなった
-
シート保護してても並び替えを...
-
Excelでハイパーリンク先の表示...
-
エクセルの右クリックメニューで
-
セルに背景色がある行を別シー...
-
エクセルで選択した行以外を削...
-
シート保護したExcelへの画像貼...
-
wordからexcelへ一部のデータを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで別シートの同じ位置...
-
エクセルの下部のシートタブの...
-
エクセルでセルの書式設定がで...
-
EXCELでコピーしたグラフのデー...
-
ワークシートの行が途中から表...
-
シート全体を他のブックのシー...
-
ロックしたセルのコピー&貼り付け
-
Excelで大量の2000個のリストを...
-
excelで勝手にテキストボックス...
-
エクセルで数式は残したまま他...
-
Excelで保護のかかったシートの...
-
VBA アクティブでないシートの...
-
エクセルで打ち込んだ数字を自...
-
【エクセル】数式のセル番地を...
-
シート保護してても並び替えを...
-
エクセルで多数のシートをまと...
-
行の挿入ができなくなった
-
【エクセル】表から条件に合っ...
-
シート保護したExcelへの画像貼...
-
コピー&ペーストすると、VLOOK...
おすすめ情報