Excel VBAで複数のシートを新たらしいブックにコピーする方法が分かりません。

一応、Selectで全てのシートを選択し
コピーする方法は分かるのですが
出来ればSelectなどの画面遷移をプログラム内に含ませたくありません

シートは n件存在します。
ご存知の方がおられましたら
ぜひ、教えて頂けないでしょうか?

A 回答 (3件)

すいません、勉強不足でした。


ただ単純に「全てのシートを選択」し「新規ファイルにコピー」という動作であれば、
sheets.Select
sheets.Copy
だけでできました。
    • good
    • 11

一発で新規ファイルに複数のシートコピーするのは以下のようにすればできそうです。

(マクロの記録結果)
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy

いずれにせよ、シート名の取得はループを使うのが簡単ではないでしょうか。
    • good
    • 2

全部のシートに対して処理を行うのであれば、"For Each"は使えませんか?



Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
'コピー処理を記述
Next
    • good
    • 1
この回答へのお礼

回答ありがとうございます。
質問には書いてなかったのですが、
確かに For Eachでも可能なのですが
できれば Loop を使わずに
1度にコピー出来ないかと思いまして…

お礼日時:2002/01/22 16:38

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qチャイルドシートは、汚れが目立つの?(ベージュ)

チャイルドシートの購入を考えています。
実際に利用されている方に質問です・・

実際に使ってみると、チャイルドシートは、
どれくらい汚れるものでしょうか?

車の内装にあわせ、ベージュ、白系のチャイルドシートの
購入を考えていますが、汚れが目立つのでは?っと心配しています。
アドバイスをお願い致します。

Aベストアンサー

こんにちは。

うちもベージュ系ですが、汚れはそんなに目立ちませんよ!
座ってるだけなので、靴の汚れやたまにパンやお茶を飲ませたりするのでその汚れぐらいです。
以前ベビーカーを購入したときに、赤ちゃんの汚れはミルクやよだれが多いので却って黒など濃い色の方が目立ちますよって店員さんに言われました。

QExcel2003:開かれていない複数ブックより、検索キーを含むシートをコピーしてくる方法

Excelのマクロについてです。全く手がつけられないのでお知恵を拝借願えませんでしょうか。
あるシートに記載された検索キーをもとに複数ブックを検索し、そのデータを含むシートを拾い出すという作業を考えています。
あるレコード(数は10~50程度)に格納された文字列を複数ブックにわたって完全一致検索し、その文字列が含まれるシートを逐一拾ってくる(コピーしてくる)というマクロを考えています。

<状態>
レコードが入ったシート"C:\サンプル住所.xls"の内容:
シートは一枚(シート名:検索元)
セルD5 東京都港区
セルD6 青森県青森市
セルD7 東京都港区
セルD8 北海道足寄町
セルD9 福岡県北九州市
レコードはすべて文字列です。この例では5つですが、レコード数は1~多くても50くらいの間で変動し、同じ文字列が複数回出現することもあります。セル結合はありません。

検索先であるデータベース(以下"DB")は下位ディレクトリ(Prefフォルダ)に各都道府県のブックを放り込んであります:
C:\Prefs\北海道.xls
C:\Prefs\青森.xls
C:\Prefs\宮城.xls
(以下続く)
これら各ブックはシート1枚のみの構成で、セル結合はありません。またデータの重複はありません。なおブックの総数は47都道府県分とは限らず、検索内容によって変動します。

<目標>
"DB"内に"東京都港区"が存在するかどうかを検索し、見つかったら"C:\サンプル住所.xls"の最後に該当シートを追加。見つからなかった場合は空白シートを追加。どちらの場合もシート名は連番&検索キーとします。
これをレコードの数だけループさせ、検索されたシートがぎっしり詰まったブックを完成させます。
つまり、完成後のシートは左から以下のように並びます。
検索元 > 1_東京都港区 > 2_青森県青森市 > 3_東京都港区 > 4_北海道足寄町 > 2_大阪府大阪市

検索の導入部分としてダイアログを出しDBのディレクトリを選ぶところや、シート名をつけなおすあたりはさすがに何とかなるのですが・・・
ワークシート関数でしたらそれなりに使えるのですが、ブックをまたいだ作業はどこから手をつければいいのか皆目わからず。
ポインタやヒント、サンプル等、ご教示頂けると大変助かります。

自分でどこまで組み立てたのか?の思考の過程すら提示できずお恥ずかしい限りですが、なにとぞよろしくお願いします。

Excelのマクロについてです。全く手がつけられないのでお知恵を拝借願えませんでしょうか。
あるシートに記載された検索キーをもとに複数ブックを検索し、そのデータを含むシートを拾い出すという作業を考えています。
あるレコード(数は10~50程度)に格納された文字列を複数ブックにわたって完全一致検索し、その文字列が含まれるシートを逐一拾ってくる(コピーしてくる)というマクロを考えています。

<状態>
レコードが入ったシート"C:\サンプル住所.xls"の内容:
シートは一枚(シート名:検索元...続きを読む

Aベストアンサー

あらかじめファイルリストを作成するサンプルです。
#2さんの書き込みを見て気づいたんですが、1レコード検索する毎に
全エクセルファイルをオープン、クローズしているので
実行速度が遅いかもしれません。

Option Base 0
Option Explicit

Sub test()
  Dim i As Long
  Dim j As Long
  Dim SearchWord As String
  Dim FileList() As String
  Dim FileCnt As Long
  Dim ws As Worksheet
  
  Set ws = ActiveSheet
  
  Application.ScreenUpdating = False
  'ディレクトリ指定でエクセルファイルのリストを作成する
  FileCnt = GetAllxlsFilesInDir("D:", FileList())
  
  For i = 1 To Range("D65536").End(xlUp).Row
    ws.Activate
    SearchWord = Range("D" & i)
    
    If SearchWord = "" Then
      GoTo NEXT_RECORD
    End If
    
    '毎回Openを繰り返しているので遅いかも・・・
    For j = 0 To FileCnt - 1
    
      Workbooks.Open(FileList(j)).Activate
      
      'レコードの検索
      If (Cells.Find(What:=SearchWord, after:=ActiveCell, LookIn:=xlFormulas, _
          LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
          MatchCase:=True, SearchFormat:=False) Is Nothing = False) Then
        
        '見つかったらシートのコピー&リネーム
        With ThisWorkbook
          ActiveSheet.Copy after:=.Sheets(.Sheets.Count)
          .Sheets(.Sheets.Count).Name = i & "_" & SearchWord
        End With
        
        '閉じて次のレコードを探す
        Workbooks(Dir(FileList(j))).Close savechanges:=False
        GoTo NEXT_RECORD
      End If
      
      Workbooks(Dir(FileList(j))).Close savechanges:=False
    
    Next j
    
    '見つからなかったら空白のシートを追加
    With ThisWorkbook
      .Activate
      Sheets.Add
      ActiveSheet.Move after:=.Sheets(.Sheets.Count)
      .Sheets(.Sheets.Count).Name = i & "_" & SearchWord
    End With
    
NEXT_RECORD:
  
  Next i
  
  ws.Activate
  
  Application.ScreenUpdating = True
  
  Erase FileList
  Set ws = Nothing
  
End Sub

'フォルダ内のエクセルファイルのファイルリスト作成
'引数1:検索フォルダパス 引数2:ファイルリスト
'戻り値:見つかったファイル数
Function GetAllxlsFilesInDir(ByVal strDirPath As String, ByRef xlsFiles() As String) As Long

  Dim strTempName As String
  Dim FileCnt  As Long
  
  On Error GoTo GetAllFiles_End

  FileCnt = 0
  ' strDirPath が "\" 文字で終わっていることを確認します。
  If Right$(strDirPath, 1) <> "\" Then
    strDirPath = strDirPath & "\"
  End If
  
  ' strDirPath がディレクトリであることを確認します。
  If GetAttr(strDirPath) And vbDirectory <> vbDirectory Then
    GoTo GetAllFiles_End
  End If
    
  'エクセルファイルを検索する
  strTempName = Dir(strDirPath & "*.xls")
  
  Do Until Len(strTempName) = 0
    
    ' "." と ".." を除外
    If (strTempName = ".") Or (strTempName = "..") Then
      GoTo NEXT_DIR
    End If
    
    If strTempName Like "*.xls" Then
      'サブフォルダリストに登録する
      FileCnt = FileCnt + 1
      ReDim Preserve xlsFiles(FileCnt)
      xlsFiles(FileCnt - 1) = strDirPath & strTempName
    End If
    
NEXT_DIR:
    ' Dir 関数を使用して、次のファイル名を検索します。
    strTempName = Dir()
  Loop
  
  
GetAllFiles_End:

  GetAllxlsFilesInDir = FileCnt
  
End Function

あらかじめファイルリストを作成するサンプルです。
#2さんの書き込みを見て気づいたんですが、1レコード検索する毎に
全エクセルファイルをオープン、クローズしているので
実行速度が遅いかもしれません。

Option Base 0
Option Explicit

Sub test()
  Dim i As Long
  Dim j As Long
  Dim SearchWord As String
  Dim FileList() As String
  Dim FileCnt As Long
  Dim ws As Worksheet
  
  Set ws = ActiveSheet
  
  Application.ScreenUpdating = False
  '...続きを読む

Q新車購入について相談 (内装・シートカバー・スライドドア・ナビ・購入時期など)

トヨタのシエンタ(パールシルバー)のGグレード購入を考えてます。
1年以上検討したので、焦らないほうがとは思いますが、レンタカー代などもかかり、今月中には買いたいと・・・。
1つでもご回答お願いします。

(1)Gグレードを選ぶと、内装は自動的にベージュです。
(内装を黒にしたいならSエディションになる)内装はベージュの方が広く感じそうだと異議なしのつもりでしたが、兄は「外装白にするなら絶対黒だと思う」と。しかしSエディションにすると、標準装備が落ちます。
やはり内装はベージュより黒のほうが合いますか?

(2)シートカバーについて
母は純正ベージュ皮調シートカバーや、インテリアの木目調パネルに惹かれていますが、高いし購入に迷っています。
どう思われますか?

(3)Gグレードは助手席側後席が電動スライドドア標準装備です。運転席側後席も電動にしたいならプラス5万です。以前「両側電動スライドドアは本当に便利」という声を何度か読んだのですが(口コミの掲示板)どうですか?

(4)純正HDDナビを考えてます。デュアル画面(助手席ではDVDが見え運転席ではナビが見れる、また運転中でも助手席ではナビの操作をできるというもので、惹かれますが一番高い)はいいですか?
また、音楽保存できるんだからMDはいらないと思ってましたが、自分の手持ちのMDの多さや、乗車する人がMDを聞きたいかもと思い、MD付がいいかと迷っています。
また、ハンディフリーなどのblueなんとかとかは、便利ですか?
画面の種類もいろいろあります。
純正ナビでお勧めはなんですか?

(5)購入時期ですが、11月中に買おうとしていますが、
ちょっとのことで1月までまてば「19年前期車」となり査定の時など全然違うと聞きましたがどう思われますか?

トヨタのシエンタ(パールシルバー)のGグレード購入を考えてます。
1年以上検討したので、焦らないほうがとは思いますが、レンタカー代などもかかり、今月中には買いたいと・・・。
1つでもご回答お願いします。

(1)Gグレードを選ぶと、内装は自動的にベージュです。
(内装を黒にしたいならSエディションになる)内装はベージュの方が広く感じそうだと異議なしのつもりでしたが、兄は「外装白にするなら絶対黒だと思う」と。しかしSエディションにすると、標準装備が落ちます。
やはり内装はベージュ...続きを読む

Aベストアンサー

(1)車のキャラからいって、内装はベージュのほうが合っている感じがします。(もう少し言うと、キャラから考えて白はあまりふさわしくないような・・・)

(2)どちらもいらないと思いますが・・・特にシエンタに木目は不要だと思います。車格が低いので。

(3)実際に後席ドアをどれだけ使うかの頻度によって違ってくると思いますし、駐車場の関係で、どちら側をよく使うかというのも関係するでしょう。また、坂道に止めることが多ければかなり重宝するでしょうね。ただ、シエンタくらいのコンパクトな車のドアは、比較的軽く閉められるので、展示車などで効果のほどを確かめたほうが良いと思います。

(4)私個人の考えですが、助手席側だけDVDを観るシチュエーションが想像できません。普通のものでじゅうぶんだと思います。ただ、私は社外品をオススメします。身内が今年購入したヴィッツの純正HDDナビ、「最低」でした。道路や案内ルートがよく似た色ばかり使って本当に見づらく、操作性も悪くて、直感的に使えない駄作だなと思いました。カロッツェリアの楽ナビあたりなら、親切度や測位も高レベルで安価ですよ。MD再生OKの機種もありますし、カー用品店の作業員に頼めば、走行中の操作もOKになりますしね(運転者は走行中操作しないこと!)。ハンズフリーやbluetoothは、よほど頻繁にかかってくる人でない限り実用性はないでしょう。

(5)「全然違う」とまではいかないと思います。確かに2年くらいで乗り捨てるようであれば大きく変わるでしょうが、5年、10年使うならさほど変わらないでしょう。5年で4,5万(2,3万かも)の違い、10年でほとんど違いなしかと思います。シエンタは来年あたりには生産中止で消滅濃厚モデルなので、プレミアがつくか、マイナー不人気中古車になるかですが・・・おそらく後者が濃厚なので、長く乗りつぶしてあげるほうが吉だと思います。

(1)車のキャラからいって、内装はベージュのほうが合っている感じがします。(もう少し言うと、キャラから考えて白はあまりふさわしくないような・・・)

(2)どちらもいらないと思いますが・・・特にシエンタに木目は不要だと思います。車格が低いので。

(3)実際に後席ドアをどれだけ使うかの頻度によって違ってくると思いますし、駐車場の関係で、どちら側をよく使うかというのも関係するでしょう。また、坂道に止めることが多ければかなり重宝するでしょうね。ただ、シエンタくらいのコンパクトな車のドアは...続きを読む

Q元データのシートにあるボタンを押すと、後ろのシートにデータをそのままコピーされてシートが追加できるようにしたい

大変困っています。

会員マスタという元データを作成し、そのシートに「シート追加」という
ボタンを作りました。

そのボタンを押すと、元データのシートの後ろにそのまま同じデータがコピーされて追加される様にVBAで設定したいです。

・行などはずれない様に設定したい。
・シート名は変更できるようにしたい。
・コピーして追加したシートにはボタンは表示されないようにしたい。

急いでます。知恵を貸してください。

Aベストアンサー

どんどん作るsheetに同じ名前は付けられませんので、連番にします。


'sheetの存在チェック
Private Function isExistSheet(sheetName As String) As Boolean
Dim ws As Worksheet
For Each ws In Worksheets
If ws.name = sheetName Then
isExistSheet = True
Exit Function
End If
Next
isExistSheet = False
End Function


'新しいシート名の検索
Function GetNewSheetName(newSheetName As String) As String
Dim n As Integer
n = 1
Do
If isExistSheet(newSheetName & str(n)) = False Then
Exit Do
End If
n = n + 1
Loop
GetNewSheetName = newSheetName & str(n)
End Function


Private Sub ボタン11_Click()
Dim ws As Worksheet
Dim newSheetName As String
newSheetName = "新しいシート" '追加シートの先頭名(適当な名前を付けてください)

Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count)) '新しいシートを最後のシートの後ろに作る
Sheets("会員マスタ").Cells.Copy Destination:=ws.Cells(1, 1) '会員マスタのCellデータを新しいシートにコピー
ws.name = GetNewSheetName(newSheetName)'新しいシート名
End Sub

どんどん作るsheetに同じ名前は付けられませんので、連番にします。


'sheetの存在チェック
Private Function isExistSheet(sheetName As String) As Boolean
Dim ws As Worksheet
For Each ws In Worksheets
If ws.name = sheetName Then
isExistSheet = True
Exit Function
End If
Next
isExistSheet = False
End Function


'新しいシート名の検索
Function GetNewSheetName(newSheetName As String) As String
Dim n As Integer
n = 1
Do
If isEx...続きを読む

Q車のシートがベージュ

車のシートがベージュだと汚れやすいですか?
万が一珈琲やコーラ等の黒い液体をこぼした場合、
染みになりますか?
それともある程度撥水してすぐ拭き取れば大丈夫ですか?


新車を購入するのですが、
欲しい車の好きな色だとシートの色がベージュしかないのです。
(フィットハイブリットの赤)


子どもが小さくて汚すので、
ベージュのシートは不安です・・・。
実際に淡い色のシートをお使いの方、感想を教えてください<(_ _)>

Aベストアンサー

私は5ヶ月前に新車でランドクルーザープラドを購入しました。が、東日本大震災やタイの洪水などあって納車は3ヶ月半待ち。私も内装は黒が好きなので(ボディーはパールホワイト)黒を注文しました。
しかしディーラーの注文ミスで標準色のベージュが来てしまいました。再度注文と担当者に言いましたが、また同じ様に3ヶ月ほど納期がかかるという事で10万円分の追加オプションを付けて貰いしぶしぶ納得しました。今まで内装は黒しか乗った事が無いので最初は本当に抵抗ありました。でも人間なんでも慣れですね。普通に乗っていると少し時間が経つとなんだベージュもなかなか良いじゃん。ってなりました。
私もなんで内装は黒かと言うとやはり汚れです。黒はホコリなどは目立ちますが、飲み物をこぼした時などサッと拭いておけば全く目立ちませんもんね。ベージュだとそう言う訳には行きませんからね。そこで私もオススメなのがシートカバーです。純正品は高価なのでホームセンターなど売っている自社ブランドでほぼ全サイズ適用なシートに被せるだけの物が売っています。運転、助手席はもちろん2列目シートに付けてます。お子様の食べこぼしや飲みこぼし位ならほぼこれで防げると思いますよ。カバーが汚れればまた買えば良いんですからね。ちなみに運転、助手席は各980円後部座席は1480円でした。3つ合わせても4000円弱ですからね。内装色か嫌だからってボディーのカラーは絶対に妥協しない方が良いですよ。

