excel如何用vba实现单元格数据自动复制上一行本列数据的前三位,只需输入后面几位即可

112345112453114567114890自动取前三位只需输后几位
2025-04-16 15:13:20
推荐回答(3个)
回答1:

那是每隔一行与上面一样,还是没有什么规律,有可能是几行。
如没规律,比较难处理,没有你想的那么方便,
如是每隔一行,那还好办点。

回答2:

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

回答3:

什么意思,是说选择一个单元格,就自动填写上一行的前三位,后面手工写入?