|
- Private Sub Worksheet_Change(ByVal Target As Range)
- Application.EnableEvents = False
- If Target.Address = "$C$1" Or Target.Address = "$F$1" Then
- Co = Range("C9:H9").Find(Range("C1"), LookIn:=xlValues).Column
- Range(Cells(10, Co), Cells(15, Co)).Copy Range("I10:I15")
- Range("F1").Copy
- Range("I10:I15").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
- :=False, Transpose:=False
- Target.Select
-
- End If
- Application.CutCopyMode = False
- Application.EnableEvents = True
- End Sub
复制代码
Execl高手用VBA解决定位求和.zip
(16.98 KB, 下载次数: 8)
|
评分
-
查看全部评分
|