Excel怎样快速简单录入复杂内容

1、首先打开Microsoft Office Excel 2007，新建文档并保存文件名《Excel怎样快速简单录入复杂内容.xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。

2、鼠标移到当前工作表标签栏“Sheet1”表（需要在哪表输入在哪表），右键，弹出快捷菜单，如下图。

3、在快捷菜单找到【查看代码】并单击，打开VBE（宏）编辑界面，如下图。

4、在右边代码框中复制下面代码到该框中，如下图：

Private Sub Worksheet_Change(ByVal Target As Range)

    '2020-9-7 22:03:50

    Dim n1, n2, n As Long, m, i, mb As String

    On Error Resume Next

    Target.NumberFormatLocal = "@"

    m = Target.Text

    n = InStr(1, m, "-", 1)

    If n = 0 Then Target.NumberFormatLocal = "G/通用格式"

    If n > 0 Then

        n1 = Left(m, n - 1)

        n2 = Right(m, Len(m) - n)

        If IsNumeric(n1) And IsNumeric(n2) Then

            If n1 = n2 Then

                mb = n1 & "," & n2

            ElseIf n1 < n2 Then

                For i = Val(n1) To Val(n2)

                    If i = Val(n1) Then

                        mb = n1

                    Else

                        mb = mb & "," & i

                    End If

                Next i

            Else

                For i = Val(n1) To Val(n2) Step -1

                    If i = Val(n1) Then

                        mb = n1

                    Else

                        mb = mb & "," & i

                    End If

                Next i

            End If

            Target.WrapText = True

            Target.Value = mb

        End If

    End If

End Sub

5、以上操作动态过程如下：

6、回到工作表窗口，输入显示变简快速了，过程如下图。

7、如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！