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

2024-11-11 00:52:59

推荐回答（5个）

回答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，完成，保存就可以了。

回答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，完成，保存就可以了。

回答3：

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

回答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 复制，效滑宏果和第二唤败种差不多

回答5：

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