Question

excel中 在一个表中的按钮写VB代码，把单元格的内容复制到另一个单元格中。闪

'复制表一 A1的值 到表二 的B1
Sheets("表一").Range("a1").Copy

Sheets("表二“).Range("B1").PasteSpecial (xlPasteValues)

'复制表一 A2的值 到表二 的B2
Sheets("表一").Range("a2").Copy

Sheets("表二").Range("b2").PasteSpecial (xlPasteValues)

功能实现了，但是总是闪 怎么能优化代码。 因为我复制好几个呢 谢谢

Answer 1

你的代码是录制宏出来的吧？宏录制有一个致命缺点，它录制的是你的操作过程，而不是结果。
想copy，paste这种动作，是很麻烦的
其实你只需要一个赋值就够了“=”
Sheets("表二“).cells(1,2)=Sheets("表一“).cells(1,1)

但是我觉得你应该有很多行要复制，给你写了一个批量的，能把表一中A列所有数据一口气都复制到表二B列中
Sub a()
r = 1
Do Until Cells(r, 1) = ""
Sheets("表二“).Cells(r, 2) = Sheets("表一“).Cells(r, 1)
r = r + 1
Loop
End Sub
以下是说明

sub a()--定义一个宏，叫a
初始值r=1，即，开始复制数据的第一行的行号，如果你从A2开始复制，r就等于2
开始循环，直到第一列最后一个数
叫"表二“的表格中第r行，2列=叫表一的表格中，第r行第1列的数值
行数+1
继续循环
结束宏

Answer 2

以后在你的所有宏里面加上下面代码的前后两句代码。

至于代码化简，你要说完整你要做什么才好说。

Sub AAA()
    Application.ScreenUpdating = False '代码开头加上
       
    Sheets("表二").Range("B1").Value = Sheets("表一").Range("a1").Value
    Sheets("表二").Range("B2").Value = Sheets("表一").Range("a2").Value
       
    Application.ScreenUpdating = True '代码结束加上
End Sub

Answer 3

直接写
Sheets("表一").Range("B1").value=Sheets("表二“).Range("A1").value
试试看

追问

不行 连功能都实现不了了 我是在exel表一里面 一个确定按钮写的 vb代码

追答

额，写快了。。。应该是（当前sheet）
Range("B1") = Range("A1")