![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんばんは
>コードをご教示ください。
「Aというブック」、「Bというブック」がどこにあるのか、ブック名は何かなどが不明な上に、全体に曖昧な表現なので、勝手に解釈してあります。
また、想定外の状況に関しては、まとめてエラー処理しています。
以下は、
「bookB.xlsxブックのシートのうち、bookA.xlsxのシート"2"のF1セルにある名称のシートから、C47:J147のセル範囲の値を、bookA.xlsxの同じ位置に転記する」
という内容のものです。
※ 両ブックとも開いている状態と仮定しています。
※ ブック名は仮に「bookA.xlsx」「bookB.xlsx」としてありますので、
実際の環境に合わせて修正してください。
※ 対象シートが保護されていたりするとエラーになります。
Sub Q_13224397()
Dim sh1 As Worksheet, sh2 As Worksheet
On Error GoTo errorP
Set sh1 = Workbooks("bookA.xlsx").Worksheets("2")
Set sh2 = Workbooks("bookB.xlsx").Worksheets(sh1.Range("F1").Text)
On Error GoTo 0
sh1.Range("C47:J147").Value = sh2.Range("C47:J147").Value
Exit Sub
errorP:
MsgBox "指定ブックまたは指定シートが見つかりません"
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 検索して一致したセル...
-
Excel VBA リンク先をシート...
-
【ExcelVBA】全シートのセルの...
-
Vba UserformからExcelシートの...
-
ユーザーフォームに入力したデ...
-
特定の文字を含むシートだけマ...
-
Excel チェックボックスにチェ...
-
excelのマクロで該当処理できな...
-
エクセルで通し番号を入れてチ...
-
VBAで指定シート以外の選択
-
vbaでworksheetfunctionでの複...
-
XL:BeforeDoubleClickが動かない
-
ブック名、シート名を他のモジ...
-
『実行時エラー'1001': 'Range...
-
EXCEL(VBA)でシート保護がかか...
-
シート名一致すれば印刷、一致...
-
VBA 入力月で該当シートを選択...
-
別のシートから値を取得するとき
-
Pythonを勉強しています。
-
VBAでシート挿入を禁止したい。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
excelのマクロで該当処理できな...
-
ユーザーフォームに入力したデ...
-
同じ作業を複数のシートに実行...
-
【ExcelVBA】全シートのセルの...
-
エクセルのシート名変更で重複...
-
特定の文字を含むシートだけマ...
-
ブック名、シート名を他のモジ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
VBA 存在しないシートを選...
-
ExcelのVBAのマクロで他のシー...
-
Excelマクロのエラーを解決した...
-
実行時エラー1004「Select メソ...
-
エクセルのマクロでアクティブ...
-
【Excel VBA】Worksheets().Act...
-
VBA 最終行まで数式をコピーする
-
シートが保護されている状態で...
-
VBAで同じシート名のコピー時は...
-
エクセル・マクロ シートの非...
おすすめ情報
ありがとうございます!すみません、両方開いていると仮定していただいて大丈夫です。
Aブックの全てのシートにBブックのシートから該当シートを検索して転記したいので、繰り返し処理もいれていただからと助かります!