2016-12-06 50 views
-1

Excelの四角い領域をコピーしようとしています。 Webに関する私の研究に基づいて、私は次のような行を書いた:Excelで矩形領域を選択

ThisWorkbook.Worksheets(Workbook).Range("c27", Range("c27").End(xlDown).Offset(0, 1)).Copy               

これは2 x 2の正方形しか選択してコピーしない。このコードを修正するのに役立つ人がいますか?
ありがとうございます! 2列の場合

+0

実簡単なテスト - この仕事 'ThisWorkbook.Worksheets(ワークブック).Range( "C27"、ThisWorkbook.Worksheets(ワークブック).Range( "C27")を行い終了。 (xlDown).Offset(0、1))。コピー '? – BruceWayne

+0

「ワークシート(ワークブック)」を「ワークシート(「シート1」)」に変更すると、C27:D31の2列×4行のデータセットで問題を再現できません。あなたは 'Workbook'変数をどのように宣言し定義しましたか? 'C29'は空白ですか? –

答えて

0

Sub dural() 
    Dim N As Long 
    N = Cells(Rows.Count, "C").End(xlUp).Row 
    ActiveSheet.Range(Range("c27"), Range("D" & N)).Copy 
End Sub 
関連する問題