在 VBA Excel 中从其他 3 个列范围创建新范围

Question

我在 VBA 中有 3 个范围：

range1 = Range("A:A")
range2 = Range("B:B")
range3 = Range("C:C")

我想返回一个新范围，将三个范围中的每一行加在一起。

如果我有数据

A, B, C
=========
1, 2, 3
2, 4, 5
1, 1, 2

其中 3 个范围中的每一个仅包含值（列名仅用于解释）。所以第一个范围的值是 1、2、1，第二个范围的值是 2、4、1，第三个范围的值是 3、5、2。

我想输出包含的范围

6
11
4

我猜是这样的

Dim newRange As Range
Dim RowNo    As Long

// make newRange as long as one of the other ranges

For Each RowNo in LBound(newRange)
    newRange(RowNo).Value = range1(RowNo).Value + range2(RowNo).Value + range3(RowNo).Value
Next RowNo

// return newRange

这对吗？

Answer 1

试试这样：

 Option Explicit

Public Sub MakeRanges()

    Dim lngCounterLeft  As Long
    Dim lngCounterDown  As Long
    Dim lngCounter      As Long
    Dim rngCell         As Range
    Dim varResult       As Variant


    lngCounterDown = last_row(ActiveSheet.Name)
    lngCounterLeft = last_col(ActiveSheet.Name)
    ReDim varResult(0)

    For lngCounter = 1 To lngCounterDown
        Set rngCell = ActiveSheet.Cells(lngCounter, lngCounterLeft + 1)
        rngCell.FormulaR1C1 = "=SUM(RC[-" & lngCounterLeft & "]:RC[-1])"
        'rngCell.Interior.Color = vbRed

        If lngCounter > 1 Then
            ReDim Preserve varResult(UBound(varResult) + 1)
        End If


        varResult(UBound(varResult)) = rngCell.Value
        rngCell.Clear

    Next lngCounter

    Stop

End Sub

Public Function last_row(Optional str_sheet As String, Optional column_to_check As Long = 1) As Long

    Dim shSheet  As Worksheet

    If str_sheet = vbNullString Then
        Set shSheet = ThisWorkbook.ActiveSheet
    Else
        Set shSheet = ThisWorkbook.Worksheets(str_sheet)
    End If

    last_row = shSheet.Cells(shSheet.Rows.Count, column_to_check).End(xlUp).Row

End Function

Public Function last_col(Optional str_sheet As String, Optional row_to_check As Long = 1) As Long

    Dim shSheet  As Worksheet

        If str_sheet = vbNullString Then
            Set shSheet = ActiveSheet
        Else
            Set shSheet = Worksheets(str_sheet)
        End If

    last_col = shSheet.Cells(row_to_check, shSheet.Columns.Count).End(xlToLeft).Column

End Function

运行MakeRanges。 几乎，您会收到一个新列，其中包含其他列的总和。 将 ActiveSheet 更改为有意义的东西是个好主意。 如果你不喜欢这个公式，你可以在我的代码中取消注释rngCell.Value。 您需要的数组是varResult。删除stop 并找到在函数中返回它的方法。