EXCELで結合するには

質問

ファイル(1)のA1からG50までのデーターを
別のファイル(2)のE1にデーターをコピーする方法は
コピー→貼り付け以外に簡単な方法がありますか。

また、マクロでクリックすると
ファイル(1)のA1からG50までのデーターを
別のファイル(2)のE1にデーターをコピー貼り付けをする方法は
どのようにしたらよいでしょうか。

回答No.2

Wendy02 · ベストアンサー

こんにちは。

>コピー→貼り付け以外に簡単な方法がありますか。
これは、どういう意味なのでしょうか？Value で相手ファイルに渡すのでしょうか？

以下でいうと、ここの部分を

Rng.Copy SakiBk.Worksheets(SAKISHEET).Range("E1")
　　↓
SakiBk.Worksheets(SAKISHEET).Range("E1").Resize(50,7).Value = Rang.Value

とすることでしょうか？　それとも、ADOやDDEで値を渡すことを意味するのでしょうか？数式やマクロ関数で渡すことでしょうか？コピーが簡単だと思います。

'---------------------------------------------

Sub CopyPasteCells() 'または、Private Sub CommandButton1_Click()
　Dim Rng As Range　'コピー元のブックのシート範囲
　Dim SakiBk As Workbook　'転送先のブック名

　Const SAKIFNAME As String = "ファイル(2).xls" '転送先のブック名
　Const SAKISHEET As String = "Sheet1" '転送先のシート名
　'コピー元は、アクティブシート
　Set Rng = ActiveWorkbook.ActiveSheet.Range("A1:G50")

　On Error GoTo ErrHandler
　If Dir(SAKIFNAME) = "" Then MsgBox "ファイルが存在していません。", 16: End
　Set SakiBk = Workbooks(SAKIFNAME)

　Rng.Copy SakiBk.Worksheets(SAKISHEET).Range("E1")

　Set Rng = Nothing
　Set SakiBk = Nothing
　Exit Sub
ErrHandler:
　'開いていない時は、ブックオープン
　 Workbooks.Open SAKIFNAME
　Resume
End Sub

'---------------------------------------------

回答No.1

Nouble

ファイル1のＡ１をファイル2のＥ１に参照させ
これをオートフィルで必要範囲に拡大し
範囲選択を解かない内にコピーして
値貼り付け
では駄目ですか?

あとファイル1のデータの記載されているシートのタブを右クリックして
「移動またはコピー」を選び
ファイル2の新たなシートとしてコピー追加して
Ａ1以下の左に４列(行?)追加挿入するというのは駄目ですか?

補足

マクロボタンをクリックするとファイル(1)のA1からG50までのデーターが、現在開いている別のファイル(2)のE1にファイル（１）のデーターが入ってきます。どのようにマクロを組んでいるのでしょうか。どのように考えて組まれているのでしょうか教えてください。
このやり方を使ってマクロを組みたいのでよろしくお願いします。