有没有一种方法可以在不使用剪贴板的情况下以一行复制/粘贴的方式执行此操作。 将一个范围 - 行复制到另一张工作表,粘贴范围 - 整行。我需要的是值(value)观,而不是公式。
Sheets("Data").Select
ActiveCell.EntireRow.Copy
Sheets("TSP").Select
ActiveCell.PasteSpecial Paste:=xlPasteValues
最佳答案
此代码复制值(而不是公式)。
Sub a()
Worksheets("Sheet2").Range("TS").Value=Worksheets("Sheet1").Range("1:1").Value
End Sub
其中“TS”是范围的名称(一行)。
这是您想要实现的目标吗?
编辑
要将事件行复制到 Sheet2.Row2(例如),您可以尝试:
Sub a()
Dim myrow As Integer
myrow = ActiveWindow.RangeSelection.Row
Worksheets("Sheet2").Range("2:2").Value = Worksheets("Sheet1").Rows(myrow).Value
End Sub
呵呵!
关于excel - VBA:无需剪贴板复制粘贴,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3901045/