A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
失礼、、、画像トリミング忘れたので、すごい見難いですね^-^;
あと、VBAマクロの設定方法がもしわからない場合
マクロを使ってVBAにチャレンジだ!
http://www.sigoto.co.jp/excel/begin/bgmenu04.htm
こちらを見てください
No.3
- 回答日時:
C列とD列を作業列として使用し、
E列に「A列にあってB列にない数値」を数値が小さい順番に並べ、
F列に「B列にあってA列にない数値」を数値が小さい順番に並べる方法です。
(データー数がどちらの列が多いかは関係しません)
まず、C1セルに次の数式を入力して下さい。
=IF(AND(ISNUMBER($A1),COUNTIF($B:$B,$A1)=0),$A1,"")
次に、C1セルに次の数式を入力して下さい。
=IF(AND(ISNUMBER($B1),COUNTIF($A:$A,$B1)=0),$B1,"")
次に、E1セルに次の数式を入力して下さい。
=IF(ROWS($1:1)>COUNT(C:C),"",SMALL(C:C,ROWS($1:1)))
次に、E1セルをコピーして、F1セルに貼り付けて下さい。
次に、C1~F1をコピーして、同じ列の2行目以下に貼り付けて下さい。
以上です。
No.2
- 回答日時:
できるなら何でもいいと思うけど、参考までにVBAマクロを使用した記述例でもどうぞ
A列とB列のデータの長さはどっちがどっちでもいいです。
A列~C列の1行目には、表のヘッダがあるものとします
記述はちょっと長いですが、やってることは単純です
元データを全てコピー
元データと逆の列の値を参照して同じ値だったら空白にする
空白行を上詰めで削除
C列の罫線を引きなおす
これだけです
Sub numberCheck()
' 変数
Dim ws1 As Worksheet
Dim i, j As Integer
Dim checkLength As Integer
Dim data1, data2 As Integer
' 初期設定
Set ws1 = Worksheets("sheet1") '使用するシート名
data1 = ws1.Range("A2").End(xlDown).Row 'A列のデータ数
data2 = ws1.Range("B2").End(xlDown).Row 'B列のデータ数
' 処理
' 抽出欄にデータを一旦全てコピー
For i = 2 To data1
ws1.Cells(i, 3) = ws1.Cells(i, 1)
Next
j = data1 + 1
For i = 2 To data2
ws1.Cells(j, 3) = ws1.Cells(i, 2)
j = j + 1
Next
checkLength = ws1.Range("C2").End(xlDown).Row 'コピーされたC列のデータ数
' 抽出欄と元データのチェック
For i = 2 To data2
For j = 2 To data1
If ws1.Cells(i, 2) = ws1.Cells(j, 3) Then
ws1.Cells(j, 3) = ""
End If
Next
Next
For i = 2 To data1
For j = (data1 + 1) To checkLength
If ws1.Cells(i, 1) = ws1.Cells(j, 3) Then
ws1.Cells(j, 3) = ""
End If
Next
Next
' 不要な空白セルを削除
i = 2
j = 2
Do While j <> checkLength
If ws1.Cells(i, 3) = "" Then
ws1.Cells(i, 3).Delete shift:=xlShiftUp
Else
i = i + 1
End If
j = j + 1
Loop
' 罫線を引く
checkLength = ws1.Range("C1").End(xlDown).Row
With ws1.Range(Cells(1, 3), Cells(checkLength, 3)).Borders
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlThin
End With
End Sub
添付画像では、見やすいようにA列とB列で共通してる値に色をつけてあります
No.1
- 回答日時:
こんばんは!
一例です。
A・B列のデータ数は同じかもしくはA列データの方が多い場合です。
↓の画像のように作業用の列を設けています。
作業列C2セルに
=IF(COUNTIF(B:B,A2)=1,ROW(),"")
という数式を入れオートフィルでずぃ~~~!っと下へコピー!
結果のE2セルに
=IF(COUNT(C:C)<ROW(A1),"",INDEX(A:A,SMALL(C:C,ROW(A1))))
という数式を入れオートフィルで下へコピーすると画像のような感じになります。
これでB列にないA列のデータのみが表示されると思います。
尚、B列データの方が多い場合、作業列C2セルの数式は
=IF(COUNTIF(A:A,B2)=1,ROW(),"")
としてオートフィルで下へコピー!
結果の数式は同じで良いのですが、表示される結果は
「B列にありA列にないデータ」となります。
参考になれば良いのですが・・・m(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel2019 列と列(2列)の数値の重複を調べたい 1 2023/05/11 13:35
- Excel(エクセル) 数列の数値補間 2 2022/10/27 16:38
- Excel(エクセル) 列の複数ある空白セルを飛ばして、セルに並べて表示したい 3 2023/02/12 16:49
- Excel(エクセル) エクセル関数のスペシャリストの方、教えてください。 写真のように A列にはデータ C列にはデータの中 7 2022/04/09 00:15
- Visual Basic(VBA) VBAで大量データの処理 3 2022/11/15 21:53
- Excel(エクセル) ExcelのIF関数について 4 2023/05/24 12:54
- Excel(エクセル) エクセル 関数について質問です。 2 2022/10/03 11:14
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Visual Basic(VBA) vba 隣のセルに値がある行だけ関数をコピー&ペーストしたい A1 100001 A2 100002 1 2023/01/28 14:29
- Excel(エクセル) Excelの関数についての質問です。(vlookup関数) A列 B列. C 1 大阪 50. 検索 6 2023/08/11 13:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで隣のセルが空白の場合に...
-
名簿の作り方 姓名が一文字...
-
エクセルで一括で日付の年だけ...
-
Excelで冊子を作成する場合の、...
-
連番
-
表の作り方を教えてください (...
-
エクセル ある数値以下を特定の...
-
デスクトップのアイコンに変な...
-
アイコン選択時、常に複数選択...
-
エクセルで寸法公差を入力する...
-
開発タブのデザインモードがグ...
-
エクセル画面の”1ページ”とい...
-
Chromeがパソコンに表示されません
-
CD-Rに保存した写真を見る方法
-
パソコンでCDを見たい、見る...
-
パソコン起動時に出る画面を変...
-
デスクトップアイコンの選択(...
-
サイトを開くと勝手に別のタブ...
-
スタート画面が下へずれて、上...
-
タスクトレイのビックリマーク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
かぶったセルの表示方法を教え...
-
Excelで隣のセルが空白の場合に...
-
エクスプローラでファイル名を...
-
エクセル ある数値以下を特定の...
-
エクセルの表 社名に御中を付ける
-
エクセルでの出欠表、出席日を...
-
エクセルで住所録を作った
-
セル内の文字左詰めを0.5インデ...
-
エクセルの列全体に計算式を入...
-
名簿の作り方 姓名が一文字...
-
エクセルで一括で日付の年だけ...
-
エクセルで等間隔のセルをオー...
-
金銭出納帳をエクセルでつくり...
-
エクセルで、文字の完全一致で...
-
エクセルで添付画像のように値...
-
Excelで冊子を作成する場合の、...
-
エクセルの列と行を等間隔にし...
-
SUMPRODUCT関数で0(ゼロ)と
-
エクセル2003で、ブックの保護...
-
エクセルのオートフィル機能に...
おすすめ情報