wS1シートに下記の条件付き書式が設定されています。
=CELL("row")=ROW()
'適用先 =$B:$K
別のシートから下記のVBAで転記を実行するとコピーされた範囲の条件付き書式が消えてしまいます。
条件付き書式が消えないようなコピーの方法を教えてください。
この転記作業は年1回だけなので、現在は転記終了後に条件付き書式を再設定しています。ただ同じようなブックが何本かあるので、できれば条件付き書式を壊さずにコピーできる方法を探しています。
Sub 転記()
Dim i As Long, n As Long, c As Range, wS1 As Worksheet, wS2 As Worksheet
Set wS1 = ("A")
Set wS2 = ("B")
For i = 2 To wS1.Cells(Rows.Count, 4).End(xlUp).Row
Set c = wS2.Columns(2).Find(what:=wS1.Cells(i, 4), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
n = c.Row
wS2.Cells(n, 3).Resize(1, 8).Copy wS1.Cells(i, 5)
End If
Next i
End Sub
No.2ベストアンサー
- 回答日時:
このようにしたらどうでしょうか。
wS2.Cells(n, 3).Resize(1, 8).Copy wS1.Cells(i, 5)
↓
wS1.Cells(i, 5).Resize(1,8).Value = wS2.Cells(n, 3).Resize(1, 8).Value
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) エクセル 値をコピペした時に、条件付き書式で塗られた背景色もペーストさせる 2 2023/04/05 17:21
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルの表示形式を保ったまま、セルに値を代入するには?
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
EXCEL VBA 文中の書式ごと複写するには
Visual Basic(VBA)
-
6
VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカウントできる、VB
Visual Basic(VBA)
-
7
VBA:日付を配列に入れ別セルに転記するとデータ型が変わる
Visual Basic(VBA)
-
8
エクセルでエラーが出て困っています。
Excel(エクセル)
-
9
VBAでシート書式の自動変換を作動させない方法
Excel(エクセル)
-
10
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
11
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
12
excel:条件付き書式の適用範囲が変わる
Excel(エクセル)
-
13
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
14
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
15
別のシートから値を取得するとき
Visual Basic(VBA)
-
16
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
17
ExcelVBA データを消去すると罫線も消える?
その他(プログラミング・Web制作)
-
18
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
19
エクセルでファイルを閉じても空ウィンドウが残ります
Excel(エクセル)
-
20
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの条件付き書式を崩された...
-
excel関数式の一部を太字にする
-
Excel 書式を関数で判断。
-
EXCEL 表の書式のみ変更不可(...
-
Excel 条件付書式で土日の左・...
-
エクセル:一定以上の数値にな...
-
エクセルで、書式は変えずに連...
-
excelで選択範囲の反転をしたい...
-
エクセル 条件付き書式を他の...
-
条件付き書式(色変更)は、予...
-
Excel マクロの実行が途中で止...
-
条件付き書式が選択できない?!
-
条件付書式で色づけしたセルの...
-
Excel 条件付書式で二つの条件...
-
Excelで、塗りつぶしを含め同じ...
-
エクセルで「住所」を 住所1、...
-
文字の色を変える関数を探して...
-
エクセル→貼り付けのオプション...
-
EXCELの関数でセルに色を設定
-
エクセルでコメントを入れた時...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの条件付き書式を崩された...
-
Excel 書式を関数で判断。
-
excel関数式の一部を太字にする
-
EXCEL 表の書式のみ変更不可(...
-
excelで選択範囲の反転をしたい...
-
エクセル:一定以上の数値にな...
-
エクセルで、書式は変えずに連...
-
Excel 条件付書式で土日の左・...
-
Excel 条件付書式で二つの条件...
-
エクセルのピボットテーブルの...
-
条件付き書式の条件に時刻を指...
-
エクセルで1年前の日付になった...
-
エクセルで2つのシートで重複し...
-
エクセル→貼り付けのオプション...
-
条件付き書式(色変更)は、予...
-
VBAで転記すると元のシートの条...
-
Excelで、塗りつぶしを含め同じ...
-
Excelで4勤2休のカレンダーを作...
-
Excel2007で、条件付き書式の一...
-
VBAでシート書式の自動変換を作...
おすすめ情報