VBA:复制粘贴而不使用剪贴板

本文介绍了VBA:复制粘贴而不使用剪贴板的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

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

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:复制粘贴而不使用剪贴板的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！