Mac Excel VBAのワークブックへのコピー/貼り付けワークブック

構文エラーまたは行方不明 '）'エラーが発生し続ける。あるブックから別のブックにコピーしたいだけです。この式（ "A27：DE10000"）で範囲を指定できますか？または、式などのタイプを暗くする必要がありますか？

Sub CopyData()

Workbooks(“COPYFROM.xlsx”).Worksheets(“ANALYSIS”).Range(“A27:DE10000”).Copy
Workbooks(“COPYTO.xlsx”).Worksheets(“ANALYSIS”).Range(“A27:DE10000”)

End Sub

構文エラーは、行継続文字が欠落していることが原因である可能性があります（" _"）

あなたSubは2つの異なる行を含みます（改行で区切られていますか？）、それらが1行にあるべきとき

そしておそらく、引用符：“ANALYSIS”vs"ANALYSIS"

。

コピー/貼り付けメソッドには、さまざまな方法（および構文）があります。

1.-同じ行で：

Sheet1.Range("A1").Copy Destination:=Sheet2.Range("A1")

'Or

Sheet1.Range("A1").Copy Sheet2.Range("A1")     'Without using the named parameter

2. -2つの別々の行- Worksheet.Paste（範囲メソッドではありません）：

Sheet1.Range("A1").Copy
Sheet2.Paste Destination:=Sheet2.Range("A1")      '.Paste method belongs to Worksheet

3. -2つの別々の行で- Range.PasteSpecial：

Sheet1.Range("A1").Copy
Sheet2.Range("A1").PasteSpecial Paste:=xlPasteAll '.PasteSpecial belongs to a Range Object

。

構文はバージョン1を使用しています

エラーを修正し、水平にスクロールせずに画面上の両方の行を表示できるようにするには：

Option Explicit

Public Sub CopyData()

    Workbooks("COPYFROM.xlsx").Worksheets("ANALYSIS").Range("A27:DE10000").Copy _
        Workbooks("COPYTO.xlsx").Worksheets("ANALYSIS").Range("A27:DE10000")

End Sub

または

Public Sub CopyData()

    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet

    Set wsSource = Workbooks("COPYFROM.xlsx").Worksheets("ANALYSIS")
    Set wsTarget = Workbooks("COPYTO.xlsx").Worksheets("ANALYSIS")

    wsSource.Range("A27:DE10000").Copy Destination:=wsTarget.Range("A27:DE10000")

End Sub