VBA:复制粘贴而不使用剪贴板 [英] VBA: Copy paste without clipboard

问题描述

是否有一种方法可以在不使用剪贴板的情况下进行单行复制/粘贴. 将一个范围-行复制到另一个工作表粘贴范围-整行.我需要值，而不是公式.

Is there a way to do this as one line copy/paste without using the clipboard. copy one range - row to another sheet paste range - entire row. I need values, not formula.

 Sheets("Data").Select 
 ActiveCell.EntireRow.Copy

 Sheets("TSP").Select
 ActiveCell.PasteSpecial Paste:=xlPasteValues

推荐答案

此代码复制值(而不是公式).

This code copy values (not formulas).

Sub a()
  Worksheets("Sheet2").Range("TS").Value=Worksheets("Sheet1").Range("1:1").Value
End Sub  

其中"TS"是范围的名称(一行).

Where "TS" is the name of a range (one row).

这是您要实现的目标吗?

Is this what you are trying to achieve?

编辑

要将活动行复制到Sheet2.Row2(例如)，您可以尝试:

To copy the active row to Sheet2.Row2 (for example) you may try:

Sub a()
 Dim myrow As Integer
 myrow = ActiveWindow.RangeSelection.Row
 Worksheets("Sheet2").Range("2:2").Value = Worksheets("Sheet1").Rows(myrow).Value
End Sub

HTH！

这篇关于VBA:复制粘贴而不使用剪贴板的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！