EXCEL VBA自动拆分单元格信息?

发布网友 发布时间：2022-04-24 05:02

我来回答

共4个回答

热心网友 时间：2023-10-30 12:06

示例数据表：

选择需要拆分的单元格B2，执行宏（把B2分为3项，并复制此行3次）后结果如下：

这是不是你需要的，因为你没有这样清晰的需求，我只有猜测。如果是你需要的，代码如下几行就可以：

代码的文本为：

Option Explicit

Sub 拆分选择单元格并复制行()

    Dim arr, t, x, y

    x = ActiveCell.Row

    y = ActiveCell.Column

    arr = Split(ActiveCell.Value, ";")

    If UBound(arr) > LBound(arr) Then

        For Each t In arr

            Rows(x).Copy

            Rows(x).Insert

            Cells(x + 1, y) = t

        Next t

        Rows(x).Delete

    End If

End Sub

追问

大佬，是需要这个效果。但我还想问两个问题，就拿你这个示例来说：

你现在做的是选定活动单元格来做数组，那我是否可以更改为指定某个单元格！？

我现在想让他分列到指定的区域，而不是在原有区域进行覆盖，就那这个示例来说，分列的数据我想把他放到D列，从D2开始，这样可以吗！？

谢谢大佬

追答非常抱歉，我真的猜不到你的需求，要是有个图，再在图上进行标记就好了。
另外，建议你稍微用心阅读以下代码，稍加修改。

热心网友 时间：2023-10-30 12:06

万能式

Excel怎样快速把数据根据空格或相同符号分开

热心网友 时间：2023-10-30 12:07

建议你提问不是要别人来猜你想要做什么，而是简单直接地上图。
正如你说的，网上这个代码是以A1单元格编写的，那么你的表格是什么样子的，会的同时也愿意回复你的人一眼就明白了。大多数人更愿意解决你表格中的问题，而不是给你创造了一个表格，结果你又问出更多一大堆的问题！

热心网友 时间：2023-10-30 12:07

Cells(1, N) N=1
就是A1
Cells(1, 1) 也表示A1

热心网友 时间：2023-10-30 12:06

示例数据表：

选择需要拆分的单元格B2，执行宏（把B2分为3项，并复制此行3次）后结果如下：

这是不是你需要的，因为你没有这样清晰的需求，我只有猜测。如果是你需要的，代码如下几行就可以：

代码的文本为：

Option Explicit

Sub 拆分选择单元格并复制行()

    Dim arr, t, x, y

    x = ActiveCell.Row

    y = ActiveCell.Column

    arr = Split(ActiveCell.Value, ";")

    If UBound(arr) > LBound(arr) Then

        For Each t In arr

            Rows(x).Copy

            Rows(x).Insert

            Cells(x + 1, y) = t

        Next t

        Rows(x).Delete

    End If

End Sub

追问

大佬，是需要这个效果。但我还想问两个问题，就拿你这个示例来说：

你现在做的是选定活动单元格来做数组，那我是否可以更改为指定某个单元格！？

我现在想让他分列到指定的区域，而不是在原有区域进行覆盖，就那这个示例来说，分列的数据我想把他放到D列，从D2开始，这样可以吗！？

谢谢大佬

追答非常抱歉，我真的猜不到你的需求，要是有个图，再在图上进行标记就好了。
另外，建议你稍微用心阅读以下代码，稍加修改。

热心网友 时间：2023-10-30 12:06

万能式

Excel怎样快速把数据根据空格或相同符号分开

热心网友 时间：2023-10-30 12:07

建议你提问不是要别人来猜你想要做什么，而是简单直接地上图。
正如你说的，网上这个代码是以A1单元格编写的，那么你的表格是什么样子的，会的同时也愿意回复你的人一眼就明白了。大多数人更愿意解决你表格中的问题，而不是给你创造了一个表格，结果你又问出更多一大堆的问题！

热心网友 时间：2023-10-30 12:06

示例数据表：

