如何制作一个将数据从一个单元格传输/分发到各个单元格的宏？

Question

我想问一下宏是否可以解决这个自动化问题。

我想将数据从一个单元传输/分发到各个单元。

Answer 1

它甚至不需要宏：

• 选择要拆分的单元格
• 在数据选项卡中单击“文本到列”
• 选择“分隔”和“下一个”
• 对于分隔符，选择“其他”并输入-
• “完成”就大功告成了

Answer 2

这个简单的 UDF（宏）将帮助您将值分成列。

Function SplitValues(a As String, b As String)
Dim Text() As String
Text = Split(b, a)
SplitValues = Text
End Function

怎么运行的：

1. 将此 VBA 代码复制并粘贴为模块。

2. 我假设您有数据，Column B因此请在单元格中写下此公式D2。

   =SplitValues("-",B2)
   

3. 填写公式直至需要为止。

4. 按下F2并完成Ctrl+Shift+Enter，现在 Excel 将其转换为数组公式，最后填充公式。

   {=SplitValues("-",B2)}
   

笔记： 分隔符“-”是可编辑的，如果需要，您也可以将其替换为其他分隔符。