那是每隔一行与上面一样,还是没有什么规律,有可能是几行。
如没规律,比较难处理,没有你想的那么方便,
如是每隔一行,那还好办点。
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim s1, s2 As String If Target.Row > 2 Then s1 = CStr(Target.Offset(-2).Value) s2 = CStr(Target.Offset(-1).Value) If s2 = "" Then End Target.Offset(-1).Value = Left(s1, 3) + s2 End IfEnd Sub
什么意思,是说选择一个单元格,就自动填写上一行的前三位,后面手工写入?