Question

我认为这个问题可能与Ms Excel -> 2 columns into a 2 dimensional array有关，但我无法完全建立联系。

我有一个VBA脚本来填充丢失的丢失数据。我选择了两个相邻的列，它在第二列中找到任何间隙，并根据第一列中的（可能是不规则的）间距进行线性插值。例如，我可以在这些数据上使用它：

获得此输出

1    7
2    14
3    21
5    35
5.1  35.7  <---1/10th the way between 35&42
6    42
7    43   <-- 1/3 the way between 42 & 45
8    44   <-- 2/3 the way between 42 & 45 
9    45

这对我非常有用。

我的麻烦是它只适用于连续的列。我希望能够选择两个彼此不相邻的列，并使它以相同的方式工作。我的代码开头是这样的：

Dim addr As String
addr = Selection.Address

Dim nR As Long
Dim nC As Long

'Reads Selected Cells' Row and Column Information
nR = Range(addr).Rows.Count   
nC = Range(addr).Columns.Count

当我选择了连续列时运行此选项时，addr会在“本地”窗口中显示，其值为"$A$2:$B$8"和nC = 2

当我选择非 - 连续列时运行此选项时，addr会在“本地”窗口中显示，其值为"$A$2:$A$8,$C$2:$C$8"和nC = 1。

稍后在脚本中，我将每列中的值收集到一个数组中。以下是我处理第二列的方法，例如：

 'Creates a Column 2 (col1) array, determines cells needed to interpolate for, changes font to bold and red, and reads its values
        Dim col2() As Double
        ReDim col2(0 To nR + 1)
        i = 1
        Do Until i > nR
            If IsEmpty(Selection(i, 2)) Or Selection(i, 2) = 0 Or Selection(i, 2) = -901 Then
                Selection(i, 2).Font.Bold = True
                Selection(i, 2).Font.Color = RGB(255, 69, 0)
                col2(i) = 9999999
            Else
                col2(i) = Selection(i, 2)
            End If

            i = i + 1
            Loop

这也被破坏了，因为即使我的选择是"$A$2:$A$8,$C$2:$C$8"，VBA也会将Selection(1,2)视为对$B$2的引用，而不是所需的$C$2。

任何人都有建议我如何让VBA以对待连续的方式处理非连续选择？

Answer 1

你正在处理“不相交的范围”。使用Areas集合，例如，如here所述。第一列应位于Selection.Areas(1)，第二列应位于Selection.Areas(2)。

将两个不相邻的列分组为Excel VBA脚本

1 个答案: