在excel中选择矩形区域

-1

我想在Excel中复制矩形区域：两列中的任何一行。基于我在网上的研究，我写了一行：在excel中选择矩形区域

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

它选择和复制只有2乘2平方。有人能帮我纠正这个代码吗？
谢谢！

2016-12-06 newToVBA

真正的快速测试 - 做这项工作'ThisWorkbook.Worksheets（练习册）.Range（ “C27”，ThisWorkbook.Worksheets（练习册）.Range（ “C27”）结束。（xlDown）.Offset（0，1））。Copy'？ – BruceWayne

如果将'Worksheets（Workbook）'更改为'Worksheets（“Sheet1”）'，我无法在'C27：D31'中的2列x4行数据集中重现您的问题。你如何声明和定义'Workbook'变量？ C29是空白单元吗？ –

对于两列：

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

2016-12-06 00:37:26

回答