転記が上手くいきません。ご教授いただきたくお願いいたします。
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の各シートを色ごとで分類して値転記するマクロの作り方を教えて下さい。
Visual Basic(VBA)
-
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています
Visual Basic(VBA)
-
Excel マクロについて
Visual Basic(VBA)
-
-
4
VBA とびとびの列を結合させる
Visual Basic(VBA)
-
5
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
6
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
7
引数に数値、文字列の混在
Visual Basic(VBA)
-
8
マクロVBAについてご教授いただけましたらと存じます。
Visual Basic(VBA)
-
9
vba userFormのSubを標準モジュールから呼び出す方法を教えてください
Visual Basic(VBA)
-
10
エクセル CSVファイルについて
Excel(エクセル)
-
11
エクセルで条件書式と数式の組み合わせはできる?
Excel(エクセル)
-
12
Excel VBAマクロをマスターするのに、どれ位時間掛かりますか?
Visual Basic(VBA)
-
13
excl2013 縦の表を横にVBAでする方法
Excel(エクセル)
-
14
Excel VBAでの数値の計算についておしえてください
Visual Basic(VBA)
-
15
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
16
同じ型【ハイフンと数字】をぶつけて、イコールである事を証明する関数はありますか?
Excel(エクセル)
-
17
VBA UserFormからの転記で
Visual Basic(VBA)
-
18
VBA 同じ名前のオブジェクトを選択したいのですが
Visual Basic(VBA)
-
19
エクセルの計算式で教えてほしいことがあります 5000+1500✖️1.1✖️4 その後100のくら
Excel(エクセル)
-
20
一つのフォルダーに50個のエクセルファイルがあります。 各ファイルにはAとBのシートがあります。 5
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA指定行削除
-
二つのリストを比べて部分一致...
-
エクセルについて
-
vba 2つの条件が一致したら...
-
Worksheets メソッドは失敗しま...
-
targetをA列のセルに限定するに...
-
R言語で、列名でループ
-
VBAで、特定の文字より後を削除...
-
VBAの構文 3列置きにコピーし...
-
空白セルをとばして転記
-
B列の最終行までA列をオート...
-
ファイルをフォルダに自動振り...
-
難問 VBA 今日の日付より前に対...
-
VBAコンボボックスで選択した値...
-
EXCEL VBA 条件に合致しない行...
-
エクセルVBAで『A列』に新...
-
rowsとcolsの意味
-
VBA A列にありB列にないものま...
-
VBAリストボックスへの複数列の...
-
【VBA】2つのシートの値を比較...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBA指定行削除
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
マクロ 最終列をコピーして最終...
-
エクセルについて
-
【VBA】2つのシートの値を比較...
-
URLのリンク切れをマクロを使っ...
-
データグリッドビューの一番最...
-
Changeイベントでの複数セルの...
-
空白セルをとばして転記
-
rowsとcolsの意味
-
エクセルVBAにて =A1=B1とすれ...
おすすめ情報