• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：Excel(マクロなど)に関しての質問です）

Excel(マクロなど)に関する質問

mshr1962の回答

  • mshr1962
  • ベストアンサー率39% (7418/18948)
回答No.1

一例ですが Sub LCOPY() Dim RG As Range X = 4 For Each RG In Worksheets("シート２").RANGE("A1:A1500") If RG Is Null Then Exit Sub For i = 1 to 5 Cells(X,1) = "神奈川県" Cells(X,2) = RG Cells(X,3) = RG X = X + 1 Next i Next RG End Sub

この回答がついた質問に戻る
回答 全件
ベストアンサー
こんばんは！ 一例です。 Sheet2「区」のデータはA列の2行目か…
　今仮に、Sheet２において「青葉区」と入力されているセルが、She…
ここへ質問する前に、マクロの記録を採って勉強しましたか。煩雑な作業を回…
シート１のB4に =INDEX(Sheet2!$A:$A,ROW(B5…
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • EXCELのマクロにて

    EXCELのにて連続したデータを入力したデータベースがあります。（行が5000、列がAAまで） このデータベースのデータの最終行だけを指定して違うシートにコピー・貼り付けがしたいのです。 マクロにてこのような作業をするときにはどういった文をかけばよいですか。

  • エクセルマクロ　Vlookupに似たマクロはありますか？

    度々すみません。 わからない事がいくつか出てきてしまって。どなたかご教示いただけると嬉しいです。 今は手作業で以下のような作業をしております。 データ元のシート（以下(1)）とそれ加工して作るシート（以下(2)）があります。 (1)のデータを2度sortするのですが、一度目のsortでtotalが入っている行は全てdelete。 残ったデータでもう一度sortし、種類別に並び変えます。 その後、コラムAがUSDである物はシート(2)のUSDページに貼り付け、コラムAがEURであればシート(2)のEURページに貼り付け・・・としていきたいのですが、マクロの記録を使おうにも、毎回コラムAは目視で確認しコピー・貼り付けをしていますのでマクロの記録は使えないですし、エクセル関数ではVLOOKUPがありますが、それをマクロに書き込む方法もどこにも載っておらず、どうしていいか息詰まった状態です。 sortするのはマクロの記録を使って作成できましたので、 ・コラムAがtotalになっている行より下はdelete ・コラムAがUSDならシート(2)のUSDシートへ貼り付け・・・ のマクロを作成したいです。 どうか宜しくお願い致します。

  • エクセル　マクロ　ＶＢＡ

    エクセルのマクロについて質問です。 『集計』というブックの『集計開始』というシートに 　　　　Ａ列　　　　Ｂ列　　　　　Ｃ列 １行目　見出し　　見出し　 　見出し　 　　　　（商品名）　 （支店）　　（個数） 　 　　　　　 ２行目　コメント　 空白　　　　　空白 　 ３行目　空白　　　空白　　　　　空白 ４行目　商品名　　支店　　　　　個数　 ５行目　空白　　　空白　　　　　空白 ６行目　空白　　　空白　　　コメント１ ７行目　空白　　　空白　　　　　空白 ８行目　空白　　　空白　　　コメント２ ９行目以降　　　　上記のデータ（見出しを除く）の繰り返し というデータが入っています。 Ｂ列の中に『ＡＡＡ』という文字が含まれていたら、そのセルを空白に置換し、 含まれていなかったら、そこで処理がとまったりエラーが出たりしないで次のステッップへ進み、 Ｃ列の中に『Ｂ』という文字が含まれていたら、そのセルを空白に置換し、 含まれていなかったら、そこで処理がとまったりエラーが出たりしないで次のステッップへ進み、 （今は、手作業で編集→置換→検索する文字列の中に『Ｂ*』と入力し、 置換後の文字列を空白にしてすべて置換ということをやっています。） 　　　　　　　　　　　　　　　　　　　　　　　　　　 ＡＢＣ列（データーの入っている行まで）の空白を含む行を一括削除し、 以下のような形にしたいのです。 　　　　Ａ列　　　　Ｂ列　　　　　Ｃ列 １行目　見出し　　見出し　 　見出し　 　　　　（商品名）　 （支店）　　（個数） 　 　　　　　 ２行目　商品名　　支店　　　　　個数　 ３行目　商品名　　支店　　　　　個数　 　　　　　　　　・ 　　　　　　　　・ このようにするマクロ文はどのようになりますでしょうか？

  • エクセル2010です。マクロ記述を教えてください。

    行番号1から12の任意のセルをコピーして貼り付ける場合ですが、 行番号13以降への貼り付けをしようとしても「制御されています。」というメッセージボックスが出て、しかも貼り付けが実行されない設定をしたいと思います。 また、 行番号13以降の任意のセルをコピーして貼り付ける場合も、 行番号1から12への貼り付けをしようとしても「制御されています。」というメッセージボックスが出て、しかも貼り付けが実行されない設定をしたいと思います。This Workbookにどんなマクロ記述をしたらよいですか？ 教えてください。よろしくお願いします。

  • エクセル（マクロ）置換２　置換用リストを1行ずつ読み込むには

    おはようございます。 エクセルは使いなれてますがＶＢＡは記録を使っていて 書き換える程度なので調べてもあまり理解できず困ってます。 先程質問して、結合セルの置換に関しては解決したのですが、 もし簡単にできるのであればと質問させて頂きました。 今置換用のシートは Ａ列に置換前の文字 Ｂ列に置換後の文字が入ってます。 そして対象のシートが置換されるようになってるのですが、 これが列ではなく 1行目に置換前の文字 2行目に置換後の文字として処理するのには どこを書き換えればよろしいのでしょうか？ 色々試しましたがうまくいきませんでした。 実は、1行目に（A1セルに学生名(1)・A2のセルに住所(1)）など20個くらい項目があります 2行目以降に5000行程、学生のデータが入ってます。 各会社の履歴書フォーマットは違うのですが、 入力欄が学生名(1)や住所(1)など入っている項目が同じなので 置換しております。 今は、1行ずつ下のデータを置換シートに貼り付けて 履歴書のシートで置換えをして 新しいファイルにコピーし保存して次のデータという アナログな処理をしております。 同じフォーマット（履歴書）でしたらvlookupなどが使えたのですが。。。 フォーマットによって１つのセルに、学生名(1)と住所(1)が両方入っていたりするので諦めました。 対象セルの場所も形も違いますしね・・・ 列で処理していたマクロを参考に下に貼り付けました。 明日の昼までにあと４０００行を処理しなければならなくて困ってます。 お手数ですがどうぞよろしくお願いいたします。 Sub 置換() With ThisWorkbook If ActiveSheet Is .Worksheets(1) Then Exit Sub For i = 1 To .Worksheets(1).Range("A500").End(xlUp).Row ActiveSheet.Range("A1:Z200").Replace _ What:=.Worksheets(1).Range("A" & i).Value, _ Replacement:=.Worksheets(1).Range("B" & i).Value, _ LookAt:=xlPart, SearchOrder:=xlByColumns Next End With End Sub

  • エクセル2013 マクロをご教示ください

    Sheet1 4行目に見出し。 5行目A列からU列までデータが入力されています。 中には空白セルもあります。 1行目から4行目迄はロックされています。 5行目以降の、あるセルをアクティブにすると、 該当行のC列からS列迄を Sheet2のA列を先頭に 5行目にコピペするには どうしたら宜しいでしょうか？ Sheet2も4行目が見出しです。 Sheet1でのアクティブセルは 複数の場合もあります。 ただし、同じ行でセルを複数アクティブにしても Sheet2への貼り付けは1行とします。 よろしくお願いします。

  • 【再】エクセル2013 マクロをご教示ください

    Sheet1で選択しているセルの行をSheet2に転写したいです。 Sheet1とSheet2の4行目に見出し。 Shet1にはA～U列までデータがあります。(途中空白セルの場合もあり) Sheet1の5行目以降の、あるセルを選択してマクロを実行すると Sheet1のC～S列までをSheet2のA～Q列へコピペしたいです。 Sheet1は　H列に必ずデータがあるので それらを最終行の判断基準とします。 Sheet1での選択セルは複数の場合もあります。 ただし、同じ行のセルを複数選択しても Sheet2への貼り付けは1行とします。 マクロを実行する度に、Sheet1での選択セルの該当行が Sheet2へ追加されるようにしたいです。 (Sheet2へコピペされたデータは残します) また、Sheet2への貼り付け内容が同じだった場合は 注意喚起のため　メッセージで　「重複データが存在します」を表示したいです。 重複の判断基準はSheet2の　B、D、F列とします。 宜しくお願い致します。

  • excelでの貼り付け

    excelでの貼り付けについての質問です。 連続した行ではなく、飛び飛びになっている行に1行ずつ貼り付けることは可能でしょうか。 たとえば、シート1の2、4、6行目をコピーするとします。(コピーするものはexcelでなくても、数行にわたっているものなら何でも構いません) それを、シート2にコピーするのに シート2の1行目←シート1の2行目 シート2の5行目←シート1の4行目 シート2の10行目←シート1の6行目 というようにしたいのですが、簡単な方法はないでしょうか。 シート2の1、5、10行目を反転させて貼り付けると1～3、5～7、10～12行目に2、4、6行目が貼り付けられてしまいます。1、5、10行目以外にもデータが入っているため他の行にデータが上書きされるのは困ります。1、5、10行目は何度も上書きするので、飛ばしたい行には0を入れておいて加算で貼り付けということもできません。 これを実現させるにはマクロしかないでしょうか？

  • エクセル　マクロ

    エクセルでマクロを組んでるのですがシート1のデータをコピーしてシート２のデータを入力している最終行の次の行にコピーしたいのですが最終行まではＥＮＤ　下⇒キーで行くのはわかりますが、その次の空白行への移動のやり方がわかりません

  • Excelマクロについて

    マクロについて質問をさせていただきます。 A1～10にデータが入力されています。 その中である特定の文字が入っている行をシート２にコピー（移動でもかまいません）するようなマクロはどのように作成すればよろしいでしょうか？？ 宜しくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する