Question

所以今天我试图从Excel文件中选择一行，然后将其粘贴到另一行（在另一个Excel文件中）

我已经搜索了网络和Stack Overflow，但没有任何帮助。我对VB一无所知，也没有时间，因为我在周六之前需要这个，几乎所有内容对我来说都是模糊的，但这是我的代码：

Sub main()

Dim rangeSrc As range, range As range

Set rangeSrc = Application.InputBox("Select src Range", "select src range")
Set range = Application.InputBox("select des range", "select des range")
rangeSrc.Select
Selection.Copy

range.Select
ActiveSheet.Paste

End Sub

我在网上搜集到了很多东西。

第一个问题是它一直给我OBJECT REQUIRED错误。

第二个问题是，如果（将来）我想为选择行添加条件，该怎么办？

谢谢

Answer 1

尝试一下。我会使用range1或range以外的其他名称作为变量名。另请参阅how to avoid select。您可能必须检查范围的大小，range1应该是单个单元格，或与rangerc相同。

Sub main()

Dim rangeSrc As range, range1 As range

Set rangeSrc = Application.InputBox("Select src Range", "select src range", Type:=8) 'type 8 = range
Set range1 = Application.InputBox("select des range", "select des range", Type:=8)

If Not rangeSrc Is Nothing And Not range1 Is Nothing Then
    rangeSrc.Copy range1
End If

End Sub

选择行并将值复制到另一个范围

1 个答案: