Question

使用excel VBA将一个单元格内输入的数据赋给另一个单元格

例如，我在A1单元格内输入一个数字24，此时excel自动在B1内出现24，不用单元格之间的链接，而只使用vba，谢谢！

Answer 1

鼠标右击要实现此功能的工作表的表标签处，选“查看代码”打开代码编辑窗口，如果窗口有任何代码，都把它删除，然后复制》粘贴下面的代码进去，保存

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
Range("b1").Value = Range("a1").Value
End If
End Sub

Answer 2

在当前表格时直接赋值有三种方式：
1.［B1]=[A1]
2. range("A1")=range("B1")
3. cell(1,1)=Cell(1,2)

间接赋值：
dim val as string
val=[A1]
[B1]=val