-2

我有我的 excel 工作表数据（我转换为数组格式），如下所示

1st row......['one', , , , 'Folder', 'Folder', 'Extended Data', 'Extended Data', 'Extended Data','Extended Data' ],
2nd row.....['ID', 'Label', 'Longitude', 'Latitude', 'Country', 'City', 'Inventory', 'Safety stock', 'weight', 'hdsjka'],
3rd row......['AFKBL', 'Kabul, Afghanistan', 69.136749, 34.53091, 'Afghanistan', 'Kabul', 12, 1845, 12, 1845],
4th row......['AFKDH', 'Kandahar, Afghanistan', 65.700279, 31.61087, 'Afghanistan', 'Kandahar', 18, 1193, 18, 1193], ....etc etc

我想提取“扩展数据”（位于第一行）下的第二行中的所有值，并将其写入不同文件的单列数组中。

我想使用这个列数组在谷歌图表中创建一个控件包装器。

如果有人能写一个宏并帮助我，我将非常感激..

4

1 回答 1

0

我不太清楚你的数组是什么样子的，但在我看来，你想要的数据应该很容易通过遍历数组单元来获得。假设您想要的数据位于您已经拥有的数组（“oldarr”）的第 2 行和第 4 到 7 列中，那么您只需创建一个新的 newarr(4,1) 数组。

dim newarr(4,1)
for j = 1 to 4
newarr(j,1) = arr(2, (j+3)) ''cycles across the needed columns on the second row 
next j

然后，您可以将 newarr 的内容粘贴到您喜欢的任何位置。

现在，这似乎太简单了，不需要宏来完成，这就是为什么我认为我必须遗漏一些东西。但是，只要您知道哪些数组列将包含您想要的信息，一般方法就成立。我能想到的唯一微妙之处是，如果您不知道在每次迭代中需要复制多少行或列（在这种情况下，您可以使用动态数组），或者包含“扩展数据”的列是否可以更改.

希望这至少可以帮助您入门。

于 2013-08-04T20:29:56.540 回答