我怎么可能对excel vba进行ctrl + shift +下移。我还想知道然后将其粘贴为特殊值。我目前拥有的代码是这样的
Sub CopyCol()
Sheets("Sheet1").Range("B2").End(xlDown).Select.Copy
Sheets("Sheet2").Range("B14").PasteSpecial xlPasteValues
End Sub
所以我想做的是复制B列中的所有内容，而不复制整个列本身。就像条目在第100行结束一样，它应该在那儿停下ctrl + shift + end的工作方式。然后复制其中的任何内容并将其作为值粘贴在b14的sheet2中，因为这是我需要它的特定位置。我知道将.select放在（xldown）之后会帮助我做到这一点，但是那样就不会让我复制。另外，粘贴到另一张纸上也不起作用。
您将使用的方法是这样的：
Sheets("Sheet1").Range(Sheets("Sheet1").Range("B2"),Sheets("Sheet1").Range("B2").End(xlDown)).Copy
Range（）对象的工作方式如下 Range(Start Cell, End Cell)
因此，您将第一个单元格锚定为Sheets("Sheet1").Range("B2")。
然后用锚定End Cell Sheets("Sheet1").Range("B2").End(xlDown))。
现在，另一种类型较少的方法是使用With块：
With Sheets("Sheet1")
.Range(.Range("B2"),.Range("B2").End(xlDown)).Copy
End with
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句