Dim ws2 As Object
Set ws2 = Worksheets("Sheet2")
Dim ws As Object
Set ws = Worksheets("Sheet1")
With ActiveCell
Z = 1
For a = ActiveCell.Row To ActiveCell.Row + 56 Step 5
For b = ActiveCell.Row + 3 To ActiveCell.Row + 56 Step 5
For c = 2 To 13
If Range("C1") = .Offset(a, -2) Then
Z = Z + 1
Range(.Offset(b, 1), .Offset(b, 18)).Copy ws2.Cells(c, 4)
ws.Select
End If
Next c
Next b
Next a
End With
↑のコードを自分なりに考えましたがダメでした。
多分、変なコードを記載していると思います。
セルC1とActiveセルの2つとなりが、一致したら、Sheet2へ転記するというのを繰り返したいのです。
とこがおかしいのか、お手数ですが、ご教示していただければ、幸いです。
どうそ、よろしくお願いします。
No.1ベストアンサー
- 回答日時:
Option Explicit
Sub test()
Dim ws2 As Object
Set ws2 = Worksheets("Sheet2")
Dim ws As Object
Set ws = Worksheets("Sheet1")
Dim a As Long, b As Long, c As Long
With ActiveCell
'Z = 1
For a = ActiveCell.Row To ActiveCell.Row + 56 Step 5
b = a + 3 'For b = ActiveCell.Row + 3 To ActiveCell.Row + 56 Step 5
c = 2 'For c = 2 To 13
If Range("C1") = .Offset(a, -2) Then
'Z = Z + 1
Range(.Offset(b, 1), .Offset(b, 18)).Copy ws2.Cells(c, 4)
'ws.Select
c = c + 1
End If
'Next c
'Next b
Next a
End With
End Sub
んな感じ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
- Visual Basic(VBA) ExcelVBAの転記について 1 2022/03/23 20:13
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBA 空白セルがあったら...
-
Excel 入力規則のリストのカー...
-
複数セルに〇印をつけるマクロ
-
VBA 別ブックから条件に合うも...
-
■EXCEL(二つのセルの文字列を一...
-
Excel VBA コンボボックスで空...
-
エクセル チェックボックスの...
-
マウスを乗せたときにセルの色...
-
クリップボードの内容を変数に...
-
DataGridViewでセルを結合したい
-
VBA 文字列を1文字ずつ調べて"...
-
[VBA]掛け算のプログラム
-
エクセルのセル内の余白の設定...
-
エクセルでの計算式で求められ...
-
E列のセルに数値が入れば(空白...
-
エクセルのセル内に全角数字を...
-
エクセル: セルの枠を超えて表示
-
EXCELで特定のセルに表示...
-
【エクセル】関数で「A1が0でな...
-
エクセルの2ページ目の作り方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 空白セルがあったら...
-
VBA 別ブックから条件に合うも...
-
マウスを乗せたときにセルの色...
-
Excel 入力規則のリストのカー...
-
GridViewの行選択イベントを発...
-
Excel VBA コンボボックスで空...
-
クリップボードの内容を変数に...
-
マクロについて質問です 範囲内...
-
【VB.NET】DataGridViewセルの...
-
エクセルの取り消し線を検出す...
-
エクセル チェックボックスの...
-
複数セルに〇印をつけるマクロ
-
DataGridViewでセルを結合したい
-
Excelマクロで空白セルの大小比...
-
VBA サンダーバードのメール自...
-
VBA 文字列を1文字ずつ調べて"...
-
■EXCEL(二つのセルの文字列を一...
-
vba、targetのRow,Colomnの値取得
-
VB2005 DATAGRIDVIEWでの矢印キ...
-
どのロジックでセルが変更され...
おすすめ情報