EXCEL vba 将SHEET1中A1单元格中的值 提取到SHEET2 A1中的语句

菜单 -视图 -工具栏- 窗体

在出来的工具栏选按纽,然后画一个按钮.

在出来的对话框里点新建

出来的宏
Sub 按钮1_单击()

End Sub

在中间加入代码
Sub 按钮1_单击()
sheet2.range("a1")=sheet1.range("a1")
End Sub

子易空间站 - Excel培训专家本回答被提问者采纳

sheet2.[a1]=sheet2.[a1]
如何用一个通用的方式，sheet2.cells(x,y)=sheet1.cells(a,b),这当中的x,y,a,b是变量，x是指行数，y是指列数....

不要VBA 直接在SHEET2的A1里输入=sheet1!A1

录制宏就可以搞定
留下信箱我发给你也行

Sub 按钮1_Click()
'
' 按钮1_Click Macro
'

'
Range("A1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("A2").Select
End Sub