选择需要拆分的单元格B2，执行宏（把B2分为3项，并复制此行3次）后结果如下：

这是不是你需要的，因为你没有这样清晰的需求，我只有猜测。如果是你需要的，代码如下几行就可以：

代码的文本为：

Option Explicit

Sub 拆分选择单元格并复制行()

    Dim arr, t, x, y

    x = ActiveCell.Row

    y = ActiveCell.Column

    arr = Split(ActiveCell.Value, ";")

    If UBound(arr) > LBound(arr) Then

        For Each t In arr

            Rows(x).Copy

            Rows(x).Insert

            Cells(x + 1, y) = t

        Next t

        Rows(x).Delete

    End If

End Sub

追问

大佬，是需要这个效果。但我还想问两个问题，就拿你这个示例来说：

你现在做的是选定活动单元格来做数组，那我是否可以更改为指定某个单元格！？

我现在想让他分列到指定的区域，而不是在原有区域进行覆盖，就那这个示例来说，分列的数据我想把他放到D列，从D2开始，这样可以吗！？

谢谢大佬

追答非常抱歉，我真的猜不到你的需求，要是有个图，再在图上进行标记就好了。
另外，建议你稍微用心阅读以下代码，稍加修改。

热心网友 时间：2023-10-30 12:07

Cells(1, N) N=1
就是A1
Cells(1, 1) 也表示A1

热心网友 时间：2023-10-30 12:06

示例数据表：

选择需要拆分的单元格B2，执行宏（把B2分为3项，并复制此行3次）后结果如下：

这是不是你需要的，因为你没有这样清晰的需求，我只有猜测。如果是你需要的，代码如下几行就可以：

代码的文本为：

Option Explicit

Sub 拆分选择单元格并复制行()

    Dim arr, t, x, y

    x = ActiveCell.Row

    y = ActiveCell.Column

    arr = Split(ActiveCell.Value, ";")

    If UBound(arr) > LBound(arr) Then

        For Each t In arr

            Rows(x).Copy

            Rows(x).Insert

            Cells(x + 1, y) = t

        Next t

        Rows(x).Delete

    End If

End Sub

追问

大佬，是需要这个效果。但我还想问两个问题，就拿你这个示例来说：

你现在做的是选定活动单元格来做数组，那我是否可以更改为指定某个单元格！？

我现在想让他分列到指定的区域，而不是在原有区域进行覆盖，就那这个示例来说，分列的数据我想把他放到D列，从D2开始，这样可以吗！？

谢谢大佬

追答非常抱歉，我真的猜不到你的需求，要是有个图，再在图上进行标记就好了。
另外，建议你稍微用心阅读以下代码，稍加修改。

热心网友 时间：2023-10-30 12:06

万能式

Excel怎样快速把数据根据空格或相同符号分开

热心网友 时间：2023-10-30 12:07

建议你提问不是要别人来猜你想要做什么，而是简单直接地上图。
正如你说的，网上这个代码是以A1单元格编写的，那么你的表格是什么样子的，会的同时也愿意回复你的人一眼就明白了。大多数人更愿意解决你表格中的问题，而不是给你创造了一个表格，结果你又问出更多一大堆的问题！

热心网友 时间：2023-10-30 12:08

Cells(1, N) N=1
就是A1
Cells(1, 1) 也表示A1

热心网友 时间：2023-10-30 12:06

万能式

Excel怎样快速把数据根据空格或相同符号分开

热心网友 时间：2023-10-30 12:07

建议你提问不是要别人来猜你想要做什么，而是简单直接地上图。
正如你说的，网上这个代码是以A1单元格编写的，那么你的表格是什么样子的，会的同时也愿意回复你的人一眼就明白了。大多数人更愿意解决你表格中的问题，而不是给你创造了一个表格，结果你又问出更多一大堆的问题！

热心网友 时间：2023-10-30 12:07

Cells(1, N) N=1
就是A1
Cells(1, 1) 也表示A1