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

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

新規登録して質問してみよう
ただいま回答率
87.20%
Google スプレッドシート

Google スプレッドシートは、フリーで利用できる表計算ソフト。Webアプリのためインターネットに接続することで利用できます。チャートやグラフの作成のほか、シートを他のユーザーと共有したり、同時に作業を進めることも可能です。

Google Apps Script

Google Apps ScriptはGoogleの製品と第三者のサービスでタスクを自動化するためのJavaScriptのクラウドのスクリプト言語です。

VBA

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

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

受付中

データ抽出、転記のマクロコード(GAS)

ch-taros164
ch-taros164

総合スコア0

Google スプレッドシート

Google スプレッドシートは、フリーで利用できる表計算ソフト。Webアプリのためインターネットに接続することで利用できます。チャートやグラフの作成のほか、シートを他のユーザーと共有したり、同時に作業を進めることも可能です。

Google Apps Script

Google Apps ScriptはGoogleの製品と第三者のサービスでタスクを自動化するためのJavaScriptのクラウドのスクリプト言語です。

VBA

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

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

1回答

-2評価

1クリップ

467閲覧

投稿2021/12/31 10:27

下記のようなExcelVBAマクロを、
スプレッドシートGAS版で作りたいのですが、GAS初心者でコードがわかりません。
どなたか助けてください。
GASでの、コピペ版の転記とカット&ペースト版の転記
2種類知りたいです。

'プログラム0|変数宣言の指定 Option Explicit 'プログラム1|プログラム開始 Sub 検索ボックス式データ抽出() 'プログラム2|シート設定 Dim ws01 As Worksheet Set ws01 = Worksheets("データ一覧") Dim ws02 As Worksheet Set ws02 = Worksheets("検索結果") Dim kensaku As String Dim I, M, lRow, mRow As Long 'プログラム3|検索結果シートの既入力データをクリア ws02.Range("A7:CV" & Rows.Count).Clear   'プログラム4|検索項目を「kensaku」へ代入 kensaku = ws01.Range("E3") lRow = ws01.Cells(Rows.Count, "A").End(xlUp).Row 'プログラム5|抽出先のシートの初期値を設定 Dim k As Long k = 7 'プログラム6|変数設定 Dim rng As Range Dim keyword As Variant 'プログラム7|対象データを行ごとに処理 For I = 1 To ws01.UsedRange.Rows.Count 'プログラム8|6行目(ヘッダー)を抽出先のシートへ出力(コピー) If I = 6 Then ws01.Rows(6).Copy (ws02.Rows(6)) End If 'プログラム9|7行目以降を行ごとに取得 If I >= 7 Then Set rng = ws01.UsedRange.Rows(I) 'プログラム10|プログラム2のキーワードを全て取得 For Each keyword In Split(kensaku, ",") Application.Goto Reference:=Worksheets("検索結果").Range("A7") 'プログラム11|各行にキーワードを含むセルがあれば If Not rng.Find(keyword, Lookat:=xlPart) Is Nothing Then 'プログラム12|キーワードを含む行を抽出用シートへ出力 ws01.Rows(I).Copy (ws02.Rows(k)) k = k + 1 Exit For End If Next End If Next 'プログラム14|プログラム終了 End Sub

よろしくお願いいたします。

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

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

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

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

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

papinianus

2021/12/31 10:37

やりたいことを言葉で説明していただけないですか。

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

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

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

ただいまの回答率
87.20%

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

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

質問する

関連した質問

同じタグがついた質問を見る

Google スプレッドシート

Google スプレッドシートは、フリーで利用できる表計算ソフト。Webアプリのためインターネットに接続することで利用できます。チャートやグラフの作成のほか、シートを他のユーザーと共有したり、同時に作業を進めることも可能です。

Google Apps Script

Google Apps ScriptはGoogleの製品と第三者のサービスでタスクを自動化するためのJavaScriptのクラウドのスクリプト言語です。

VBA

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

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。