在任意一个单元格中输入一个“0”,然后鼠标指向那个单元格的右下角,等右下角租运出现“十”时,按着鼠标不放拉下卖尺来弊配梁就可以自动填充了。明白吗?
给你一森余猜段VBA
-----------
Private Sub Worksheet_Change(ByVal Target As Range)
'E|F|I|J|M|N|Q|R
Application.EnableEvents = False
If (Target.Cells(1, 1).Column > 26) or (Target.Cells(1, 1).row <5 ) Or (Target.Cells(1, 1).Value = "") Then GoTo 100
Dim ir As Double: ir = Target.Row
Dim istr As String: istr = "E|F|I|J|M|N|Q|R"
Dim arr: arr = Split(istr, "此型|")
Dim lT As String: lT = Mid(Target.Address(), 2, 1)
For Each c In arr
If c <>毁羡 lT Then Range(c & ir).Value = "0"
Next
100:
Application.EnableEvents = True
End Sub
请问这七个单元格的位置是什么