vba怎样把一个单元格中的值赋给另一个单元格

Question

我要把工作薄book1工作表sheet1中的a1的值赋给工作薄book2工作表sheet1中的b1
wlorkbooks("book1").sheet(sheet1).cells(1,1).value=wlorkbooks("book2").sheet(sheet1).cells(2,1).value
但是总是提示错误下标越界

Answer 1

1、首先点击EXCEL打开EXCEL工作薄，工作簿的名称为“给单元格赋值.xls”。

2、进入EXCEL界面后点击开发工具选项卡，点击上面的VIUAL BASIC按钮打开VBA编辑器。

3、进入VBA编辑器后再代码输入窗口输入如下代码。Sub 给单元格赋值()Workbooks("给单元格赋值.xls").Worksheets("数据").Range("A1").Value = 100End Sub。

4、回到EXCEL界面插入控件按钮插入表单控件。

5、给按钮改名字为给单元格赋值并给按钮指定到宏“给单元格赋值”。

6、点击控件按钮就会看到指定的单元格比如A1中出现了设置的数值，比如此例中为100，完成，保存就可以了。

Answer 2

1、首先点击EXCEL打开EXCEL工作薄，工作簿的名称为“给单元格赋值.xls”。

2、进入EXCEL界面后点击开发工具选项卡，点击上面的VIUAL BASIC按钮打开VBA编辑器。

3、进入VBA编辑器后再代码输入窗口输入如下代码。Sub 给单元格赋值()Workbooks("给单元格赋值.xls").Worksheets("数据").Range("A1").Value = 100End Sub。

4、回到EXCEL界面插入控件按钮插入表单控件。

5、给按钮改名字为给单元格赋值并给按钮指定到宏“给单元格赋值”。

6、点击控件按钮就会看到指定的单元格比如A1中出现了设置的数值，比如此例中为100，完成，保存就可以了。

本回答被网友采纳

Answer 3

EXCEL VBA在编程时，经常会遇到取单元格值，并赋值，一般是两种语句：
1、range("A1")这样的，直接使用引用。赋值即可使用range("a1")=range("b1")
2、cells(行号，列号）这样的，使用RC引用方式，赋值可使用cells(1,1)=cells(1,2)

Answer 4

wlorkbooks("book1").sheet(sheet1).cells(1,1).Formula = wlorkbooks("book2").sheet(sheet1).cells(2,1).Text
以上是只复制数值

wlorkbooks("book1").sheet(sheet1).cells(1,1).Formula = wlorkbooks("book2").sheet(sheet1).cells(2,1).Formula
以上是复制公式内容

wlorkbooks("book1").sheet(sheet1).cells(1,1).Copy wlorkbooks("book2").sheet(sheet1).cells(2,1)

以上相当于CTRL+C,CTRL+V 复制，效果和第二种差不多本回答被提问者和网友采纳

Answer 5

不用这么写，其实很简单，你用下我的试试，workbooks("book2").sheet1.cells(2,1)=workbooks("book1").sheet1.cells(1,1),你写反了肯定报错了