VBAは全くの素人です。仕事でどうしても必要な設定のため、調べていたところVBAでできるのではないか、、、と行きつきました。
急ぎで対応が必要なため、どなたか詳しい方、ご教示いただければ幸いです。
サンプルですが、画像添付します。(簡単な社員リストです)
B〜F列:VLOOKUPの数式を設定
G列:固定フラグ(手動でコントロール)
G列に1がある行について、A~F列の値を同じセルにコピー&ペーストしたいです(値、書式貼り付け)
G列に1が無い5行目以降のB〜F列の数式は消さない
素人ながら、色々調べて、セルを選択した状態でマクロ実行する場合の値貼り付けは、
下記でできることが分かりました。
Sub Macro2()
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
しかし、固定フラグがある場合に、該当する行について値のコピー&ペーストするにはどうしたらいいのか、で詰まっております。
条件つけるには「If」なんだと思いますが、条件に該当する行を選択し、コピー&ペーストする、という部分が上手く書けません。
どうぞよろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんばんは
ご提示の内容を、必要な行数だけ繰り返す処理にすればよいですね。
※ 社員番号のあるA列には空白はないものと仮定します。(=最終行の判断のため)
Sub Sample()
Dim rw As Long
For rw = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(rw, 7).Value = 1 Then _
Cells(rw, 2).Resize(, 5).Value = Cells(rw, 2).Resize(, 5).Value
Next rw
End Sub
早々にご回答いただき、ありがとうございます。
サンプルの方でこちらの処理動かしてみたところ、うまくいきました!
本番のエクセルでもうまく動くかやってみようと思います!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) 【!】Excel 2つの条件付き書式が反映されません。。 5 2023/07/14 16:47
- Visual Basic(VBA) vbaで条件付き書式を設定したときの適用範囲について 1 2023/07/17 23:14
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
IIF関数の使い方
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
vba 2つの条件が一致したら...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
Changeイベントでの複数セルの...
-
VBAを使って検索したセルをコピ...
-
【Excel VBA】カンマと改行コー...
-
VBAを用いて条件付きの平均値、...
-
VBAのFind関数で結合セルを検索...
-
VBAでのリスト不一致抽出について
-
VBAで、特定の文字より後を削除...
-
【VBA】2つのシートの値を比較...
-
VBAでエラーインジケーターにつ...
-
VBAの構文 3列置きにコピーし...
-
rowsとcolsの意味
-
VBAで10行おきにセルの下に罫線...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
マクロ 最終列をコピーして最終...
-
VBAを使って検索したセルをコピ...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
Excel(M365) Vlookup/セル反転(...
-
VBA指定行削除
-
VBAでのリスト不一致抽出について
-
C# dataGridViewの値だけクリア
-
Changeイベントでの複数セルの...
-
VBAで、特定の文字より後を削除...
-
rowsとcolsの意味
おすすめ情報