Sub a()
Worksheets("Sheet2").Range("TS").Value=Worksheets("Sheet1").Range("1:1").Value
End Sub
其中“TS”是范围的名称(一行) .
这是你想要实现的目标吗?
Edit
要将活动行复制到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
2 回答
此代码复制值(不是公式) .
其中“TS”是范围的名称(一行) .
这是你想要实现的目标吗?
Edit
要将活动行复制到Sheet2.Row2(例如),您可以尝试:
HTH!
出于某种原因,没有 .
PasteSpecial
是关于剪贴板的 .如果您只需要值,请复制它们
For
循环 .