本当にグタグタ長々と申し訳ありませんでした。

私は5ヶ月前に新車でランドクルーザープラドを購入しました。が、東日本大震災やタイの洪水などあって納車は3ヶ月半待ち。私も内装は黒が好きなので(ボディーはパールホワイト)黒を注文しました。
しかしディーラーの注文ミスで標準色のベージュが来てしまいました。再度注文と担当者に言いましたが、また同じ様に3ヶ月ほど納期がかかるという事で10万円分の追加オプションを付けて貰いしぶしぶ納得しました。今まで内装は黒しか乗った事が無いので最初は本当に抵抗ありました。でも人間なんでも慣れですね。普通...続きを読む

QブックAシートAにブックBシートBをコピーしたい

VB.net VB.2008 にてプログラムしています。

ブックAのシートAにブックBのシートBをコピーするには、
どうしたら良いでしょうか?

ブックAシートAには他のシートへの参照が入っています。
ブックBシートBの数値を入れたら、ブックA内の他シートに参照された数値が行き渡るように
したいのですが、行き詰ってます。


 Worksheet.Copy()


だと、Before,Afterの設定になり、そのページズバリにコピーができません。

お知恵をお貸しください。
お願いします。

Aベストアンサー

実際に処理を実行するのは Excel なんだから、Excel VBA の
Copy メソッドのヘルプで確認すればいいじゃない???
Worksheet.Range.Copy(Destination) だよね。Cells で
シートの全セルを対象とした Range を取得するか、使用範囲
のみにするか、そのあたりはお好きなようにどうぞ。

