No.2ベストアンサー
- 回答日時:
こんばんは
>関数で処理できるのであれば、関数でやりたいです。
以下、関数での例です。
作業1シートのデータは11行目以降上詰めで入力してあると仮定しています。
作業2シートのAU2セルに
=IFERROR(IF(ROW(A1)>COUNTA(作業1!$M$11:$M$100)*作業1!$L$10,"",INDEX(作業1!M:M,MOD(ROW(A1)-1,COUNTA(作業1!$M$11:$M$100))+11)),"")
の数式を入力し、AU2:AJ2にフィルコピー。
さらに、AU2:AJ2を十分に下方迄フィルコピーしておくことで実現できると思います。
※ 上式では、M、N列のデータは11~100行(最大100行目迄)に納まっているものと想定しています。
※ 作業1L10セルの値が、空白や 0、数値以外の場合には何も表示されません。
※ 上詰めではない場合でも計算可能ですが、式が面倒になるので省略。
(その場合の計算の要領は、上記とほぼ同様です。)
No.1
- 回答日時:
VBA とありましたので VBAで
Sub example1()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheets("作業1")
Set ws2 = Sheets("作業2")
Dim n As Long
n = ws1.Range("L10")
Dim rng As Range
'M列基準
Set rng = ws1.Range(ws1.Cells(11, "M"), ws1.Cells(Rows.Count, "M").End(xlUp)).Resize(, 2)
'AU列基準
ws2.Range(ws2.Cells(2, "AU"), ws2.Cells(Rows.Count, "AU").End(xlUp)).Resize(, 2).Clear
rng.Copy ws2.Range("AU2").Resize(rng.Rows.Count * n, rng.Columns.Count)
End Sub
できました。こんなの、すぐにスラスラ書けるなんて、うらやましいです。すぐに教えて頂けたので、電車が動いている間に帰れました。助かりました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) シートが違う2枚のエクセルシートにある数値を別シートにコピーしたい(VBA?) 8 2022/03/31 12:24
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Visual Basic(VBA) 特定の文字を含むシートだけマクロ処理をしたい 1 2023/05/22 01:43
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Excel(エクセル) 複数のExcelブックのシート1の内容を1つのExcelブックにコピー貼り付けたいのでvbaコードを 7 2023/02/10 23:20
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) Excel シート複数 金額日計表と日付 簡単にシートコピーしたら前日の残高と日付を変更させたい 1 2022/07/15 22:10
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBA
Visual Basic(VBA)
-
VBAに関して
Visual Basic(VBA)
-
VBAユーザーホームテキストボックスにカーソルを自動で表示したい
Visual Basic(VBA)
-
-
4
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
5
コードを直していただきたいです。 以下のコードはネットで拾ったものをほんの少しいじった物なのですが、
Visual Basic(VBA)
-
6
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
7
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
8
VBAの質問です、複数のテキストボックスに同じコメントを
Visual Basic(VBA)
-
9
VBA 別シートに表示
Excel(エクセル)
-
10
Excel VBA マクロ あるフォルダー内の複数のファイルを統合したいです
Visual Basic(VBA)
-
11
Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです
Visual Basic(VBA)
-
12
以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが
Visual Basic(VBA)
-
13
VBA とびとびの列を結合させる
Visual Basic(VBA)
-
14
VB.NETでボタンのクリックイベントハンドラが2回実行される
Visual Basic(VBA)
-
15
VBEを開くのにコマンド名が「Visual Basic」な理由はなぜ?
Visual Basic(VBA)
-
16
エクセルのマクロのコードについて
Visual Basic(VBA)
-
17
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
18
特定文字を入ってるCSVの特定の列を特定のexcelシートに取り込みたいです
Visual Basic(VBA)
-
19
【VBA】【マクロ】 指定の条件で、空白の行を挿入
Excel(エクセル)
-
20
Excelセルに入力された文字の色を変える方法を教えてください
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
XL:BeforeDoubleClickが動かない
-
セルの値によって、シート見出...
-
【ExcelVBA】全シートのセルの...
-
【VBA】色のついたシート名を取得
-
エクセルのシート名変更で重複...
-
ブック名、シート名を他のモジ...
-
ExcelVBA シート名を複数セルか...
-
VBAでオブジェクト変数にsetし...
-
Worksheet_Changeの内容を標準...
-
同じ作業を複数のシートに実行...
-
VBAの天才来てください
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
別のシートを参照して計算する方法
-
【VBA】指定した検索条件に一致...
-
ExcelのVBAのマクロで他のシー...
-
【Excel VBA】Worksheets().Act...
-
excelのマクロで該当処理できな...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
同じ作業を複数のシートに実行...
-
ExcelVBA シート名を複数セルか...
-
【ExcelVBA】全シートのセルの...
-
Excel マクロについての相談
-
VBA 存在しないシートを選...
-
実行時エラー'1004': WorkSheet...
-
特定の文字を含むシートだけマ...
-
ExcelのVBAのマクロで他のシー...
-
ブック名、シート名を他のモジ...
-
XL:BeforeDoubleClickが動かない
-
VBA 複数の各シートに行を追加...
-
エクセルのシート名変更で重複...
-
【Excel VBA】Worksheets().Act...
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
for 文の 繰り返し処理に使える...
おすすめ情報