excel如何限定某个单元格的字数超出部分移到指定的单元格

EXCEL工作为表事件中写如代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Len(Target) > 30 Then
        TargetOffset(1, 0) = Mid(TargetValue, 31, 90)
        TargetValue = Mid(TargetValue, 1, 30)
    End If
End Sub

1打开Excel表格，点击工具栏的“数据”然后选择“数据验证”。
2在数据有效性里我们可以将有效性条件修改为“自定义”接着在公示栏输入“=LEN(F2)<=5”。5表示的是长度，当然也可以1打开Excel表格，点击工具栏的“数据”然后选择“数据验证”。
2在数据有效性里我们可以将有效性条件修改为“自定义”接着在公示栏输入“=LEN(F2)<=5”。5表示的是长度，当然也可以改成其他更大或者更小的数值。
3接着点击出错警告，将错误样式修改为警告，接着输入出错警告的内容
4这样当我们在F列里输入的字符数超过5个的时候系统就会出现警告提醒。改成其他更大或者更小的数值。
3接着点击出错警告，将错误样式修改为警告，接着输入出错警告的内容
4这样当我们在F列里输入的字符数超过5个的时候系统就会出现警告提醒。

---