エクセルVBAのコードの書き方を教えてください

質問

エクセルVBAの初心者です。
下記①-⑲のようなコードを書きたいのですが、どなたかお分かりになる方がいましたら、
ご教示いただけますと幸いです。

①　オートフィルターでシート[list]のA列に"●"がある特定の行だけを以下作業の対象にしたい

②　①で特定した行のE列セルの値を、シート[output]のB9セルにコピペする
③　①で特定した行のF列セルの値を、シート[output]のB12セルにコピペする
④　①で特定した行のG列セルの値を、シート[output]のB15セルにコピペする
⑤　①で特定した行のH列セルの値を、シート[output]のB18セルにコピペする
⑥　①で特定した行のI列セルの値を、シート[output]のB21セルにコピペする
⑦　①で特定した行のJ列セルの値を、シート[output]のB24セルにコピペする
⑧　①で特定した行のK列セルの値を、シート[output]のB27セルにコピペする
⑨　①で特定した行のL列セルの値を、シート[output]のB30セルにコピペする
⑩　①で特定した行のM列セルの値を、シート[output]のB33セルにコピペする
⑪　①で特定した行のN列セルの値を、シート[output]のB36セルにコピペする
⑫　①で特定した行のO列セルの値を、シート[output]のB39セルにコピペする
⑬　①で特定した行のP列セルの値を、シート[output]のB42セルにコピペする
⑭　①で特定した行のQ列セルの値を、シート[output]のB45セルにコピペする
⑮　①で特定した行のR列セルの値を、シート[output]のB48セルにコピペする
⑯　①で特定した行のS列セルの値を、シート[output]のB51セルにコピペする
⑰　①で特定した行のT列セルの値を、シート[output]のB54セルにコピペする
⑱　①で特定した行のU列セルの値を、シート[output]のB57セルにコピペする

⑲　シート[output]のB3：B59をテキストファイルを呼び出してコピペする
※このとき、上記②-⑱で記述したB9からB57のセルには改行が含まれる場合が
　あるため、テキストファイルへのペースト時に""が表示されてしまうが、
　もし可能であれば、この""が表示されないようにしたい。

回答No.1

HohoPapa · ベストアンサー

①シート[list]のA列に"●"がある行を探し
②　①で特定した行のE列セルの値を、シート[output]のB9セルにコピペする
から
⑱　①で特定した行のU列セルの値を、シート[output]のB57セルにコピペする
までを行い
シート[output]のB3：B59の中身をテキストファイル出力する
ということでいいでしょうか？

A列に"●"の埋まったセルが必ず1個行だけある。
かつ、出力するファイルの文字コードがANSI
という条件でよければ後記コードはいかがでしょうか？

なお、
出力先のファイル名をhogehoge.txt
出力先フォルダーは課題ブックと同じ場所としました。

Option Explicit

Sub sample()

　Dim tgRow As Long
　Dim i As Long
　Dim wsL As Worksheet
　Dim wsO As Worksheet

　'前準備
　Set wsL = ThisWorkbook.Sheets("List")
　Set wsO = ThisWorkbook.Sheets("OutPut")
　i = 0

　'対象行を特定
　Do
　　i = i + 1
　　If wsL.Cells(i, 1).Value = "〇" Then
　　　tgRow = i
　　　Exit Do
　　End If
　　If 1 > 10000 Then Exit Do
　Loop

　'出力シートに出力
　For i = 5 To 21
　　wsO.Cells((i - 5) * 3 + 9, 2).Value = wsL.Cells(tgRow, i).Value
　Next i

　'テキストファイルに出力
　Open ThisWorkbook.Path & "\hogehoge.txt" For Output As #1
　For i = 3 To 57
　　Print #1, wsO.Cells(i, 2).Value
　Next i
　Close #1

End Sub

お礼

いただいたご回答で実行したところ、こちらの意向どおりの挙動となりました。迅速かつ丁寧なご回答ありがとうございます。深く感謝しております。

補足

ご回答ありがとうございます。本日か明日の夜にいただいたコードを試させていただきますため、今しばし確認のお時間をください。

下記すべてご認識のとおりです。
拙い日本語から正確に読み取っていただきましたこと御礼申し上げます。

>①シート[list]のA列に"●"がある行を探し
>②　①で特定した行のE列セルの値を、シート[output]のB9セルにコピペする
>から
>⑱　①で特定した行のU列セルの値を、シート[output]のB57セルにコピペする
>までを行い
>シート[output]のB3：B59の中身をテキストファイル出力する
>ということでいいでしょうか？