可以使B20：AE20这行如上需求
[text]Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [B20:AE20]) Is Nothing Then
Application.EnableEvents = False
For Each c In Intersect(Target, [B20:AE20])
c.Value = c.Value * 40
Next
Application.EnableEvents = True
End If
End Sub[/text]
这时我想让B21，B22，B23等这几行也能运用到这串代码，但是这么改都不能让这几行像B20这样子呈现。百度也找不到。
有没有老哥会这个，帮小弟看看！！请教请教
