基于excelVBA写一个程序，要求四列数据加减乘数的所有组合，将结果放在一个数组中

好的，以下是一个简单的基于Excel VBA的程序，可以实现将四列数据进行加减乘除的所有组合，并将结果放在一个数组中：

Sub Calculation()

Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer
Dim arrResult() As Double

i = 1
ReDim arrResult(1 To 256, 1 To 1)

For j = 1 To 4
    For k = 1 To 4
        For l = 1 To 4
            For m = 1 To 4
                arrResult(i, 1) = Cells(j, 1).Value + Cells(k, 2).Value - Cells(l, 3).Value * Cells(m, 4).Value
                i = i + 1
            Next m
        Next l
    Next k
Next j

Range("E1").Resize(UBound(arrResult), 1).Value = arrResult

End Sub

在这个程序中，我们使用了四个循环来遍历四列数据的所有组合。在每次循环中，我们执行了一次加减乘除的计算，并将结果存储在一个数组中。最后，我们将数组中的结果输出到Excel中的第五列。您可以根据需要修改程序中的单元格范围和计算方式。

相关问题

用vba代码写一个读取excel文件，并将每一列数据写入一个数组的程序

以下是一个简单的 VBA 代码示例，用于读取 Excel 文件并将每一列数据写入一个数组中：

Sub ReadExcelFile()
    Dim myArray() As Variant
    Dim lastRow As Long
    Dim lastCol As Long
    Dim i As Long
    Dim j As Long
    
    'Open the workbook
    Dim myWorkbook As Workbook
    Set myWorkbook = Workbooks.Open("C:\path\to\my\file.xlsx")
    
    'Set the worksheet
    Dim myWorksheet As Worksheet
    Set myWorksheet = myWorkbook.Worksheets("Sheet1")
    
    'Find the last row and column with data
    lastRow = myWorksheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    lastCol = myWorksheet.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    
    'Resize the array to hold the data
    ReDim myArray(1 To lastRow, 1 To lastCol)
    
    'Loop through the data and store it in the array
    For i = 1 To lastRow
        For j = 1 To lastCol
            myArray(i, j) = myWorksheet.Cells(i, j).Value
        Next j
    Next i
    
    'Close the workbook
    myWorkbook.Close
    
    'Print the array to the Immediate Window
    For i = 1 To lastRow
        For j = 1 To lastCol
            Debug.Print myArray(i, j)
        Next j
    Next i
End Sub

在这个例子中，我们首先打开 Excel 文件并选择要读取的工作表。然后，我们使用 `Find` 函数找到最后一行和最后一列的数据，并使用 `ReDim` 函数调整数组的大小。最后，我们循环遍历每一行和每一列的数据，并将其存储在数组中。最后，我们使用 `Debug.Print` 将数组打印到即时窗口中。

请注意，这只是一个简单的示例代码，仅适用于读取基本数据类型。如果你需要读取其他类型的数据（如日期或布尔值），你需要使用适当的数据类型和转换函数来处理这些数据。

帮我写个vba程序，需要将excel中前三列所有数据求和

好的，这里是一个简单的 VBA 程序，它会将 Excel 表格中前三列的所有数据求和，并将结果显示在第四列的第一个单元格中：

Sub SumColumns()
    Dim lastRow As Long
    Dim sum As Double
    Dim i As Long

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To lastRow
        sum = sum + Cells(i, 1).Value + Cells(i, 2).Value + Cells(i, 3).Value
    Next i

    Cells(1, 4).Value = sum
End Sub

这个程序中，我们首先定义了一个变量 `lastRow`，它表示表格中最后一行的行号。然后，我们使用一个循环来遍历表格中的所有行，将前三列的值相加，保存到变量 `sum` 中。

最后，我们将 `sum` 的值赋值给第四列的第一个单元格，这里使用了 `Cells` 函数来定位单元格，第一个参数表示行号，第二个参数表示列号。