VBA将A1:C20创建为数组

好的，让我来回答你的问题。你可以使用VBA中的Array函数将A1:C20创建为一个数组。以下是示例代码：

Dim myArray(1 To 20, 1 To 3) As Variant
myArray = Array(Range("A1:C20"))

这将在VBA中创建一个名为`myArray`的数组，其大小为20行3列，包含A1:C20单元格中的所有数据。希望这可以帮助你！

相关问题

VBA 将当前工作簿sheet 1的B1:C20 创建数组

Sure，以下是使用VBA代码将当前工作簿sheet1的B1:C20创建数组的方法：

Dim myArray() As Variant
myArray = Range("B1:C20").Value

这将创建一个二维数组myArray，包含了B1:C20单元格区域内的值。请注意，这代码只适用于当前活动工作簿及其sheet1，如果需要适用于其他工作簿或sheet，请指定相应的工作簿及sheet名称。

用VBA将A1:c100单元格数据做成直方图

以下是用VBA制作直方图的代码示例：

Sub CreateHistogram()

    Dim rngData As Range
    Dim rngBins As Range
    Dim chtChart As Chart
    
    Set rngData = Range("A1:C100") '数据范围
    Set rngBins = Range("E1:E10") '分组区间范围
    
    '创建直方图
    Set chtChart = Charts.Add
    chtChart.ChartType = xlColumnClustered
    chtChart.SetSourceData Source:=rngData
    
    '设置分组区间
    With chtChart.Axes(xlCategory)
        .CategoryType = xlCategoryScale
        .TickLabelSpacing = 1
        .TickMarkSpacing = 1
        .HasMajorGridlines = True
        .MinimumScaleIsAuto = False
        .MaximumScaleIsAuto = False
        .MinimumScale = rngBins.Cells(1, 1)
        .MaximumScale = rngBins.Cells(rngBins.Rows.Count, 1)
        .BinWidth = (rngBins.Cells(rngBins.Rows.Count, 1) - rngBins.Cells(1, 1)) / (rngBins.Rows.Count - 1)
    End With
    
End Sub

在上述代码中，我们首先定义了数据范围 `rngData` 和分组区间范围 `rngBins`，然后创建了一个直方图，并设置了分组区间的相关属性。你可以根据需要修改代码中的数据范围和分组区间范围，以及直方图的其他属性来满足你的需求。