Q内装がベージュの軽

内装がベージュ系統の軽を探しています。現在検討しているのは、スズキMRワゴンかラパン、ホンダライフ等なんですが、色々見ているうちに自分の希望がわからなくなってしまいました。以前は興味なかったものでも真剣に考えたり、またその逆だったり。。。そこで何かみなさんの意見が聞きたいのです。勿論内装の話だけでなく、視界の見渡し、運転のしやすさ、手入れのしやすさ等の意見も聞かせてください。他の軽もお勧めがありましたら宜しくお願いします。
とにかくベージュ仕様(白~ベージュ~オレンジ系統。青~グレー~黒系統を除いたもの)を第一条件と考えています。安らぐような、やわらかい可愛い雰囲気が希望です。日産マーチ(普通車ですが)のエクリュみたいなものだと可愛いんですが、ちょっと汚れが心配。。。その辺はどうなんでしょうね。ちなみに日産モコは可愛いのですが割高?なので検討外です。

Aベストアンサー

こんばんはです。
お勧めは絶対にラパんです。
私は、ラパン、MRワゴンをディーラーの展示車を見てきてます。ラパンは室内の開放感が良く、室内のシートなど布製品の触り心地が感動でした。あと運転席から車のボンネットの左右の角がよく見え運転しやすそうでした。

 MRワゴンは室内の開放感がラパンに比べて苦しかったです。座ってみて肩の上からの頭上空間がせまいのです、ドアガラスが近いような気が・・・。

