VBA应用程序在Excel中

我正在使用VBA和一个应用程序来自动执行Excel中的一些操作。 但是我不知道如何以编程方式复制单元格。

我试着用这个代码：

Form1.ex.Range(r1.Text + ":" + r1x.Text).Activate() Form1.ex.ActiveCell.Copy(Destination:=Form1.ex.Range(c1.Text + ":" + c2.Text)) 

其中r1是我从中复制的，然后r1x包含r1和r1x的文本。 它基本上select一个单元格的范围，然后打算复制它们，但是效果不好。

我怎样才能解决这个代码复制单元格从一个位置到另一个？

Answer 1

在这里你去，这个如何做一个副本：

 'Copy range A1:A9 from Sheet1 to Sheet2 A1 : ThisWorkbook.Sheets("Sheet1").Range("A1" & ":" & "A9").Copy _ Destination:=ThisWorkbook.Sheets("Sheet2").Range("A1") 'With your references : Form1.ex.Range(r1.Text & ":" & r1x.Text).Copy _ Destination:=Form1.ex.Range(c1.Text) 

在你的例子中，你使用Form1和ex，如果它们分别是一个工作簿和一个工作表，代码就可以工作，但是如果它是一个用户窗体，则不会。

不要用+连接string，它是运算符&