A列文字とE列文字を比較してG列に判定を出力する

前へ 次へ
このQ&Aのポイント
  • エクセルマクロ初心者の質問です。A列に入力されている文字とE列に入力されている文字を比較し、G列に一致・不一致の判定を出力するマクロを作成したいと考えています。ただし、A列の行数が少ないため、A列を基準にE列を比較し、A列が空白行に移った段階で処理を停止したいです。
  • 比較にはStrComp関数を使用しようと考えていますが、同じ行を参照してしまうことが問題です。現在、以下のコードを考えています。
  • jを1からA列の最終行まで繰り返し、StrComp関数を使用してA列とE列を比較し、結果をG列に出力します。結果が一致した場合はK、そうでない場合はFを表示します。ただし、処理がA列の空白行に移った段階で処理を停止するようにしたいです。
回答を見る
  • ベストアンサー

A列文字とE列文字を比較してG列に判定を出力する

エクセルマクロ初心者です。 A列に入力されている文字とE列に入力されている文字を比較して、G列に判定を出力（一致：K　不一致：F）するマクロを考えています。 StrComp関数が返す戻り値を利用して StrComp(Cells(j, 1), Cells(j, 5), vbTextCompare) というのを使って比較しようとしましたが、これだと同じ行を参照してしまいます。 A列の方が入力されている行が少ない（例えば：A列は１から１０行、E列は１から1000行）ので、A列を基準にE列を比較し、A列が空白行に移った段階で処理を止めたいと思います。 以下に途中まで考えたものを載せます。 j = 1 For j = 1 To Cells(Rows.Count, "E").End(xlUp).Row Cells(j, 10) = StrComp(Cells(j, 1), Cells(j, 5), vbTextCompare) 　　 If Cells(j, 10).Value = 0 Then 　　 Cells(j, 7).Value = "K" 　　 Else 　　 Cells(j, 7).Value = "F" 　　 End If Next j ご教示の程、お願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.2

いまＥ列の最後行までfor nextを廻しているのを，単純にＡ列最後行までと書き換えるだけです。 sub macro1() dim i as long for i = 1 to cells(rows.count "A").end(xlup).row　’Ａの最後まで cells(i, "G") = iif(strcomp(cells(i, "A"), cells(i, "E"), vbtextcompare) = 0, "K", "F") next i end sub

vesper580109
質問者

お礼

keithinさん ご回答ありがとうございました。 問題なく解決できました。 行全体の指定方法”Ａ”、”Ｅ”、”Ｇ”と、Strcompの戻り値の扱いを一行で表現できる所が大変勉強になりました。 ありがとうございました。

その他の回答 (3)

  • kkkkkm
  • ベストアンサー率65% (1601/2437)
回答No.4

keithinさんのコードだと同一行の値の検査しかしていませんし、A列が1から10行だった場合E列の10行目以降は検査対象になっていませんが、よろしいのでしょうか。 たとえば A1とB1にaと入力して E3とE4にaと入力して コードを実行すると G1とG2にはFと表示されます vesper580109さんはこの場合、Kと表示させたいのだろうと思ったのですが違いましたでしょうか。もしそうだとしたら、思った結果ではない状態で作業を進める事になると思い、追加の回答をさせていただきました。

vesper580109
質問者

お礼

kkkkkmさん。 追加のご回答ありがとうございます。 ご両名のご回答内容を自分なりに勉強し、keithinさんの回答がkkkkkmさんのご指摘のとおりとなっていたことを理解しております。ご回答頂いたものをそのまま使用する・・だけでなく、その書かれている意味や内容を理解することが大切だと思い、"A"を”E”に変えてみたりいろいろいじってみて、回答頂いたコードがどのように動くか・・を試してみました。 １つの結果を導くのに、いろんな書き方があることを今回特に勉強させていただきました。 お手数をおかけしました。本当にありがとうございます。

  • kkkkkm
  • ベストアンサー率65% (1601/2437)
回答No.3