やっぱり高い買い物なので後悔のないように展示車や試乗車を運転したり触ったりして、comuneさん自身の感覚で決めるのが一番だと思いますよ。

Qシートをコピーして新規シートへ値貼付け後、指定フォルダへ保存

題名の通りのVBAコードを作成したのですが、ファイルの保存先が、指定フォルダでは無く、
最後に指定したフォルダへ保存されてしまいます。

どこがおかしいのかご教示頂けますでしょうか。

Private Sub シート保存_Click()

Windows("A.xlsm").Activate
Dim FLname As String
Range("F11,G11").Select
FLname = "申込書_" & Range("F11") & "_" & Range("G11") & ".xlsx"

Workbooks.Add

ActiveWorkbook.SaveAs Filename:=FLname, FileFormat:=xlOpenXMLWorkbook

Windows("A.xlsm").Activate
Cells.Select
Selection.Copy
Windows(FLname).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ChDir "\\TEST\test"
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

題名の通りのVBAコードを作成したのですが、ファイルの保存先が、指定フォルダでは無く、
最後に指定したフォルダへ保存されてしまいます。

どこがおかしいのかご教示頂けますでしょうか。

Private Sub シート保存_Click()

Windows("A.xlsm").Activate
Dim FLname As String
Range("F11,G11").Select
FLname = "申込書_" & Range("F11") & "_" & Range("G11") & ".xlsx"

Workbooks.Add

ActiveWorkbook.SaveAs Filename:=FLname, FileFormat:=xlOpenXMLWorkbook

Windows("A.xlsm...続きを読む

Aベストアンサー

こんにちは


>ファイルの保存先が、指定フォルダでは無く、
>最後に指定したフォルダへ保存されてしまいます。
保存先としたいフォルダは、\\TEST\testということでしょうか?

>ActiveWorkbook.SaveAs~~
のところで、思い通りにならないのかと想像しますが、パラメータに
 Filename:="\\TEST\test\" & FLname
を加えてもうまくいきませんか?
https://msdn.microsoft.com/ja-jp/library/office/ff841185.aspx

Q車の内装の合皮補修内装の合皮部分が汚れていて、内装を拭くシートで擦ったら、合皮は黒なのですが、擦っ

車の内装の合皮補修
内装の合皮部分が汚れていて、内装を拭くシートで擦ったら、合皮は黒なのですが、擦った部分が少し白きなってしまいました…
自分で補修したいと考えてますが、何か良い補修クリームみたいな物はないでしょうか?
傷は付いていません、擦りすぎで少し白くなってしまったのです…
良い物があれば、教えて下さい。
お願いします。

Aベストアンサー

多少ツヤ質感差は出てしまいますが、革靴用の”乳化性クリーム”黒を少量薄く塗って乾拭きすれば良いです。
WAX系の靴墨と間違えない様にしてください。
合成皮革の汚れを落とす場合、車用の内装クリーナーだとアルコール系の溶剤が入っていることがあるのでお勧めしません。
薄めた中性洗剤を含ませて絞ったタオルで拭くか、革靴用の汚れ落とし用クリーナーで拭くのが良いです。

Q下記にて、BシートのアクティブセルにAシートのA1をコピーしようと

下記にて、BシートのアクティブセルにAシートのA1をコピーしようと
したのですが、エラーになります。どなたかご教示ください。

※アクティブはBシート

Aシート.Range("A1").Copy
Bシート.Range(ActiveCell.Address).PasteSpecial Paste:=xlPasteValues

Aベストアンサー

こんばんは。
3パターン示します。

Bシートがアクティブであれば、2番目で十分だと思います。
値のコピーが目的なら、3番目のようにセルの値を代入する方法が一番簡便かも。


Sub test1()
  Worksheets("Aシート").Range("A1").Copy
  Worksheets("Bシート").Range(ActiveCell.Address).PasteSpecial Paste:=xlPasteValues
End Sub

Sub test2()
  Worksheets("Aシート").Range("A1").Copy
  ActiveCell.PasteSpecial Paste:=xlPasteValues
End Sub

Sub test3()
  ActiveCell.Value = Worksheets("Aシート").Range("A1").Value
End Sub


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報