Tag: 分割函数

循环遍历单元格并将值添加到数组中，然后显示在VBA中的activecell中

我一直在努力这一段时间，我需要帮助。 我是vba新手，希望能对这个问题提供一些指导。 我的电子表格设置，所以我在单元格a2和读取b2中的值是一个整数，告诉我有多less补充configuration文件（sups）存在。 假设数字3在b2中。 然后我期望c2下方的2行在c3和c4中input一些文本（angular色）。 在a2上时，我正在阅读b2中的补充configuration文件的数量，然后循环显示在c2，c3和c4中find的a2angular色。 这可能会改变，因为在某些情况下，只有2个angular色或3个，等等。 要做到这一点，我编码如下： Sub testarray() Dim sups As Integer Dim role, resultrole As String Dim test() As String role = ActiveCell.Offset(i, 2).Value sups = ActiveCell.Offset(0, 1).Value i = 0 Do While i <= sups test() = Split(role) i = i + 1 ActiveCell.Value = test() Loop End Sub 问题是我只得到行c2显示，并不是所有的内容如下。 我想a2显示值c2，c3和c4。 […]