転記が上手くいきません。ご教授いただきたくお願いいたします。
A列から、名前、記号、県名、金額 の表があるとして、
名前”田中”の場合のみ、その列を右側セルに転記していくコードですが、
添付画像の様に、同じ値(ループ最後の25行目の田中列)だけが貼りついてしまい上手くいきません。
貼りつけたいのは、”田中、A、東京、100”、次の行に、”田中、C、神奈川、400”・・・と
次行へ続けたいのですが、下記コードで何がいけないのかの理由と、
できるだけ簡素に記述できるコード見本があればお願いいたします。
Sub 範囲3転記不具合()
Dim rg As Range
Dim ctR As Long
Dim i As Long
ctR = 2
For i = 2 To 25
If Cells(i, 1) = "田中" Then
Set rg = Range(Cells(i, 1), Cells(i, 4))
rg.Copy Cells(ctR, 8).CurrentRegion
ctR = ctR + 1
End If
Next i
End Sub

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 条件をつけてカウントする 4 2021/12/19 20:27
- Excel(エクセル) マクロを修正できないものか、統合シートについて 3 2021/12/07 09:26
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) 離れたセルを比較 5 2022/02/02 19:59
- Excel(エクセル) マクロ作成で困っています。お教え頂けませんか。 1 2021/12/12 17:02
- Visual Basic(VBA) Excel VBA 転記について 2 2023/02/28 08:34
- Visual Basic(VBA) VBAで教えて頂きたいのですが? 3 2021/11/12 23:38
- Excel(エクセル) 【マクロ】セルの塗りつぶし色をbook1からbook2へ転記したい 4 2023/09/27 10:50
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで、あるセルの値に応じて...
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
【VBA】2つのシートの値を比較...
-
Cellsのかっこの中はどっちが行...
-
VBAのFind関数で結合セルを検索...
-
VBA 何かしら文字が入っていたら
-
【Excel VBA】 B列に特定の文字...
-
vba 2つの条件が一致したら...
-
データグリッドビューの一番最...
-
エクセル 2つの表の並べ替え
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
VBAでのリスト不一致抽出について
-
エクセルVBAで『A列』に新...
-
別シートのデータを参照して値...
-
エラーコード1004
-
難問 VBA 今日の日付より前に対...
-
【Excel VBA】カンマと改行コー...
-
VBAを使って検索したセルをコピ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Cellsのかっこの中はどっちが行...
-
IIF関数の使い方
-
Changeイベントでの複数セルの...
-
【VBA】2つのシートの値を比較...
-
VBA 何かしら文字が入っていたら
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
DataGridViewに空白がある場合...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
VBAでのリスト不一致抽出について
-
エクセル 2つの表の並べ替え
-
rowsとcolsの意味
-
【Excel VBA】 B列に特定の文字...
-
VBA 列が空白なら別のマクロへ...
おすすめ情報


