ある文字列を含む行の情報を違うシートの最終行に貼り付けたいです。

Question

シート3の「O列にある奈良を含む行」の情報をシート1に貼り付けたいです。

↓これがつくってみたマクロです。

私のつくったものだとシート3の最終行にある「O列にある奈良を含む行」しか貼り付けられませんでした。どこがおかしいのでしょうか。ほんとうに初心者でなんとか作ってみたものです。見にくいかもしれませんが教えてくださると助かります。

どうぞよろしくお願いいたします。

Sub テスト()

 n = Cells(Rows.Count, "B").End(xlUp).Row + 1
 
     For cnt = 2 To 23
         If InStr(Worksheets(“3”).Range(“O” & cnt).Value, “奈良”) > 0 Then
            Worksheets(“1”).Range(“B” & n).Value = Worksheets(“3”).Range("A" & cnt).Value
            Worksheets(“1”).Range(“C” & n).Value = Worksheets(“3”).Range(“E” & cnt).Value
            Worksheets(“1”).Range(“D” & n).Value = Worksheets(“3”).Range(“N” & cnt).Value
            Worksheets(“1”).Range(“E” & n).Value = Worksheets(“3”).Range(“O” & cnt).Value
            Worksheets(“1”).Range(“F” & n).Value = Worksheets(“3”).Range(“C” & cnt).Value
            Worksheets(“1”).Range(“G” & n).Value = Worksheets(“3”).Range(“F” & cnt).Value
            Worksheets(“1”).Range(“D” & n).Value = Worksheets(“3”).Range(“N” & cnt).Value
            
            
            
        End If
    Next
                     

End Sub

Answer 1

これでどうでしょうか。

Sub テスト()
    n = Cells(Rows.Count, "B").End(xlUp).Row + 1
    For cnt = 2 To 23
        If InStr(Worksheets("3").Range("O" & cnt).Value, "奈良") > 0 Then
            Worksheets("1").Range("B" & n).Value = Worksheets("3").Range("A" & cnt).Value
            Worksheets("1").Range("C" & n).Value = Worksheets("3").Range("E" & cnt).Value
            Worksheets("1").Range("D" & n).Value = Worksheets("3").Range("N" & cnt).Value
            Worksheets("1").Range("E" & n).Value = Worksheets("3").Range("O" & cnt).Value
            Worksheets("1").Range("F" & n).Value = Worksheets("3").Range("C" & cnt).Value
            Worksheets("1").Range("G" & n).Value = Worksheets("3").Range("F" & cnt).Value
            Worksheets("1").Range("D" & n).Value = Worksheets("3").Range("N" & cnt).Value
            n = n + 1
        End If
    Next
End Sub

Comments

[michMich]

回答本当にありがとうございます！

私のつくったものはシート3の最終行にある「O列にある奈良を含む行」しか貼り付けられませんでした。
jinojiさまに作っていただいたものは、実行しても何の反応もありませんでした、、汗

[jinoji]

あら、反応なしですか。
ご提示のコードに、n = n + 1 の一行を加えただけなんですけどね。

では、１行目の
n = Cells(Rows.Count, "B").End(xlUp).Row + 1 を
n = Worksheets("1").Cells(Rows.Count, "B").End(xlUp).Row + 1
に変えたら結果が変わりますか？

[michMich]

jinojiさま
ご丁寧にありがとうございます。
ご提示のコードを試してみたのですが音沙汰なしでした。。

↑大変申し訳ございません！
jinojiさまの教えてくださったコードで出来ました！本当に嬉しいです。有難うございます。
もし可能でしたら、なぜ
n = Cells(Rows.Count, "B").End(xlUp).Row + 1
ではダメで、
n = Worksheets("1").Cells(Rows.Count, "B").End(xlUp).Row + 1
なら成功するのか教えていただけますと幸甚です。

[neconekocat]

提示されたコードを(手入力ではなく)コピー&ペーストして反応なしですか？

[michMich]

neconecocatさま
アドバイスありがとうございます。もう一度コピーペーストで一から書いてみると出来ました！
誠にありがとうございます。

[jinoji]

うまく動いたとのことでよかったです。
（「解決済み」に更新しておいていただければと思います。）

なお、n = Worksheets("1").Cells(Rows.Count, "B").End(xlUp).Row + 1 と改めた理由ですが、
前にシート名をつけずに Cells(・・・) と書くと、その時点のActiveSheetのセルだと解釈されるため
処理を実行したときにどのシートがアクティブかによって処理結果が変わってくるのです。
たまたまWorksheets("1")がアクティブであれば意図した結果になりますが、
複数のシートが登場するような処理を書くときは、
CellsやRangeなどはシート名を指定する形で記述するのがおすすめです。

[michMich]

jinojiさま

ありがとうございます！本当に助かりました。