質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

0回答

685閲覧

VBA シートの行をコピーして、別シートに貼り付けたい。

vba_muzui

総合スコア12

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2019/07/11 09:04

前提・実現したいこと

VBAにてfor~next文とif分にて、1回ずつ表示されたら、その都度そのシートを
コピーして、別のファイルのシートに貼り付けるVBAを作りたいのですが、どのような構文をする必要がありますでしょうか?

該当のソースコード

Sub autofilter()
Dim i, j As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")

ws2.Cells.Clear For i = 7 To ws1.Cells(Rows.Count, 1).End(xlUp).Row If WorksheetFunction.CountIf(Range(ws1.Cells(7, 7), ws1.Cells(i, 7)), ws1.Cells(i, 7)) = 1 Then ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1) = ws1.Cells(i, 7) End If Next i j = ws1.Cells(Rows.Count, 1).End(xlUp).Row For i = 7 To ws2.Cells(Rows.Count, 1).End(xlUp).Row Range(ws1.Cells(1, 1), ws1.Cells(j, 7)).autofilter Field:=7,Criteria1:=ws2.Cells(i, 1) Next i

End Sub

試したこと

マクロの記録をしてみたら、下記構文が記録されたので、

  そのままfor~next文に入れました。

Range("D60").Select Selection.Copy ActiveWindow.SmallScroll Down:=9 Range("A23").Select ActiveSheet.Paste Windows("xxxxx.xlsx").Activate

補足情報(FW/ツールのバージョンなど)

offic 365のExcelを使用しております。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

hatena19

2019/07/12 07:40

なかなか、回答がつきませんね。 まず、たった2行の説明を読んだだけでは何をしたいのかサッパリ分かりません。 コードを読んでやりたいことを推測せよ、と言われても、シートにどのようなデータがあるかもわからない状態では難しいです。 シートにどのようなデータがあり、それをどのようにしたいのか、具体的に説明されてはどうですか。 あと、コードはマークダウンのコードタグで囲んで読みやすいようにしてください。 コード部分を選択して、投稿欄上部の <code> ボタンをクリックしてください。
vba_muzui

2019/07/12 09:25

hatena19さん すいません。一度修正させていただき、再度質問させていただきます。 ご連絡ありがとうございました。
shinobu_osaka

2019/07/20 12:16

結局記載されたソースの「どの部分が動かないのか」かもわからないですし、何がしたいのかも謎のままですね…。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問