相关疑难解决方法(0)

嗨，我想遍历我在activeworksheet中找到的所有命名范围，然后对它们做一些事情。但是，我使用了下面的代码，但似乎什么也没产生。另外，如果我可以遍历包含某些单词的命名范围，那将是很好的。例如，我的命名范围被命名为data1，data2，data3，依此类推。如果它们包含单词数据，我只想对其进行处理。

For Each nm In Activesheets.Names
    MsgBox "nm.name"
Next nm

我想将数据添加到一堆现有图表中.假设每个图表具有不同数量的数据系列,并且原始数据的位置在同一工作簿中的某个位置.这是我开始的:

For iChart = 1 To iCount
    ActiveSheet.ChartObjects("Chart " & iChart).Activate
    intSeries = 1
    Do Until ActiveChart.SeriesCollection(intSeries).Name = ""
        Set rXVal = ActiveChart.SeriesCollection(intSeries).XValues '<- Object Required error
        Set rXVal = Range(rXVal, rXVal.End(xlDown))
        Set rYVal = ActiveChart.SeriesCollection(intSeries).Values
        Set rYVal = Range(rYVal, rYVal.End(xlDown))
        ActiveChart.SeriesCollection(intSeries).XValues = rXVal
        ActiveChart.SeriesCollection(intSeries).Values = rYVal
        intSeries = intSeries + 1
    Loop
Next iChart

我知道这ActiveChart...XValues = rXVal有效,但我在线上遇到了"需要对象"的错误Set rXVal = ActiveChart....XValues.我假设因为一个范围进入以定义数据系列,我可以再次取出该范围然后添加到它.

更新
为了澄清一点,我有8个位置的加速度计和FFT软件设置,以记录4个独立频段的峰值振动响应.这样每个样本产生32个数据点.导出时,软件会发出4张Excel工作簿; 每个频段一个.每张表都有加速度计名称,样本数字下降.