転記が上手くいきません。ご教授いただきたくお願いいたします。
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も見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
Excelの各シートを色ごとで分類して値転記するマクロの作り方を教えて下さい。
Visual Basic(VBA)
-
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています
Visual Basic(VBA)
-
VBA とびとびの列を結合させる
Visual Basic(VBA)
-
-
4
Excel マクロについて
Visual Basic(VBA)
-
5
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
6
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
7
引数に数値、文字列の混在
Visual Basic(VBA)
-
8
数字をコンマで区切った文字列の集計のマクロの修正
Excel(エクセル)
-
9
Excelマクロで空白セルの大小比較処理について
Visual Basic(VBA)
-
10
マクロVBAについてご教授いただけましたらと存じます。
Visual Basic(VBA)
-
11
vba userFormのSubを標準モジュールから呼び出す方法を教えてください
Visual Basic(VBA)
-
12
エクセル CSVファイルについて
Excel(エクセル)
-
13
エクセルで条件書式と数式の組み合わせはできる?
Excel(エクセル)
-
14
excl2013 縦の表を横にVBAでする方法
Excel(エクセル)
-
15
Excel VBAマクロをマスターするのに、どれ位時間掛かりますか?
Visual Basic(VBA)
-
16
Excel VBAでの数値の計算についておしえてください
Visual Basic(VBA)
-
17
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
18
同じ型【ハイフンと数字】をぶつけて、イコールである事を証明する関数はありますか?
Excel(エクセル)
-
19
VBA UserFormからの転記で
Visual Basic(VBA)
-
20
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
VBA 何かしら文字が入っていたら
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
空白セルをとばして転記
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
VBAのFind関数で結合セルを検索...
-
VBAを使って検索したセルをコピ...
-
マクロについて。S列の途中から...
-
【VBA】2つのシートの値を比較...
-
エクセルVBA シートモジュール...
-
文字列の結合を空白行まで実行
-
エクセルについて
-
VBAコンボボックスで選択した値...
-
Excel(VBA) 特定の条件に該当...
-
マクロ 最終列をコピーして最終...
-
エクセルVBAにて =A1=B1とすれ...
-
Excel VBA:エクセルのマクロで...
-
エクセルVBA intersect colu...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
マクロ 最終列をコピーして最終...
-
VBA 何かしら文字が入っていたら
-
Changeイベントでの複数セルの...
-
URLのリンク切れをマクロを使っ...
-
エクセルVBAにて =A1=B1とすれ...
-
VBAでのリスト不一致抽出について
-
データグリッドビューの一番最...
-
マクロについて。S列の途中から...
-
VBA UserFormからの転記で
-
targetをA列のセルに限定するに...
おすすめ情報