想用VBA实现如下功能，EXCEL中的B单元格内容一旦修改，则将B.value赋给A.value，A和B都是合并单元格。

并且在赋值给A后，还要对A的内容进行一系列操作，现在的语句是用cell代替A的，如果想用with语句改写这段代码，cell应该换成什么？谢谢。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
With Cells(1, 1)
.Value = Target.Value
'这里写你需要的操作

End With
End If
End Sub
合并单元格以左上角的地址为准

用Worksheet_Change事件就可以 Private Sub Worksheet_Change(ByVal Target As Range) …… end sub 没看懂你with语句问的是什么 给你举个with语句的例子吧 sheet1.cells(1,1).value=1 sheet1.cells(1,2).value=2 用with可以写成 with sheet1 .cells(1,1).value=1 .cells(1,2).value=2 end with

可直接写，也可设定变量写： with cells(x,x) 或 with cell '假设这个是区域引用 设变量： set rc=range("xx") ‘=cells(X,X") with rc

可直接写，也可设定变量写： with cells(x,x) 或 with cell '假设这个是区域引用 设变量： set rc=range("xx") ‘=cells(X,X") with rc 再看看别人怎么说的。