ここから本文です

解決済みの質問

エラーになります。

tenkabito12さん

エラーになります。

-----
a = Sheets(3).Range("A2").End(xlDown).Row
b = 100

With Sheets(Array(3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14))
.Range(.Cells(3, 2), .Cells(a, b)).Value = .Range(.Cells(3, 2), .Cells(a, b)).Value
End With
-----

だと
.Range(.Cells(3, 2), .Cells(a, b)).Value = .Range(.Cells(3, 2), .Cells(a, b)).Value
の部分でエラーになります。

With Sheets(Array(3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14))
と言う書き方は、おかしいでしょうか?

違反報告

ベストアンサーに選ばれた回答

tonzuraskiさん

前の質問に追記してみたので、試してくれたら嬉しいっす~

この質問は投票によってベストアンサーが選ばれました!

この質問・回答は役に立ちましたか?
役に立った!

お役立ち度:お役立ち度 1点(5点満点中)1人が役に立つと評価しています。

この質問に付けられたタグ

タグとは

知恵ノートとは?

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。

お客様自身の責任と判断で、ご利用ください。

話題のキーワード

[カテゴリ:Office系(Word、Excel)]

ただいまの回答者

05時02分現在

735
人が回答!!

1時間以内に1,295件の回答が寄せられています。

>>回答ひろばに行く


知恵コレに追加する

閉じる

知恵コレクションをするID/ニックネームを選択し、「追加する」ボタンを押してください。
※知恵コレクションに追加された質問や知恵ノートは選択されたID/ニックネームのMy知恵袋で確認できます。

ほかのID/ニックネームで利用登録する