Sub Exampel() Dim j As Long For j = 1 To Cells(Rows.Count, "A").End(xlUp).Row If WorksheetFunction.CountIf(Range("E:E"), Cells(j, "A")) > 0 Then Cells(j, "G") = "K" Else Cells(j, "G") = "F" End If Next j End Sub こういうことでしょうか。

vesper580109
質問者

お礼

mt2008さん ご回答ありがとうございました。 問題なく結果出力できました。 今回はkeithinさんの回答をベストアンサーにさせて頂きたくご了承下さい。 マクロの処理時間がkeithinさんの方が早かった事があげられます。 記述方法でいろいろ変わってくるのは、初心者なりに何となく分かってはいましたが、 もっと勉強しないといけないなと思っています。 ありがとうございました。

  • mt2008
  • ベストアンサー率52% (885/1701)
回答No.1

説明を勘違いしているかもしれませんが、E列の文字列がA1:A10に存在していれば「K」、存在していなければ「F」をG列に表示するという事でしょうか？ でしたらこんな感じで良いかも。 Range("G1:G1000").FormulaR1C1 = "=IF(COUNTIF(R1C1:R10C1,RC[-2])>0,""K"",""F"")" Range("G1:G1000").Value = Range("G1:G1000").Value

vesper580109
質問者

お礼

mt2008さん ご回答ありがとうございました。 解釈頂いた内容で合っており、結果出力できました。 今回はA列、E列共に、何行目まで文字が入っているのか分からない部分でつまづいていました。 何行目までという範囲指定ではなく、列全行を比較範囲にしたかったという意図がありました。 まだ初心者なので、いろんな記述方法を勉強していきたいと思います。 ありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • マクロ　文字列の比較について質問

    いつもお世話になっています。 マクロの文字列の比較方法について質問致します。 異なるシートの文字列を比較して、一致したら処理をするというマクロを作っているのですが、文字列の比較がうまくいきません。 解る方がいましたらアドバイスをお願いします。 Rangeの使い方がおかしいのでしょうか？ For L = 1 to LAST step 1 If Range(Sheet1.Cells(L, 1)).Text = Range(Sheet2.Cells(M, 2)).Text Then ・ ・ ・ end if ※Mは定数です。

  • 下記のマクロはC列5行目から文字の

    下記のマクロはC列5行目から文字の入っている最後の行までの範囲で セル内に蜜柑や林檎、苺の文字が入っていたら同一行のA列にも蜜、林、苺 の文字を入れるというマクロなのですが・・・ たとえばC列12行目が 『蜜柑林檎苺』 となっていた場合、A列に入る言葉は『苺』となり『蜜』『林』という言葉が 消えてしまいます。 そこでこのマクロを少し改造して、 C列が『蜜柑林檎苺』や『蜜柑苺』となっている場合 A列に入る言葉は『蜜林苺』ないし『蜜苺』という風に積み重ねていくように改造はできないでしょうか？ ↓この部分を改造すればできるようになりますか？ Cells(i, 2).Offset(0, -1).Value = "蜜" Sub 蜜柑林檎苺() Dim i As Long With ActiveSheet For i = 5 To .Cells(Rows.count, "C").End(xlUp).Row If InStr(.Cells(i, "C"), "蜜柑") > 0 Then MsgBox i & "行目アウト！" Cells(i, 2).Offset(0, -1).Value = "蜜" End If If InStr(.Cells(i, "C"), "林檎") > 0 Then MsgBox i & "行目アウト！" Cells(i, 2).Offset(0, -1).Value = "林" End If If InStr(.Cells(i, "C"), "苺") > 0 Then MsgBox i & "行目アウト！" Cells(i, 2).Offset(0, -1).Value = "苺" End If Next i End With End Sub

  • Excel VBA でテキストボックスの値をセルA列から検索

    いつもお世話になります。 Private Sub CommandButton3_Click() Dim 行 As String Dim 列 As String Dim 最終行 As String Dim 検索行 As String Dim メッセージ As Integer Dim 一致 As Range Dim myNO As Variant Dim i As Long Sheets(3).Select 最終行 = Range("A2").End(xlDown).Offset(1).Select 行 = ActiveCell.Row 列 = ActiveCell.Column myNO = TextBox2.Value 検索行 = Range("A2").End(xlDown).Select ※・・・Set 一致 = Range("A2:検索検").Findwhat:=TextBox2,lookat:=xlWhole) If 一致 Is Nothing Then MsgBox "データがありません。新規コード入力します。" Cells(行, 列 + 0) = UserForm1.TextBox2.Value Cells(行, 列 + 1) = UserForm1.ComboBox7.Value Else i = Cells(行 - 1, "A") Cells(i, 列 + 0) = UserForm1.TextBox2.Value Cells(i, 列 + 1) = UserForm1.ComboBox7.Value End If End Sub 「エラー1004'Range'メソッドは失敗しました'Global'オブジェクト」とでます。※印が黄色になっています。 ユーザーフォーム1のテキストボックスの値をシート3のA列から検索して、一致すれば、A列の一致セルに上書き入力して、一致が無い場合はA列の空白セルに追加入力したいのです。よろしくお願い致します。

  • ＶＢＡ　文字列に関して

    現在　Ａ２２のセルに入力された文字列をボタンを押せば ばらばらにしてＡ２２のセルから順番に入れるマクロを作りました （例）Ａ２２のセルに ”こんにちわ”の文字列が入っている場合 ボタン押下 　　↓ Ａ２２のセル⇒こ Ｂ２２のセル⇒ん Ｃ２２のセル⇒に Ｄ２２のセル⇒ち Ｅ２２のセル⇒わ になる。 不思議なことに数字を16文字以上いれてボタンを押し文字を分離すると入力していない文字、数字が入ってしまいます。 数字だけこういう現象が発生してしまいます。 例えば "1111111111111111"と入力して文字を分離した場合 1.11111111111111E+15と個々のセルに格納されます。 原因がわかる方、教えて頂けないでしょうか？ 以下がコードです。宜しくお願い致します。 Private Sub CommandButton1_Click() 　　Dim one As String 　　Dim myString As String 　　myString = Cells(22, 1) 　　numString = Len(Cells(22, 1)) 　　If Len(myString) <= 50 Then 　　　For i = 1 To Len(Range("A22").Value) 　　　　　one = String(1, myString) 　　　　　Cells(22, i) = one 　　　　　myString = Replace(myString, one, "", 1, 1, vbTextCompare) 　　　Next i 　　End If End Sub

  • 繰り返しマクロについて

    先日、マクロについて質問をさせていただきました。 常に右側の列と左側の列のデータを比較して、右側の列のデータが多ければ「↑」マークを、同じなら「―」マークを、少なければ「↓」マークを表示させたいのです。 最初にデータを入れる列はD列7行目から30行目まで。次はE列に同じようににデータ入力した後ににマクロを実行します。これをM列７行目から３０行目まで、列に新しいデータを入れるたびに毎回繰り返したいのです。　矢印マークは　常にN列に表示。 　で、以下のようなマクロを教えていただきましたが、このマクロだと　比較がされる列が、絶えずD列と、新しく入力した列になってしまいます。 先ほども書きましたが、比較する列は、D列とE列　それが終わったらE列とF列　次はF列とG列　というように常に右側とその直ぐ左側の列の比較をしたいのです。 もう一度　お教えいただきたいのですが、よろしくお願いいたします。 回答いただいたマクロを下に入れておきます。 Sub test() Dim i, j, k As Long Dim vl1, vl2 As Variant For i = 4 To 30 If WorksheetFunction.Count(Range(Cells(i, 4), Cells(i, 13))) > 1 Then j = 4 Do Until Cells(i, j) <> "" j = j + 1 Loop vl1 = Cells(i, j) For k = 4 To 13 If Cells(i, k) <> "" Then vl2 = Cells(i, k) End If Next k If vl1 > vl2 Then Cells(i, 14) = "↓" ElseIf vl1 = vl2 Then Cells(i, 14) = "→" Else Cells(i, 14) = "↑" End If Else Cells(i, 14) = "" End If Next i End Sub

  • 比較したいセルの文字列が一致したら"一致"

    いい案が思い浮かばないため皆さんのお知恵をお貸しください。 下はエクセルと思ってください 　　　A列 　　　　 　　　　　　 B列 1 　2009/01/07/22:55 　　2009/01/07/22:56 2 　テスト1 　　　　　　　　　　テスト1 3 　テスト2 　　　　　　　　　　テスト2 4 　テスト3 　　　　　　　　 　 テスト3 5 　テスト4 　　　　　　　　　　テスト6 とこのようなシートがあります。 セルA1とB1は時間のため可変で比較対照としたくありません それ以外のA列とB列がすべて一致したとき一致 不一致があればセルA5が不一致とmsgboxで出したいと考えております。 まだ思案中で途中なのですが Sub test() Dim i As Integer i = 1 Do While Cells(i, 1) <> "" If Cells(i, 1) = Cells(i, 2) Then MsgBox "一致" i = i + 1 ElseIf Cells(i, 1) <> Cells(i, 2) Then MsgBox "不一致" i = i + 1 End If Loop End Sub いまはまだこの程度のレベルです 宜しくお願いします。

  • Excel VBAで文字列の部分一致の文字列を表示

    以前、こちらで頭５文字までの一致で文字列を表示するVBAを教えて頂きました。今回はFINDなどの部分一致での文字列を表示することをしたいのですが、ご教示いただけますと幸いです。 下記はSheet1のA3に文字を5文字以内いれるとSheet２のC列からピックアップしてSheet１のA列に文字列を表示する及びSheet２のB列のデータをSheet１のC列に表示させるVBAです。 Sub Test2() Dim Ws1 As Worksheet, Ws2 As Worksheet Dim SData As String, i As Long, VRet As Variant Dim c As Range, LastRow As Long Set Ws1 = Sheets("Sheet1") Set Ws2 = Sheets("Sheet2") SData = CStr(Ws1.Range("A3").Value) If SData = "" Then Exit Sub i = 5 LastRow = Ws1.Cells(Rows.Count, "A").End(xlUp).Row If LastRow < i Then LastRow = i End If Ws1.Range(Ws1.Cells(i, "A"), Ws1.Cells(LastRow, "C")).ClearContents With Ws2 For Each c In .Range(.Cells(1, "C"), .Cells(Rows.Count, "C").End(xlUp)) VRet = InStr(1, CStr(c.Value), SData, vbTextCompare) If VRet = 1 And Len(c.Value) >= 10 Then Ws1.Cells(i, "A").Resize(1, 2).Value = c.Resize(1, 2).Value 'とりあえずSheet2のB列のデータ(C列のデータに同期したデータ)をSheet1のC列に Ws1.Cells(i, "C").Value = .Cells(c.Row, "B").Value i = i + 1 End If Next End With End Sub 宜しくお願い致します。

  • 比較して一致したら指定セルに貼り付け処理

    【Sheet1】の日付A1セルと【Sheet2】の日付A行を比較。 ※ 【Sheet1】の比較元はA1だけでいい 一致しなければ【Sheet2】のA行を一つ下げ、比較し直し、一致するまで比較 一致したら【Sheet1】のA列以降を全てコピーし【Sheet2】の一致した日付の隣B列に以下の様に貼り付けする 【Sheet1】　　　　　　　　　　　　【Sheet2】 　　　　A　　　　　　　　B 　 C 　　 　　 A 1　2008/1/2 0:45 　72　　99　　　1　2008/1/2 0:00 2　2008/1/2 1:00 　76　　84　　　2　2008/1/2 0:15 3　2008/1/2 1:15 　19　　45　　　3　2008/1/2 0:30 4　2008/1/2 1:30 　30　　78　　　4　2008/1/2 0:45 5　2008/1/2 1:45 　56　　33　　　5　2008/1/2 1:00 ↓『結果』 【Sheet2】 　　　A　　　　　　　　　　B 1　2008/1/2 0:00 2　2008/1/2 0:15 3　2008/1/2 0:30 4　2008/1/2 0:45　　2008/1/2 0:45 72 99 5　2008/1/2 1:00　　2008/1/2 1:00 76 84 6　2008/1/2 1:15　　2008/1/2 1:15 19 45 7　2008/1/2 1:30　　2008/1/2 1:30 30 78 8　2008/1/2 1:45　　2008/1/2 1:45 56 33 -------------------------------------------------------------------------- Dim i As Integer Dim Com As Integer Dim s As Integer SheetName = "Sheet1" SheetName2 = "Sheet2" Do For Com = 1 To 20 ' Sheet1のA1とSheet2のA行セルが一致するまで比較 If StrComp(Worksheets(SheetName).Cells(1, 1), Worksheets(SheetName2).Cells(Com, 1), vbTextCompare) Then ' 一致したらA列をコピー Rows("1:1").Select Selection.Copy Else ' 一致しなければSheet2のAセルを一つ下げる WorkSheets(SheetName2).Cells(Com, 1).Offset(1, 0).Select End If Next ' 一致するまで比較 Loop Until StrComp(Cells(1, 1), Cells(s, 10)) -------------------------------------------------------------------------- Loop Untilの箇所で記述がおかしいせいかアプリケーション定義、またはオブジェクトエラーになってしまいます。 一致した時、Sheet1のA1列の情報をSheet2の指定箇所に格納する記述の仕方がどうしてもわかりません。 何かいい記述はないでしょうか？ 質問が長くなってしまいましたが、どうか教えていただきたく思います。 よろしくお願いします。

  • マクロのフォームから。。。

    マクロのフォームから。。。 マクロのフォームからシートの最終行に入力ができるようにしたいのです。 マクロは下記になります。今の状態ですと、新規入力ボタンを押してデータ登録ボタンを押すと、途中の行に登録がされてしまいます。 暫く考えていましたがどうしてもわからず、また初心者の為できればわかりやすく教えてもらえると幸いです。どうかよろしくお願い致します。 Private Sub CommandButton3_Click() 入力結果 = MsgBox("データを登録しますか", vbYesNo) If 入力結果 = 6 Then If ToggleButton1.Value = True Then 表示行 = Cells(2, 10).Value + 1 Else 表示行 = Cells(1, 10).Value End If If ToggleButton1.Value = True Then データクリア TextBox1.Value = Cells(表示行, 1).Value + 1 Else データ表示 End If 表示行 = Cells(1, 10).Value Cells(表示行, 1).Value = TextBox1.Value Cells(表示行, 2).Value = TextBox2.Value Cells(表示行, 5).Value = TextBox3.Value Cells(表示行, 6).Value = TextBox4.Value Cells(表示行, 7).Value = TextBox5.Value Cells(表示行, 4).Value = ComboBox1.Value If OptionButton1.Value = True Then Cells(表示行, 3).Value = "男" Else Cells(表示行, 3).Value = "女" End If データ表示 End If End Sub ※　表の範囲：a1:g5(1行目はタイトル) j1:表示行 j2:最終行(counta)

  • E列が空白のとき、その空白行を削除し、番号を振り直す

    windows7　Excel2003でマクロ勉強中です。 あるサイトにE列が空白のとき、その空白行を削除し、番号を振り直すという コードがありました。 自分で作った表（表の最上段の２行は項目名が入っています。）で　 実行すると「Rangeメソッドは失敗しました。Globalオブジェクト」と エラーが出ます。エラーはでますが、処理自体は正しく実行されます。 このエラーの原因と回避するにはどうしたらよろしいでしょうか。 Sub E列が空白のとき、その空白行を削除し、番号を振り直す() Dim i As Long, j As Long '行削除の処理 For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 If Range("A" & i).Value <> "" And IsNumeric(Range("A" & i).Value) = True Then If Range("E" & i).Value = "" Then Rows(i).Delete End If End If Next '番号振りなおし処理 '’’Range("A" & Rows.Count).End(xlUp).Offset(1).Select For i = 0 To Range("A" & Rows.Count).End(xlUp).Row If Range("A" & i).Value = "番号" Then j = 1　・・・・・ここでエラー発生 If Range("A" & i).Value <> "" And IsNumeric(Range("A" & i).Value) = True Then Range("A" & i).Value = j j = j + 1 End If Next ActiveSheet.Protect End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する